mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 22:09:28 +02:00
+ support load/store with op_const
This commit is contained in:
parent
7e9607a62c
commit
9e0c028142
@ -675,6 +675,12 @@ uses
|
|||||||
UlebSize(ref^.offset);
|
UlebSize(ref^.offset);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
top_const:
|
||||||
|
begin
|
||||||
|
Result:=1+
|
||||||
|
UlebSize(natural_alignment_for_load_store(opcode))+
|
||||||
|
UlebSize(val);
|
||||||
|
end;
|
||||||
else
|
else
|
||||||
internalerror(2021092017);
|
internalerror(2021092017);
|
||||||
end;
|
end;
|
||||||
@ -1334,6 +1340,11 @@ uses
|
|||||||
WriteUleb(ref^.offset);
|
WriteUleb(ref^.offset);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
top_const:
|
||||||
|
begin
|
||||||
|
WriteUleb(natural_alignment_for_load_store(opcode));
|
||||||
|
WriteUleb(val);
|
||||||
|
end;
|
||||||
else
|
else
|
||||||
internalerror(2021092017);
|
internalerror(2021092017);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user