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

- don't override thlcgwasm.gen_load_return_value

Browse Source 
git-svn-id: branches/wasm@48063 -
This commit is contained in:
nickysn 2021-01-04 16:47:43 +00:00
parent e7ce1feed0
commit e04c1221a2
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/wasm32/hlcgcpu.pas
View File

@ -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_*