mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 04:29:29 +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'];
|
||||
{$endif CPU68K}
|
||||
{$ifdef cpupowerpc}
|
||||
{$ifndef macos}
|
||||
{$if not defined(macos) and not defined(aix)}
|
||||
lis r3, stacksize@ha
|
||||
lwz r3, stacksize@l(r3)
|
||||
{$else macos}
|
||||
|
@ -1,5 +1,9 @@
|
||||
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
|
||||
|
||||
{$ifdef aix}
|
||||
{$CHECKLOWADDRLOADS+}
|
||||
{$endif}
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
|
@ -12,11 +12,7 @@ const
|
||||
{$ifdef windows}
|
||||
libname='tw16263a.dll';
|
||||
{$else}
|
||||
{$ifdef darwin}
|
||||
libname = './libtw16263a.dylib';
|
||||
{$else darwin}
|
||||
libname = './libtw16263a.so';
|
||||
{$endif darwin}
|
||||
libname = './libtw16263a.'+SharedSuffix;
|
||||
{$endif}
|
||||
|
||||
var
|
||||
|
@ -10,11 +10,7 @@ var
|
||||
h: TLibHandle;
|
||||
const
|
||||
{$ifdef unix}
|
||||
{$ifdef darwin}
|
||||
libname = './libtw6822a.dylib';
|
||||
{$else darwin}
|
||||
libname = './libtw6822a.so';
|
||||
{$endif darwin}
|
||||
libname = './libtw6822a.'+SharedSuffix;
|
||||
{$endif unix}
|
||||
|
||||
{$ifdef windows}
|
||||
|
@ -16,15 +16,16 @@ asm
|
||||
// for simplicity sake do not bother about setting the GOT and
|
||||
// environment pointer correctly
|
||||
ld r4,0(r3)
|
||||
{$ifdef linux}
|
||||
ld r4,+vmtoffset tc.v(r4)
|
||||
{$if defined(linux) or defined(aix)}
|
||||
ld r4,0(r4)
|
||||
{$else linux}
|
||||
ld r4,+vmtoffset tc.v(r4)
|
||||
{$endif linux}
|
||||
{$endif linux or aix}
|
||||
{$else}
|
||||
lwz r4,0(r3)
|
||||
lwz r4,+vmtoffset tc.v(r4)
|
||||
{$if defined(aix)}
|
||||
lwz r4,0(r4)
|
||||
{$endif aix}
|
||||
{$endif}
|
||||
mtctr r4
|
||||
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}
|
||||
|
||||
uses
|
||||
|
Loading…
Reference in New Issue
Block a user