paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced constants FRAME_POINTER_SYM and BASE_POINTER_SYM

Browse Source 
git-svn-id: branches/wasm@46799 -
This commit is contained in:
nickysn 2020-09-08 08:32:10 +00:00
parent d7559d7a38
commit 76f269811f
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/cpubase.pas
View File

@ -271,6 +271,8 @@ uses
*****************************************************************************} *****************************************************************************}
maxfpuregs = 0; maxfpuregs = 0;
FRAME_POINTER_SYM = '$fp';
BASE_POINTER_SYM = '$bp';
{***************************************************************************** {*****************************************************************************
Helpers Helpers

18
compiler/wasm32/hlcgcpu.pas
View File

@ -1057,7 +1057,7 @@ implementation
end end
else // if (ref.base = NR_FRAME_POINTER_REG) then else // if (ref.base = NR_FRAME_POINTER_REG) then
begin begin
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol('fp',AT_ADDR) )); list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(FRAME_POINTER_SYM,AT_ADDR) ));
end; end;
end end
else else
@ -1147,7 +1147,7 @@ implementation
// reading back to the register // reading back to the register
a_load_stack_reg(list, tosize, r); a_load_stack_reg(list, tosize, r);
end else if (ref.base = NR_FRAME_POINTER_REG) then begin end else if (ref.base = NR_FRAME_POINTER_REG) then begin
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol('fp',AT_ADDR) )); list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(FRAME_POINTER_SYM,AT_ADDR) ));
list.Concat(taicpu.op_const(a_i32_const, ref.offset)); list.Concat(taicpu.op_const(a_i32_const, ref.offset));
// todo: index? // todo: index?
list.Concat(taicpu.op_none(a_i32_add)); list.Concat(taicpu.op_none(a_i32_add));
@ -1677,18 +1677,18 @@ implementation
and it uses one stack slot } and it uses one stack slot }
//if (current_procinfo.procdef.proctypeoption=potype_proginit) then //if (current_procinfo.procdef.proctypeoption=potype_proginit) then
//fmaxevalstackheight:=max(1,fmaxevalstackheight); //fmaxevalstackheight:=max(1,fmaxevalstackheight);
list.Concat(tai_local.create(wbt_i32, '$fp')); //TWasmBasicType list.Concat(tai_local.create(wbt_i32, FRAME_POINTER_SYM)); //TWasmBasicType
list.Concat(tai_local.create(wbt_i32, '$bp')); //TWasmBasicType list.Concat(tai_local.create(wbt_i32, BASE_POINTER_SYM)); //TWasmBasicType
list.Concat(taicpu.op_sym(a_get_global , current_asmdata.RefAsmSymbol('__stack_top',AT_LABEL))); list.Concat(taicpu.op_sym(a_get_global , current_asmdata.RefAsmSymbol('__stack_top',AT_LABEL)));
list.Concat(taicpu.op_sym(a_set_local, current_asmdata.RefAsmSymbol('bp',AT_LABEL))); list.Concat(taicpu.op_sym(a_set_local, current_asmdata.RefAsmSymbol(BASE_POINTER_SYM,AT_LABEL)));
if (localsize>0) then begin if (localsize>0) then begin
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol('bp',AT_LABEL))); list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(BASE_POINTER_SYM,AT_LABEL)));
list.concat(taicpu.op_const(a_i32_const, localsize )); list.concat(taicpu.op_const(a_i32_const, localsize ));
list.concat(taicpu.op_none(a_i32_sub)); list.concat(taicpu.op_none(a_i32_sub));
list.Concat(taicpu.op_sym(a_set_local, current_asmdata.RefAsmSymbol('fp',AT_LABEL))); list.Concat(taicpu.op_sym(a_set_local, current_asmdata.RefAsmSymbol(FRAME_POINTER_SYM,AT_LABEL)));
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol('fp',AT_LABEL))); list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(FRAME_POINTER_SYM,AT_LABEL)));
list.Concat(taicpu.op_sym(a_set_global, current_asmdata.RefAsmSymbol('__stack_top',AT_LABEL))); list.Concat(taicpu.op_sym(a_set_global, current_asmdata.RefAsmSymbol('__stack_top',AT_LABEL)));
end; end;
@ -1697,7 +1697,7 @@ implementation
procedure thlcgwasm.g_proc_exit(list: TAsmList; parasize: longint; nostackframe: boolean); procedure thlcgwasm.g_proc_exit(list: TAsmList; parasize: longint; nostackframe: boolean);
begin begin
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol('bp',AT_LABEL))); list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(BASE_POINTER_SYM,AT_LABEL)));
list.Concat(taicpu.op_sym(a_set_global , current_asmdata.RefAsmSymbol('__stack_top',AT_LABEL))); list.Concat(taicpu.op_sym(a_set_global , current_asmdata.RefAsmSymbol('__stack_top',AT_LABEL)));
list.concat(taicpu.op_none(a_return)); list.concat(taicpu.op_none(a_return));