paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 00:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the ttgwasm.getlocal override, so that local variables are allocated on the linear stack

Browse Source 
git-svn-id: branches/wasm@47883 -
This commit is contained in:
nickysn 2020-12-29 03:20:55 +00:00
parent 11989ce010
commit 4a1c295955
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/wasm32/tgcpu.pas
View File

@ -75,7 +75,6 @@ unit tgcpu;
constructor create; override;
destructor destroy; override;
procedure setfirsttemp(l : asizeint); override;
procedure getlocal(list: TAsmList; size: asizeint; alignment: shortint; def: tdef; var ref: treference); override;
procedure gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference); override;
procedure gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
procedure ungettemp(list: TAsmList; const ref : treference); override;
@ -170,20 +169,6 @@ unit tgcpu;
end;
procedure ttgwasm.getlocal(list: TAsmList; size: asizeint; alignment: shortint; def: tdef; var ref: treference);
var
wbt : TWasmBasicType;
idx : integer;
begin
if defToWasmBasic(def, wbt) then
alloclocalVarToRef(wbt, ref)
else begin
//Internalerror(2019091801); // no support of structural type
inherited;
end;
end;
procedure ttgwasm.gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference);
var
wbt: TWasmBasicType;