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

API Update

Browse Source
This commit is contained in:
Artem3213212
2018-04-13 15:33:52 +03:00
parent c3e9de4bf9
commit b2702114a5
2 changed files with 1 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Source/RuntimeBuilder.Fasm.pas
View File

@@ -62,11 +62,9 @@ type
procedure DelNameSpace(Name:string);override; procedure DelNameSpace(Name:string);override;
procedure AddType(NameSpace:string;Name:string;&Type:TRTBType);override; procedure AddType(NameSpace:string;Name:string;&Type:TRTBType);override;
procedure ExportType(NameSpace:string;Name:string;&Type:TRTBType);override;
procedure DelType(NameSpace:string;Name:string);override; procedure DelType(NameSpace:string;Name:string);override;
{procedure AddConst(NameSpace:string;Name:string;Val:TValue);override; {procedure AddConst(NameSpace:string;Name:string;Val:TValue);override;
procedure ExportConst(NameSpace:string;Name:string;Val:TValue);override;
procedure DelConst(NameSpace:string;Name:string);override; procedure DelConst(NameSpace:string;Name:string);override;
procedure AddVariable(NameSpace:string;Name:string;var Data);override; procedure AddVariable(NameSpace:string;Name:string;var Data);override;
@@ -141,21 +139,6 @@ p:=nil;
&Type:=nil; &Type:=nil;
end; end;
{constructor TRTBFasmCompiler.TRTBFasmSource.TRTBFasmLib.TRTBFasmLibFunc.Create(p:Pointer);
begin
Self.p:=p;
end;
destructor TRTBFasmCompiler.TRTBFasmSource.TRTBFasmLib.TRTBFasmLibFunc.Destroy;
begin
p:=nil;
end;
function TRTBFasmCompiler.TRTBFasmSource.TRTBFasmLib.GetFuntion(Name:string):TRTBFunc;
begin
Result:=TRTBFasmLibFunc.Create(GetProcAddress(Lib,pwidechar(Name)));
end;}
function TRTBFasmCompiler.TRTBFasmSource.TRTBFasmModule.GetFuntion(Name:string):TRTBFunc; function TRTBFasmCompiler.TRTBFasmSource.TRTBFasmModule.GetFuntion(Name:string):TRTBFunc;
begin begin
Result:=TRTBFasmFunc.Create(PPointer(NativeUInt(funcs.Items[Name])+NativeUInt(p))^); Result:=TRTBFasmFunc.Create(PPointer(NativeUInt(funcs.Items[Name])+NativeUInt(p))^);
@@ -230,11 +213,7 @@ procedure TRTBFasmCompiler.TRTBFasmSource.AddType(NameSpace:string;Name:string;&
begin begin
end; end;
procedure ExportType(NameSpace:string;Name:string;&Type:TRTBType); procedure TRTBFasmCompiler.TRTBFasmSource.DelType(NameSpace:string;Name:string);
begin
end;
procedure DelType(NameSpace:string;Name:string);
begin begin
end; end;

2
Source/RuntimeBuilder.pas
View File

@@ -60,11 +60,9 @@ type
procedure DelNameSpace(Name:string);virtual;abstract; procedure DelNameSpace(Name:string);virtual;abstract;
procedure AddType(NameSpace:string;Name:string;&Type:TRTBType);virtual;abstract; procedure AddType(NameSpace:string;Name:string;&Type:TRTBType);virtual;abstract;
procedure ExportType(NameSpace:string;Name:string;&Type:TRTBType);virtual;abstract;
procedure DelType(NameSpace:string;Name:string);virtual;abstract; procedure DelType(NameSpace:string;Name:string);virtual;abstract;
procedure AddConst(NameSpace:string;Name:string;Val:TValue);virtual;abstract; procedure AddConst(NameSpace:string;Name:string;Val:TValue);virtual;abstract;
procedure ExportConst(NameSpace:string;Name:string;Val:TValue);virtual;abstract;
procedure DelConst(NameSpace:string;Name:string);virtual;abstract; procedure DelConst(NameSpace:string;Name:string);virtual;abstract;
procedure AddVariable(NameSpace:string;Name:string;var Data);virtual;abstract; procedure AddVariable(NameSpace:string;Name:string;var Data);virtual;abstract;