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

- removed commented out code from thlcgwasm.g_proc_entry

Browse Source 
git-svn-id: branches/wasm@48325 -
This commit is contained in:
nickysn 2021-01-22 15:24:11 +00:00
parent 83f88e515b
commit f3482acbf9
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

@ -1499,13 +1499,6 @@ implementation
ttgwasm(tg).allocframepointer(list,pd.frame_pointer_ref);
ttgwasm(tg).allocbasepointer(list,pd.base_pointer_ref);
{ the localsize is based on tg.lasttemp -> already in terms of stack
slots rather than bytes }
//list.concat(tai_directive.Create(asd_jlimit,'locals '+tostr(localsize)));
{ we insert the unit initialisation code afterwards in the proginit code,
and it uses one stack slot }
//if (current_procinfo.procdef.proctypeoption=potype_proginit) then
//fmaxevalstackheight:=max(1,fmaxevalstackheight);
list.Concat(tai_local.create(wbt_i32,FRAME_POINTER_SYM)); //TWasmBasicType
list.Concat(tai_local.create(wbt_i32,BASE_POINTER_SYM)); //TWasmBasicType
@ -1530,8 +1523,6 @@ implementation
list.Concat(taicpu.op_sym(a_global_set,current_asmdata.RefAsmSymbol(STACK_POINTER_SYM,AT_LABEL)));
decstack(list,1);
end;
//list.concat(tai_directive.Create(asd_jlimit,'stack '+tostr(fmaxevalstackheight)));
end;
procedure thlcgwasm.g_proc_exit(list: TAsmList; parasize: longint; nostackframe: boolean);