mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 09:06:02 +02:00
* adapted tests for aix (assembler code, -CN switch, library name suffix)
git-svn-id: trunk@20843 -
This commit is contained in:
parent
247033cce1
commit
07a65fed6b
@ -22,7 +22,7 @@ end ['EAX'];
|
|||||||
end ['D0'];
|
end ['D0'];
|
||||||
{$endif CPU68K}
|
{$endif CPU68K}
|
||||||
{$ifdef cpupowerpc}
|
{$ifdef cpupowerpc}
|
||||||
{$ifndef macos}
|
{$if not defined(macos) and not defined(aix)}
|
||||||
lis r3, stacksize@ha
|
lis r3, stacksize@ha
|
||||||
lwz r3, stacksize@l(r3)
|
lwz r3, stacksize@l(r3)
|
||||||
{$else macos}
|
{$else macos}
|
||||||
|
@ -1,5 +1,9 @@
|
|||||||
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
|
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
|
||||||
|
|
||||||
|
{$ifdef aix}
|
||||||
|
{$CHECKLOWADDRLOADS+}
|
||||||
|
{$endif}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils;
|
Classes, SysUtils;
|
||||||
|
|
||||||
|
@ -12,11 +12,7 @@ const
|
|||||||
{$ifdef windows}
|
{$ifdef windows}
|
||||||
libname='tw16263a.dll';
|
libname='tw16263a.dll';
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef darwin}
|
libname = './libtw16263a.'+SharedSuffix;
|
||||||
libname = './libtw16263a.dylib';
|
|
||||||
{$else darwin}
|
|
||||||
libname = './libtw16263a.so';
|
|
||||||
{$endif darwin}
|
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
var
|
var
|
||||||
|
@ -10,11 +10,7 @@ var
|
|||||||
h: TLibHandle;
|
h: TLibHandle;
|
||||||
const
|
const
|
||||||
{$ifdef unix}
|
{$ifdef unix}
|
||||||
{$ifdef darwin}
|
libname = './libtw6822a.'+SharedSuffix;
|
||||||
libname = './libtw6822a.dylib';
|
|
||||||
{$else darwin}
|
|
||||||
libname = './libtw6822a.so';
|
|
||||||
{$endif darwin}
|
|
||||||
{$endif unix}
|
{$endif unix}
|
||||||
|
|
||||||
{$ifdef windows}
|
{$ifdef windows}
|
||||||
|
@ -16,15 +16,16 @@ asm
|
|||||||
// for simplicity sake do not bother about setting the GOT and
|
// for simplicity sake do not bother about setting the GOT and
|
||||||
// environment pointer correctly
|
// environment pointer correctly
|
||||||
ld r4,0(r3)
|
ld r4,0(r3)
|
||||||
{$ifdef linux}
|
|
||||||
ld r4,+vmtoffset tc.v(r4)
|
ld r4,+vmtoffset tc.v(r4)
|
||||||
|
{$if defined(linux) or defined(aix)}
|
||||||
ld r4,0(r4)
|
ld r4,0(r4)
|
||||||
{$else linux}
|
{$endif linux or aix}
|
||||||
ld r4,+vmtoffset tc.v(r4)
|
|
||||||
{$endif linux}
|
|
||||||
{$else}
|
{$else}
|
||||||
lwz r4,0(r3)
|
lwz r4,0(r3)
|
||||||
lwz r4,+vmtoffset tc.v(r4)
|
lwz r4,+vmtoffset tc.v(r4)
|
||||||
|
{$if defined(aix)}
|
||||||
|
lwz r4,0(r4)
|
||||||
|
{$endif aix}
|
||||||
{$endif}
|
{$endif}
|
||||||
mtctr r4
|
mtctr r4
|
||||||
bctr
|
bctr
|
||||||
|
@ -1,3 +1,9 @@
|
|||||||
|
{ %opt=-CN }
|
||||||
|
|
||||||
|
{ the -CN is to generated null pointer load checks for AIX,
|
||||||
|
ignored on other platforms because there the OS performs
|
||||||
|
this checking for you }
|
||||||
|
|
||||||
{$mode objfpc}
|
{$mode objfpc}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
Loading…
Reference in New Issue
Block a user