193 lines
6.9 KiB
ObjectPascal
193 lines
6.9 KiB
ObjectPascal
unit Fasm4Delphi platform;
|
|
|
|
{Delphi Translation&Tests:Artyom Gavrilov,Vlad Untkin.
|
|
|
|
From FASMDLL.TXT:
|
|
|
|
Short description of functions inside FASM.DLL
|
|
|
|
|
|
fasm_GetVersion()
|
|
|
|
Returns double word containg major version in lower 16 bits,
|
|
and minor version in the higher 16 bits.
|
|
|
|
fasm_Assemble(lpSource,lpMemory,cbMemorySize,nPassesLimit,hDisplayPipe)
|
|
|
|
Assembles the given source, using the provided memory block as a free
|
|
storage space (which is also to contain generated output).
|
|
|
|
The lpSource should contain a pointer to zero-ended source text.
|
|
|
|
The lpMemory should be a pointer to the memory block and cbMemorySize
|
|
should contain its size. In the beginning of this memory block the
|
|
FASM_STATE structure will reside (as defined in FASM.ASH). The assembler
|
|
doesn't allocate any memory beside this block, if it is not enough for
|
|
its purposes, the function returns with FASM_OUT_OF_MEMORY state.
|
|
|
|
The nPassesLimit should be a value in range from 1 to 65536, defining
|
|
the maximum number of passes the assembler can perform in order to
|
|
generate the code (the recommended value is 100). If the limit is reached,
|
|
the function returns with state FASM_CANNOT_GENERATE_CODE.
|
|
|
|
The hDisplayPipe should contain handle of the pipe, to which the output
|
|
of DISPLAY directives will be written. If this parameter is NULL, all
|
|
the display will get discarded.
|
|
|
|
If the assembly is successful, function returns FASM_OK value and fills
|
|
the output_data and output_length fields of the FASM_STATE structure
|
|
(which resides at the beginning of provided memory block) with pointer
|
|
to the generated output and count of bytes stored there.
|
|
|
|
If the assembly failed, function returns one of the other general
|
|
conditions as defined in FASM.ASH. If the condition returned is FASM_ERROR,
|
|
it means that an error caused by a specific place in source occured,
|
|
then the error_code and error_line fields of FASM_STATE are filled,
|
|
first one with detailed error code as defined in FASM.ASH, and the second
|
|
one with pointer to a structure containing data about line that caused
|
|
the error.
|
|
|
|
fasm_AssembleFile(lpSourceFile,lpMemory,cbMemorySize,nPassesLimit,hDisplayPipe)
|
|
|
|
This function performs identically to fasm_Assemble, except that it takes
|
|
the lpSourceFile parameter in place of lpSource, and it shall contain the
|
|
pointer to zero-ended path to file containing the source to assemble.
|
|
}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows;
|
|
|
|
//{$Define FasmStaticLink}
|
|
|
|
type
|
|
TFasmVersion=packed record
|
|
V1,V2:word;
|
|
end;
|
|
|
|
TLINE_HEADER=record
|
|
file_path:PAnsiChar;
|
|
line_number:cardinal;
|
|
file_offset:cardinal;
|
|
macro_calling_line:^TLINE_HEADER;
|
|
//macro_line:^TLINE_HEADER;
|
|
end;
|
|
PLINE_HEADER=^TLINE_HEADER;
|
|
|
|
TFASM_STATE=record
|
|
condition:Int32;
|
|
error_code:Int32;
|
|
error_line:PLINE_HEADER;
|
|
//output_data:pointer;
|
|
//output_length:cardinal;
|
|
end;
|
|
PFASM_STATE=^TFASM_STATE;
|
|
//{$EXTERNALSYM TFASM_STATE}
|
|
|
|
const
|
|
FASMDLLName='FASM.DLL';
|
|
|
|
// General errors and conditions
|
|
|
|
FASM_OK =0; //FASM_STATE points to output
|
|
FASM_WORKING =1;
|
|
FASM_ERROR =2; //FASM_STATE contains error code
|
|
FASM_INVALID_PARAMETER =-1;
|
|
FASM_OUT_OF_MEMORY =-2;
|
|
FASM_STACK_OVERFLOW =-3;
|
|
FASM_SOURCE_NOT_FOUND =-4;
|
|
FASM_UNEXPECTED_END_OF_SOURCE =-5;
|
|
FASM_CANNOT_GENERATE_CODE =-6;
|
|
FASM_FORMAT_LIMITATIONS_EXCEDDED =-7;
|
|
FASM_WRITE_FAILED =-8;
|
|
FASM_INVALID_DEFINITION =-9;
|
|
|
|
//Error codes for FASM_ERROR condition
|
|
|
|
FASMERR_FILE_NOT_FOUND =-101;
|
|
FASMERR_ERROR_READING_FILE =-102;
|
|
FASMERR_INVALID_FILE_FORMAT =-103;
|
|
FASMERR_INVALID_MACRO_ARGUMENTS =-104;
|
|
FASMERR_INCOMPLETE_MACRO =-105;
|
|
FASMERR_UNEXPECTED_CHARACTERS =-106;
|
|
FASMERR_INVALID_ARGUMENT =-107;
|
|
FASMERR_ILLEGAL_INSTRUCTION =-108;
|
|
FASMERR_INVALID_OPERAND =-109;
|
|
FASMERR_INVALID_OPERAND_SIZE =-110;
|
|
FASMERR_OPERAND_SIZE_NOT_SPECIFIED =-111;
|
|
FASMERR_OPERAND_SIZES_DO_NOT_MATCH =-112;
|
|
FASMERR_INVALID_ADDRESS_SIZE =-113;
|
|
FASMERR_ADDRESS_SIZES_DO_NOT_AGREE =-114;
|
|
FASMERR_DISALLOWED_COMBINATION_OF_REGISTERS =-115;
|
|
FASMERR_LONG_IMMEDIATE_NOT_ENCODABLE =-116;
|
|
FASMERR_RELATIVE_JUMP_OUT_OF_RANGE =-117;
|
|
FASMERR_INVALID_EXPRESSION =-118;
|
|
FASMERR_INVALID_ADDRESS =-119;
|
|
FASMERR_INVALID_VALUE =-120;
|
|
FASMERR_VALUE_OUT_OF_RANGE =-121;
|
|
FASMERR_UNDEFINED_SYMBOL =-122;
|
|
FASMERR_INVALID_USE_OF_SYMBOL =-123;
|
|
FASMERR_NAME_TOO_LONG =-124;
|
|
FASMERR_INVALID_NAME =-125;
|
|
FASMERR_RESERVED_WORD_USED_AS_SYMBOL =-126;
|
|
FASMERR_SYMBOL_ALREADY_DEFINED =-127;
|
|
FASMERR_MISSING_END_QUOTE =-128;
|
|
FASMERR_MISSING_END_DIRECTIVE =-129;
|
|
FASMERR_UNEXPECTED_INSTRUCTION =-130;
|
|
FASMERR_EXTRA_CHARACTERS_ON_LINE =-131;
|
|
FASMERR_SECTION_NOT_ALIGNED_ENOUGH =-132;
|
|
FASMERR_SETTING_ALREADY_SPECIFIED =-133;
|
|
FASMERR_DATA_ALREADY_DEFINED =-134;
|
|
FASMERR_TOO_MANY_REPEATS =-135;
|
|
FASMERR_SYMBOL_OUT_OF_SCOPE =-136;
|
|
FASMERR_USER_ERROR =-140;
|
|
FASMERR_ASSERTION_FAILED =-141;
|
|
|
|
{$IFDEF FasmStaticLink}
|
|
function fasm_GetVersion:TFasmVersion;stdcall;external FASMDLLName;
|
|
function fasm_Assemble(lpSource:PAnsiChar;lpMemory:pointer;cbMemorySize:cardinal;
|
|
nPassesLimit:word=100;hDisplayPipe:DWord=0):Int32;stdcall;external FASMDLLName;
|
|
function fasm_AssembleFile(lpSourceFile:PAnsiChar;lpMemory:pointer;cbMemorySize:cardinal;
|
|
nPassesLimit:word=100;hDisplayPipe:DWord=0):Int32;stdcall;external FASMDLLName;
|
|
{$ELSE}
|
|
var
|
|
fasm_GetVersion:function:TFasmVersion;stdcall;
|
|
fasm_Assemble:function(lpSource:PAnsiChar;lpMemory:pointer;cbMemorySize:cardinal;nPassesLimit:word=100;hDisplayPipe:DWord=0):Int32;stdcall;
|
|
fasm_AssembleFile:function(lpSourceFile:PAnsiChar;lpMemory:pointer;cbMemorySize:cardinal;nPassesLimit:word=100;hDisplayPipe:DWord=0):Int32;stdcall;
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF FasmStaticLink}
|
|
procedure LoadFASM(Name:string);
|
|
procedure FreeFASM;
|
|
{$ENDIF}
|
|
|
|
implementation
|
|
|
|
{$IFNDEF FasmStaticLink}
|
|
var
|
|
&Library:THandle=0;
|
|
|
|
procedure LoadFASM(Name:string);
|
|
begin
|
|
if &Library<>0 then
|
|
FreeFasm;
|
|
&Library:=LoadLibrary(PWideChar(Name));
|
|
fasm_GetVersion:=GetProcAddress(&Library,'fasm_GetVersion');
|
|
fasm_Assemble:=GetProcAddress(&Library,'fasm_Assemble');
|
|
fasm_AssembleFile:=GetProcAddress(&Library,'fasm_AssembleFile');
|
|
end;
|
|
|
|
procedure FreeFASM;
|
|
begin
|
|
if &Library=0 then
|
|
exit;
|
|
fasm_GetVersion:=nil;
|
|
fasm_Assemble:=nil;
|
|
fasm_AssembleFile:=nil;
|
|
&Library:=0;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
end.
|