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

* small array push to open array fixed, open array always needs addr

Browse Source 
pushing
This commit is contained in:
peter 1999-09-07 07:54:23 +00:00
parent f89f09413b
commit 2c94850f4c
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/cg386cal.pas
View File

@ -154,7 +154,12 @@ implementation
tempdeftype:=p^.resulttype^.deftype; tempdeftype:=p^.resulttype^.deftype;
if tempdeftype=filedef then if tempdeftype=filedef then
CGMessage(cg_e_file_must_call_by_reference); CGMessage(cg_e_file_must_call_by_reference);
if push_addr_param(p^.resulttype) then { open array must always push the address, this is needed to
also push addr of small arrays (PFV) }
if (assigned(defcoll^.data) and
is_open_array(defcoll^.data)) or
push_addr_param(p^.resulttype) then
begin begin
maybe_push_high; maybe_push_high;
inc(pushedparasize,4); inc(pushedparasize,4);
@ -927,7 +932,8 @@ implementation
{ this fails if popsize > 0 PM } { this fails if popsize > 0 PM }
p^.location.loc:=LOC_FLAGS; p^.location.loc:=LOC_FLAGS;
p^.location.resflags:=F_NE; p^.location.resflags:=F_NE;
if extended_new then if extended_new then
begin begin
{$ifdef test_dest_loc} {$ifdef test_dest_loc}
@ -1211,7 +1217,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.102 1999-08-25 11:59:39 jonas Revision 1.103 1999-09-07 07:54:23 peter
* small array push to open array fixed, open array always needs addr
pushing
Revision 1.102 1999/08/25 11:59:39 jonas
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu) * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
Revision 1.101 1999/08/23 23:38:18 pierre Revision 1.101 1999/08/23 23:38:18 pierre