artem3213212/FASM4Delphi
1
0
Fork 0
Code Releases Activity

EN+RU+Test JP

Browse Source
This commit is contained in:
Artem3213212
2018-03-09 15:06:16 +03:00
parent 9b12821d1f
commit c3747dc5ba
7 changed files with 149 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

155
Source/Fasm4Delphi.pas
View File

@@ -1,58 +1,7 @@
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.
}
Donate:https://money.yandex.ru/to/410014959153552}
interface
@@ -72,7 +21,7 @@ type
case byte of
0:(file_offset:cardinal);
1:(macro_calling_line:^TLINE_HEADER;
macro_line:^TLINE_HEADER;);
macro_line:^TLINE_HEADER;);
end;
PLINE_HEADER=^TLINE_HEADER;
{$EXTERNALSYM TLINE_HEADER}
@@ -84,7 +33,7 @@ type
error_line:PLINE_HEADER;);
1:(output_length:cardinal;
output_data:pointer; );
end;
end;
PFASM_STATE=^TFASM_STATE;
{$EXTERNALSYM TFASM_STATE}
@@ -93,59 +42,59 @@ const
// 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_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_CANNOT_GENERATE_CODE =-6;
FASM_FORMAT_LIMITATIONS_EXCEDDED =-7;
FASM_WRITE_FAILED =-8;
FASM_INVALID_DEFINITION =-9;
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_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;
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;
@@ -175,7 +124,7 @@ procedure LoadFASM(Name:string=FASMDLLName);
begin
if &Library<>0 then
FreeFasm;
{$IFDEF FPC}
{$IFDEF FPC}
&Library:=LoadLibrary(PChar(Name));
Pointer(fasm_GetVersion):=GetProcAddress(&Library,'fasm_GetVersion');
Pointer(fasm_Assemble):=GetProcAddress(&Library,'fasm_Assemble');
@@ -196,7 +145,7 @@ fasm_GetVersion:=nil;
fasm_Assemble:=nil;
fasm_AssembleFile:=nil;
&Library:=0;
end;
end;
{$ENDIF}
end.