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

* indention fixed

Browse Source
This commit is contained in:
florian 2004-09-25 20:28:20 +00:00
parent 05ca833859
commit 36112785f8
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/powerpc/cpupara.pas
View File

@ -306,21 +306,21 @@ unit cpupara;
procedure assignintreg; procedure assignintreg;
begin begin
if nextintreg<=ord(NR_R10) then if nextintreg<=ord(NR_R10) then
begin begin
paraloc^.loc:=LOC_REGISTER; paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=newreg(R_INTREGISTER,nextintreg,R_SUBNONE); paraloc^.register:=newreg(R_INTREGISTER,nextintreg,R_SUBNONE);
inc(nextintreg); inc(nextintreg);
if target_info.abi=abi_powerpc_aix then if target_info.abi=abi_powerpc_aix then
inc(stack_offset,4);
end
else
begin
paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.index:=NR_STACK_POINTER_REG;
paraloc^.reference.offset:=stack_offset;
inc(stack_offset,4); inc(stack_offset,4);
end; end
else
begin
paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.index:=NR_STACK_POINTER_REG;
paraloc^.reference.offset:=stack_offset;
inc(stack_offset,4);
end;
end; end;
begin begin
@ -583,7 +583,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.68 2004-09-21 17:25:13 peter Revision 1.69 2004-09-25 20:28:20 florian
* indention fixed
Revision 1.68 2004/09/21 17:25:13 peter
* paraloc branch merged * paraloc branch merged
Revision 1.67.4.3 2004/09/18 20:21:08 jonas Revision 1.67.4.3 2004/09/18 20:21:08 jonas