Browse Source

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

git-svn-id: branches/wasm@47883 -
nickysn 4 years ago
parent
commit
4a1c295955
1 changed files with 0 additions and 15 deletions
  1. 0 15
      compiler/wasm32/tgcpu.pas

+ 0 - 15
compiler/wasm32/tgcpu.pas

@@ -75,7 +75,6 @@ unit tgcpu;
          constructor create; override;
          constructor create; override;
          destructor destroy; override;
          destructor destroy; override;
          procedure setfirsttemp(l : asizeint); 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 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 gethltempmanaged(list: TAsmList; def: tdef; temptype: ttemptype; out ref: treference); override;
          procedure ungettemp(list: TAsmList; const ref : treference); override;
          procedure ungettemp(list: TAsmList; const ref : treference); override;
@@ -170,20 +169,6 @@ unit tgcpu;
       end;
       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);
     procedure ttgwasm.gethltemp(list: TAsmList; def: tdef; forcesize: asizeint; temptype: ttemptype; out ref: treference);
       var
       var
         wbt: TWasmBasicType;
         wbt: TWasmBasicType;