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

* fixed passing of small const arrays and const records, they are always passed by reference

Browse Source
This commit is contained in:
florian 2003-05-11 23:19:32 +00:00
parent 3aeff19a60
commit 65eba18e20
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/powerpc/cpupara.pas
View File

@ -28,11 +28,13 @@ unit cpupara;
interface
uses
globtype,
cpubase,
symconst,symbase,symtype,symdef,paramgr;
type
tppcparamanager = class(tparamanager)
function push_addr_param(def : tdef;calloption : tproccalloption) : boolean;override;
function getintparaloc(nr : longint) : tparalocation;override;
procedure create_param_loc_info(p : tabstractprocdef);override;
function getfuncretparaloc(p : tabstractprocdef) : tparalocation;override;
@ -42,7 +44,6 @@ unit cpupara;
uses
verbose,
globtype,
cpuinfo,cginfo,cgbase,
defutil;
@ -122,6 +123,21 @@ unit cpupara;
end;
end;
function tppcparamanager.push_addr_param(def : tdef;calloption : tproccalloption) : boolean;
begin
case def.deftype of
recorddef:
push_addr_param:=true;
arraydef:
push_addr_param:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or
is_open_array(def) or
is_array_of_const(def) or
is_array_constructor(def);
else
push_addr_param:=inherited push_addr_param(def,calloption);
end;
end;
procedure tppcparamanager.create_param_loc_info(p : tabstractprocdef);
var
@ -295,7 +311,10 @@ begin
end.
{
$Log$
Revision 1.27 2003-04-26 11:30:59 florian
Revision 1.28 2003-05-11 23:19:32 florian
* fixed passing of small const arrays and const records, they are always passed by reference
Revision 1.27 2003/04/26 11:30:59 florian
* fixed the powerpc to work with the new function result handling
Revision 1.26 2003/04/23 12:35:35 florian