artem3213212/RuntimeBuilder
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Update Fasm Implementation

Browse Source
This commit is contained in:
Artem3213212
2018-05-01 22:03:01 +03:00
parent a01fd8c1ea
commit 512e9c9d04
2 changed files with 122 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Tests/Unit1.pas
View File

@@ -36,15 +36,11 @@ Module:=Src.Compilate;
Func1:=Module.Funtion['main'];
Func2:=Module.Funtion['varmain'];
if 454<>Func1.Call(TypeInfo(integer),[454],CRTBCallTypeStdCall).AsInteger then
begin
raise Exception.Create('Error in test1');
end;
Var1:=Module.&Var['Pmain'];
Var1.Val:=424;
if Var1.Val.AsInteger<>Func2.Call(TypeInfo(integer),[],CRTBCallTypeStdCall).AsInteger then
begin
raise Exception.Create('Error in test1');
end;
FreeAndNil(Func1);
FreeAndNil(Src);
FreeAndNil(Fasm);