mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 15:59:31 +01:00
- removed passes_parameters_in_reg
This commit is contained in:
parent
8d2d59325a
commit
36e41d49d3
@ -36,7 +36,6 @@ unit cpupara;
|
|||||||
function getintparaloc(nr : longint) : tparalocation;override;
|
function getintparaloc(nr : longint) : tparalocation;override;
|
||||||
procedure create_param_loc_info(p : tabstractprocdef);override;
|
procedure create_param_loc_info(p : tabstractprocdef);override;
|
||||||
function getfuncretparaloc(p : tabstractprocdef) : tparalocation;override;
|
function getfuncretparaloc(p : tabstractprocdef) : tparalocation;override;
|
||||||
function passes_parameters_in_reg(p : tabstractprocdef) : boolean;override;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -231,17 +230,15 @@ unit cpupara;
|
|||||||
getfuncretparaloc.size:=OS_ADDR;
|
getfuncretparaloc.size:=OS_ADDR;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function tppcparamanager.passes_parameters_in_reg(p : tabstractprocdef) : boolean;
|
|
||||||
begin
|
|
||||||
passes_parameters_in_reg:=true;
|
|
||||||
end;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
paramanager:=tppcparamanager.create;
|
paramanager:=tppcparamanager.create;
|
||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.11 2002-09-07 17:54:59 florian
|
Revision 1.12 2002-09-09 09:11:37 florian
|
||||||
|
- removed passes_parameters_in_reg
|
||||||
|
|
||||||
|
Revision 1.11 2002/09/07 17:54:59 florian
|
||||||
* first part of PowerPC fixes
|
* first part of PowerPC fixes
|
||||||
|
|
||||||
Revision 1.10 2002/09/01 21:04:49 florian
|
Revision 1.10 2002/09/01 21:04:49 florian
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user