diff --git a/Source/RuntimeBuilder.Fasm.pas b/Source/RuntimeBuilder.Fasm.pas index 87f36fa..7ef8716 100644 --- a/Source/RuntimeBuilder.Fasm.pas +++ b/Source/RuntimeBuilder.Fasm.pas @@ -62,11 +62,9 @@ type procedure DelNameSpace(Name:string);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 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 AddVariable(NameSpace:string;Name:string;var Data);override; @@ -141,21 +139,6 @@ p:=nil; &Type:=nil; 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; begin Result:=TRTBFasmFunc.Create(PPointer(NativeUInt(funcs.Items[Name])+NativeUInt(p))^); @@ -230,11 +213,7 @@ procedure TRTBFasmCompiler.TRTBFasmSource.AddType(NameSpace:string;Name:string;& begin end; -procedure ExportType(NameSpace:string;Name:string;&Type:TRTBType); -begin -end; - -procedure DelType(NameSpace:string;Name:string); +procedure TRTBFasmCompiler.TRTBFasmSource.DelType(NameSpace:string;Name:string); begin end; diff --git a/Source/RuntimeBuilder.pas b/Source/RuntimeBuilder.pas index a709878..d59d552 100644 --- a/Source/RuntimeBuilder.pas +++ b/Source/RuntimeBuilder.pas @@ -60,11 +60,9 @@ type procedure DelNameSpace(Name:string);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 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 AddVariable(NameSpace:string;Name:string;var Data);virtual;abstract;