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

* fixed -dnewra compilation problems

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-17 18:13:51 +00:00
parent 9b645eef82
commit aa9f048e02
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ncgutil.pas
View File

@ -1285,7 +1285,7 @@ implementation
if (current_procinfo.procdef.proctypeoption=potype_constructor) then
begin
{$ifdef newra}
r:=rg.getexplicitregint(NR_FUNCTION_RETURN_REG);
r:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN_REG);
{$else}
r.enum:=R_INTREGISTER;
r.number:=NR_FUNCTION_RETURN_REG;
@ -1331,8 +1331,8 @@ implementation
begin
uses_acchi:=true;
{$ifdef newra}
r:=rg.getexplicitregint(NR_FUNCTION_RETURN64_LOW_REG);
r2:=rg.getexplicitregint(NR_FUNCTION_RETURN64_HIGH_REG);
r:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN64_LOW_REG);
r2:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN64_HIGH_REG);
{$else}
r.enum:=R_INTREGISTER;
r.number:=NR_FUNCTION_RETURN64_LOW_REG;
@ -1347,7 +1347,7 @@ implementation
{$endif cpu64bit}
begin
{$ifdef newra}
hreg:=rg.getexplicitregint(NR_FUNCTION_RETURN_REG);
hreg:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN_REG);
{$else}
hreg.enum:=R_INTREGISTER;
hreg.number:=NR_FUNCTION_RETURN_REG;
@ -1379,8 +1379,8 @@ implementation
begin
uses_acchi:=true;
{$ifdef newra}
r:=rg.getexplicitregint(NR_FUNCTION_RETURN64_LOW_REG);
r2:=rg.getexplicitregint(NR_FUNCTION_RETURN64_HIGH_REG);
r:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN64_LOW_REG);
r2:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN64_HIGH_REG);
{$else}
r.enum:=R_INTREGISTER;
r.number:=NR_FUNCTION_RETURN64_LOW_REG;
@ -1395,7 +1395,7 @@ implementation
{$endif cpu64bit}
begin
{$ifdef newra}
hreg:=rg.getexplicitregint(NR_FUNCTION_RETURN_REG);
hreg:=rg.getexplicitregisterint(list,NR_FUNCTION_RETURN_REG);
{$else}
hreg.enum:=R_INTREGISTER;
hreg.number:=NR_FUNCTION_RETURN_REG;
@ -2002,7 +2002,10 @@ implementation
end.
{
$Log$
Revision 1.126 2003-06-17 16:32:44 peter
Revision 1.127 2003-06-17 18:13:51 jonas
* fixed -dnewra compilation problems
Revision 1.126 2003/06/17 16:32:44 peter
* alloc register for function result
Revision 1.125 2003/06/13 21:19:30 peter