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

Securiti fix

Browse Source
This commit is contained in:
Artem3213212
2018-06-03 14:54:27 +03:00
parent b4da0b0b7a
commit 8b7cc86d23
6 changed files with 65 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Source/RuntimeBuilder.Fasm.pas
View File

@@ -14,9 +14,9 @@ type
TRTBFasmSource=class(TRTBSource)
protected type
TRTBFasmModule=class(TRTBModule)
private type
protected type
TRTBFasmFunc=class(TRTBFunc)
private
protected
p:Pointer;
public
constructor Create(p:Pointer);
@@ -33,7 +33,7 @@ type
constructor Create(p:pointer;&Type:TRTBType);
destructor Destroy;override;
end;
private
protected
p:Pointer;
sb:NativeUInt;
funcs:TDictionary<string,NativeUInt>;
@@ -341,8 +341,6 @@ else
end;
procedure TRTBFasmCompiler.TRTBFasmSource.UnRegisterFunction(NameSpace:string;Name:string);
var
i:NativeUInt;
begin
if NameSpace<>'' then
Name:=NameSpace+'.'+Name;
@@ -535,7 +533,7 @@ function TRTBFasmCompiler.TRTBFasmSource.Compilate:TRTBModule;
PreDecl:=PreDecl+Key+' equ 0'+sLineBreak;
end;
var
templib,pointerDecl,PreDecl:string;
pointerDecl,PreDecl:string;
Res:TFasmResult;
i,base,sb:NativeUInt;
FuncDict:TDictionary<string,NativeUInt>;

11
Source/RuntimeBuilder.Lua.pas
View File

@@ -12,12 +12,12 @@ type
TRTBLuaSource=class(TRTBSource)
protected type
TRTBLuaModule=class(TRTBModule)
private type
protected type
TRTBLuaFunc=class(TRTBFunc)
private
protected
//p:Pointer;
public
constructor Create(s:string);
//constructor Create(s:string);
//function Call(OutType:PTypeInfo;args:TArray<TValue>;CallType:TRTBCallType=CRTBCallTypeDefault):TValue;override;
//destructor Destroy;override;
end;
@@ -66,6 +66,9 @@ type
//procedure AddConst(NameSpace:string;Name:string;Val:TValue);override;
//procedure DelConst(NameSpace:string;Name:string);override;
//procedure AddCallBack(NameSpace:string;Name:string;CallBack:TRTBCallBack);override;
//procedure DelCallBack(NameSpace:string;Name:string);override;
//procedure AddVariable(NameSpace:string;Name:string;var Data);override;
//procedure ExportVariable(NameSpace:string;Name:string;var Data);override;
//procedure DelVariable(NameSpace:string;Name:string);override;
@@ -615,7 +618,7 @@ with consts do
with Items[i] do
ConstParse(Key,Value,PreDecl,base);}
Result:=TRTBLuaModule.Create(FText,funcs);
//Result:=TRTBLuaModule.Create(FText,funcs);
end;
destructor TRTBLuaCompiler.TRTBLuaSource.Destroy;