mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 22:06:08 +02:00
+ Used macros ABI_AIX and ABI_SYSV exchanged to FPC_ABI_AIX and FPC_ABI_SYSV.
This commit is contained in:
parent
82e40f6506
commit
103019fb39
@ -349,7 +349,7 @@ end;
|
||||
Procedure FillChar(var x;count:longint;value:byte);assembler;
|
||||
{ input: x in r3, count in r4, value in r5 }
|
||||
|
||||
{$ifndef ABI_AIX}
|
||||
{$ifndef FPC_ABI_AIX}
|
||||
{ in the AIX ABI, we can use te red zone for temp storage, otherwise we have }
|
||||
{ to explicitely allocate room }
|
||||
var
|
||||
@ -358,7 +358,7 @@ var
|
||||
0: (l1,l2: longint);
|
||||
1: (d: double);
|
||||
end;
|
||||
{$endif ABI_AIX}
|
||||
{$endif FPC_ABI_AIX}
|
||||
asm
|
||||
{ no bytes? }
|
||||
cmpwi cr6,r4,0
|
||||
@ -429,15 +429,15 @@ LFillCharDCBZLoop:
|
||||
beq LFillCharDone
|
||||
b LFillCharVerySmall
|
||||
LFillCharNoZero:
|
||||
{$ifdef ABI_AIX}
|
||||
{$ifdef FPC_ABI_AIX}
|
||||
stw r5,0(sp)
|
||||
stw r5,4(sp)
|
||||
lfd f0,0(sp)
|
||||
{$else ABI_AIX}
|
||||
{$else FPC_ABI_AIX}
|
||||
stw r5,temp
|
||||
stw r5,4+temp
|
||||
lfd f0,temp
|
||||
{$endif ABI_AIX}
|
||||
{$endif FPC_ABI_AIX}
|
||||
{ make r3 point to address-8, so we're able to use fp double stores }
|
||||
{ with update (it's already -4 now) }
|
||||
subi r3,r3,4
|
||||
@ -874,11 +874,11 @@ asm
|
||||
lwz r3,0(r3)
|
||||
cmplwi r3,0
|
||||
beq Lcaller_addr_frame_null
|
||||
{$ifdef ABI_AIX}
|
||||
{$ifdef FPC_ABI_AIX}
|
||||
lwz r3,8(r3)
|
||||
{$else}
|
||||
{$else FPC_ABI_AIX}
|
||||
lwz r3,4(r3)
|
||||
{$endif}
|
||||
{$endif FPC_ABI_AIX}
|
||||
Lcaller_addr_frame_null:
|
||||
end;
|
||||
|
||||
@ -966,7 +966,10 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.52 2003-08-24 20:47:49 olle
|
||||
Revision 1.53 2003-09-06 10:44:41 olle
|
||||
+ Used macros ABI_AIX and ABI_SYSV exchanged to FPC_ABI_AIX and FPC_ABI_SYSV.
|
||||
|
||||
Revision 1.52 2003/08/24 20:47:49 olle
|
||||
+ added support for ABI_AIX in get_caller_addr
|
||||
|
||||
Revision 1.51 2003/06/14 12:41:08 jonas
|
||||
|
Loading…
Reference in New Issue
Block a user