Browse Source

- don't override thlcgwasm.gen_load_return_value

git-svn-id: branches/wasm@48063 -
nickysn 4 years ago
parent
commit
e04c1221a2
1 changed files with 0 additions and 9 deletions
  1. 0 9
      compiler/wasm32/hlcgcpu.pas

+ 0 - 9
compiler/wasm32/hlcgcpu.pas

@@ -105,7 +105,6 @@ uses
       procedure g_proc_entry(list : TAsmList;localsize : longint;nostackframe:boolean); override;
       procedure g_proc_exit(list : TAsmList;parasize:longint;nostackframe:boolean); override;
 
-      procedure gen_load_return_value(list:TAsmList);override;
       procedure record_generated_code_for_procdef(pd: tprocdef; code, data: TAsmList); override;
 
       procedure g_overflowcheck(list: TAsmList; const Loc: tlocation; def: tdef); override;
@@ -1498,14 +1497,6 @@ implementation
       list.concat(taicpu.op_none(a_end_function));
     end;
 
-  procedure thlcgwasm.gen_load_return_value(list: TAsmList);
-    begin
-      { constructors don't return anything in the jvm }
-      if current_procinfo.procdef.proctypeoption in [potype_constructor,potype_class_constructor] then
-        exit;
-      inherited gen_load_return_value(list);
-    end;
-
   procedure thlcgwasm.record_generated_code_for_procdef(pd: tprocdef; code, data: TAsmList);
     begin
       { add something to the al_procedures list as well, because if all al_*