paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 01:50:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for constants in emit_push_mem_size for go32v2 (merged)

Browse Source
This commit is contained in:
peter 2000-08-10 18:42:03 +00:00
parent 393f200056
commit 1bb6c695e7
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/cgai386.pas
View File

@ -844,13 +844,19 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end;
procedure emit_push_mem_size(const t: treference; size: longint);
var
s: topsize;
begin
if t.is_immediate then
push_int(t.offset)
begin
if (size=4) or
(target_os.stackalignment=4) then
exprasmlist^.concat(new(paicpu,op_const(A_PUSH,S_L,t.offset)))
else
exprasmlist^.concat(new(paicpu,op_const(A_PUSH,S_W,t.offset)));
end
else
if size < 4 then
begin
@ -4061,7 +4067,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.8 2000-08-07 11:29:40 jonas
Revision 1.9 2000-08-10 18:42:03 peter
* fixed for constants in emit_push_mem_size for go32v2 (merged)
Revision 1.8 2000/08/07 11:29:40 jonas
+ emit_push_mem_size() which pushes a value in memory of a certain size
* pushsetelement() and pushvaluepara() use this new procedure, because
otherwise they could sometimes try to push data past the end of the