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

API Remake

Browse Source
This commit is contained in:
Artem3213212
2018-04-01 01:23:44 +03:00
parent d4eb19affa
commit 08d7761837
10 changed files with 269 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Tests/Unit1.pas
View File

@@ -23,7 +23,7 @@ var
Src:TRTBSource;
Func1:TRTBFunc;
begin
Fasm:=TRTBFasmCompiler.Create('..\..\..\FasmOnDelphi\fasmw172\fasm');
{Fasm:=TRTBFasmCompiler.Create('..\..\..\FasmOnDelphi\fasmw172\fasm');
Src:=Fasm.GenNewSrc;
Src.Text:='use32'+sLineBreak+'pop ecx'+sLineBreak+'pop eax'+sLineBreak+'jmp ecx';
Func1:=src.CompilateAsFunc;
@@ -33,7 +33,7 @@ begin
end;
FreeAndNil(Func1);
FreeAndNil(Src);
FreeAndNil(Fasm);
FreeAndNil(Fasm);}
end;
procedure TRuntimeBuilderTestObject.Test2();
@@ -43,7 +43,7 @@ var
lib:TRTBLib;
Func1:TRTBFunc;
begin
Fasm:=TRTBFasmCompiler.Create('..\..\..\FasmOnDelphi\fasmw172\fasm');
{Fasm:=TRTBFasmCompiler.Create('..\..\..\FasmOnDelphi\fasmw172\fasm');
Src:=Fasm.GenNewSrc;
Src.LoadFromFile('..\..\testlib.fasm');
Fasm.LoadLib('W:\RuntimeBuilder\FasmOnDelphi\fasmw172\INCLUDE\win32a.inc');
@@ -55,7 +55,7 @@ begin
end;
FreeAndNil(Func1);
FreeAndNil(Src);
FreeAndNil(Fasm);
FreeAndNil(Fasm);}
end;
initialization