Browse Source

+ call the inherited methods for generating the standard entry/exit code, so that units are initialized/finalized

git-svn-id: branches/wasm@48286 -
nickysn 4 years ago
parent
commit
4d933d74b9
1 changed files with 2 additions and 3 deletions
  1. 2 3
      compiler/wasm32/hlcgcpu.pas

+ 2 - 3
compiler/wasm32/hlcgcpu.pas

@@ -1573,8 +1573,7 @@ implementation
 
   procedure thlcgwasm.gen_entry_code(list: TAsmList);
     begin
-      list.concat(Tai_force_line.Create);
-      { todo: inherited? }
+      inherited;
       list.concat(taicpu.op_none(a_block));
       incblock;
       exitBr:=br_blocks;
@@ -1586,7 +1585,7 @@ implementation
       decblock;
       if fevalstackheight<>0 then
         list.concat(tai_comment.Create(strpnew('!!! values remaining on stack at end of block !!!')));
-      { todo: inherited? }
+      inherited;
     end;
 
   procedure thlcgwasm.a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; srcsize, dstsize: tdef; src, dst: tregister);