Fix abstract fasm part
This commit is contained in:
@@ -40,8 +40,8 @@ begin
|
||||
raise Exception.Create('Error in test1');
|
||||
end;
|
||||
Var1:=Module.&Var['Pmain'];
|
||||
Var1.Val:=454;
|
||||
if 454<>Func2.Call(TypeInfo(integer),[],CRTBCallTypeStdCall).AsInteger then
|
||||
Var1.Val:=424;
|
||||
if Var1.Val.AsInteger<>Func2.Call(TypeInfo(integer),[],CRTBCallTypeStdCall).AsInteger then
|
||||
begin
|
||||
raise Exception.Create('Error in test1');
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user