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

+ aix/ppc32 support

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

4
tests/test/opt/tretopt.pp
View File

@ -259,7 +259,7 @@ begin
asm asm
{$ifdef cpupowerpc32} {$ifdef cpupowerpc32}
la r3,t la r3,t
{$ifndef macos} {$if not defined(macos) and not defined(aix)}
lis r4,p3@ha lis r4,p3@ha
addi r4,r4,p3@l addi r4,r4,p3@l
{$else} {$else}
@ -310,7 +310,7 @@ begin
asm asm
{$ifdef cpupowerpc32} {$ifdef cpupowerpc32}
la r3,t la r3,t
{$ifndef macos} {$if not defined(macos) and not defined(aix)}
lis r4,p3@ha lis r4,p3@ha
addi r4,r4,p3@l addi r4,r4,p3@l
{$else} {$else}