+ Used macros ABI_AIX and ABI_SYSV exchanged to FPC_ABI_AIX and FPC_ABI_SYSV.

This commit is contained in:
olle 2003-09-06 10:44:41 +00:00
parent 82e40f6506
commit 103019fb39

View File

@ -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