* adapted tests for aix (assembler code, -CN switch, library name suffix)

git-svn-id: trunk@20843 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:06:43 +00:00
parent 247033cce1
commit 07a65fed6b
6 changed files with 18 additions and 15 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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