paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ aix support for testsuite helper programs

Browse Source 
git-svn-id: trunk@20806 -
This commit is contained in:
Jonas Maebe 2012-04-11 18:02:23 +00:00
parent b93cc83703
commit 9efe09a827
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/utils/dotest.pp
View File

@ -609,7 +609,8 @@ begin
(LTarget='haiku') or (LTarget='haiku') or
(LTarget='solaris') or (LTarget='solaris') or
(LTarget='iphonesim') or (LTarget='iphonesim') or
(LTarget='darwin'); (LTarget='darwin') or
(LTarget='aix');
{ Set ExeExt for CompilerTarget. { Set ExeExt for CompilerTarget.
This list has been set up 2011-06 using the information in This list has been set up 2011-06 using the information in
@ -856,12 +857,14 @@ begin
{ Add runtime library path to current dir to find .so files } { Add runtime library path to current dir to find .so files }
if Config.NeedLibrary then if Config.NeedLibrary then
begin begin
if CompilerTarget<>'darwin' then if CompilerTarget='darwin' then
args:=args+' -Fl'+TestOutputDir
else if CompilerTarget='aix' then
args:=args+' -blibpath:'+TestOutputDir
else
{ do not use single quote for -k as they are mishandled on { do not use single quote for -k as they are mishandled on
Windows Shells } Windows Shells }
args:=args+' -Fl'+TestOutputDir+' -k-rpath -k.' args:=args+' -Fl'+TestOutputDir+' -k-rpath -k.'
else
args:=args+' -Fl'+TestOutputDir;
end; end;
end; end;
if Config.NeedOptions<>'' then if Config.NeedOptions<>'' then

3
tests/utils/redir.pp
View File

@ -50,6 +50,9 @@ Interface
{$ifdef sunos} {$ifdef sunos}
{$define implemented} {$define implemented}
{$endif} {$endif}
{$ifdef aix}
{$define implemented}
{$endif}
Var Var
IOStatus : Integer; IOStatus : Integer;