artem3213212/FasmOnDelphi
1
0
Fork 0
Code Releases Activity

Add FPC Compabulity

Browse Source
This commit is contained in:
Artem3213212
2018-03-11 23:45:02 +03:00
parent 6ff505a678
commit 9345e2e634
7 changed files with 310 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
Tests/Test1..bin → Tests/Test1.bin
View File

15
Tests/TesterMain.pas
View File

@@ -22,12 +22,6 @@ type
[Test]
procedure Test4;
end;
const
CompliterMemSize=$10000;
var
CompliterMem:PFASM_STATE;
implementation
@@ -45,8 +39,8 @@ var
begin
Res:=FasmAssembleFileToFile('..\..\Test1.ASM','..\..\Test1..bin');
if Res.Error<>FASM_OK then
raise Exception.Create('Condition: '+CompliterMem^.condition.ToString+sLineBreak+
'Error Code: '+CompliterMem^.error_code.ToString+sLineBreak);
raise Exception.Create('Condition: '+Res.OutStr+sLineBreak+
'Error Code: '+IntToStr(Res.Error)+sLineBreak);
end;
procedure TMyTestObject.Test2;
@@ -74,12 +68,11 @@ var
begin
Res:=FasmAssembleToFile('add eax,0','test');
if Res.Error<>FASM_OK then
raise Exception.Create('Condition: '+Res.OutStr+sLineBreak+
'Error Code: '+IntToStr(Res.Error)+sLineBreak);
raise Exception.Create('Condition: '+Res.OutStr+sLineBreak+
'Error Code:'+IntToStr(Res.Error)+sLineBreak);
end;
initialization
TDUnitX.RegisterTestFixture(TMyTestObject);
OpenFASM('..\..\..\fasmw172\FASM.EXE');
GetMem(CompliterMem,CompliterMemSize);
end.