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

* formatting

Browse Source 
git-svn-id: branches/wasm@47175 -
This commit is contained in:
nickysn 2020-10-24 16:51:48 +00:00
parent 1d8c5edbcc
commit 0bb255709f
1 changed files with 35 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
compiler/wasm32/hlcgcpu.pas
View File

@ -1042,41 +1042,42 @@ implementation
internalerror(2020102401);
end
else if ref.index <> NR_NO then // array access
begin
// it's just faster to sum two of those together
list.Concat(taicpu.op_reg(a_get_local, ref.base));
list.Concat(taicpu.op_reg(a_get_local, ref.index));
list.Concat(taicpu.op_none(a_i32_add));
end else if (ref.base<>NR_NO) then
begin
if (ref.base<>NR_STACK_POINTER_REG) then
begin
{ regular field -> load self on the stack }
a_load_reg_stack(list,voidpointertype,ref.base);
if dup then
begin
internalerror(2019083002);
//todo: add duplicate
//list.concat(taicpu.op_none(a_dup));
incstack(list,1);
end;
{ field name/type encoded in symbol, no index/offset }
result:=1;
end
else // if (ref.base = NR_FRAME_POINTER_REG) then
begin
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(FRAME_POINTER_SYM,AT_ADDR) ));
end;
end
else
begin
{ static field -> nothing to do here, except for validity check }
{if not assigned(ref.symbol) or
(ref.offset<>0) then
begin
// it's just faster to sum two of those together
list.Concat(taicpu.op_reg(a_get_local, ref.base));
list.Concat(taicpu.op_reg(a_get_local, ref.index));
list.Concat(taicpu.op_none(a_i32_add));
end
else if (ref.base<>NR_NO) then
begin
if (ref.base<>NR_STACK_POINTER_REG) then
begin
internalerror(2010120525);
end;}
end;
{ regular field -> load self on the stack }
a_load_reg_stack(list,voidpointertype,ref.base);
if dup then
begin
internalerror(2019083002);
//todo: add duplicate
//list.concat(taicpu.op_none(a_dup));
incstack(list,1);
end;
{ field name/type encoded in symbol, no index/offset }
result:=1;
end
else // if (ref.base = NR_FRAME_POINTER_REG) then
begin
list.Concat(taicpu.op_sym(a_get_local, current_asmdata.RefAsmSymbol(FRAME_POINTER_SYM,AT_ADDR) ));
end;
end
else
begin
{ static field -> nothing to do here, except for validity check }
{if not assigned(ref.symbol) or
(ref.offset<>0) then
begin
internalerror(2010120525);
end;}
end;
end;
procedure thlcgwasm.a_load_const_reg(list: TAsmList; tosize: tdef; a: tcgint; register: tregister);