|
@@ -68,7 +68,6 @@ unit tgcpu;
|
|
procedure updateFirstTemp;
|
|
procedure updateFirstTemp;
|
|
|
|
|
|
procedure allocLocalVarToRef(wbt: TWasmBasicType; out ref: treference);
|
|
procedure allocLocalVarToRef(wbt: TWasmBasicType; out ref: treference);
|
|
- procedure deallocLocalVar(wbt: TWasmBasicType; idx: integer);
|
|
|
|
procedure LocalVarToRef(idx: integer; size: Integer; out ref: treference);
|
|
procedure LocalVarToRef(idx: integer; size: Integer; out ref: treference);
|
|
protected
|
|
protected
|
|
// procedure getimplicitobjtemp(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference);
|
|
// procedure getimplicitobjtemp(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference);
|
|
@@ -401,11 +400,6 @@ unit tgcpu;
|
|
localVarToRef(idx, 1, ref);
|
|
localVarToRef(idx, 1, ref);
|
|
end;
|
|
end;
|
|
|
|
|
|
- procedure ttgwasm.deallocLocalVar(wbt: TWasmBasicType; idx: integer);
|
|
|
|
- begin
|
|
|
|
- localvars.dealloc(wbt, idx);
|
|
|
|
- end;
|
|
|
|
-
|
|
|
|
procedure ttgwasm.localVarToRef(idx: integer; size: integer; out ref: treference);
|
|
procedure ttgwasm.localVarToRef(idx: integer; size: integer; out ref: treference);
|
|
begin
|
|
begin
|
|
reference_reset_base(ref,NR_LOCAL_STACK_POINTER_REG,idx,ctempposinvalid,size,[]);
|
|
reference_reset_base(ref,NR_LOCAL_STACK_POINTER_REG,idx,ctempposinvalid,size,[]);
|