From 396f4aa9abd5280bb829f2c405bef78bfc5bcc1a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 9 Dec 2003 19:38:25 +0000
Subject: [PATCH]   + linux/ppc support

---
 tests/tbs/tb0193.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/tbs/tb0193.pp b/tests/tbs/tb0193.pp
index 94eef632cb..fcca4fff06 100644
--- a/tests/tbs/tb0193.pp
+++ b/tests/tbs/tb0193.pp
@@ -14,7 +14,11 @@ end ['EAX'];
         move.l    HEAPSIZE,d0
 end ['D0'];
 {$endif CPU68K}
-
+{$ifdef cpupowerpc}
+       lis r3, heapsize@ha
+       lwz r3, heapsize@l(r3)
+end;
+{$endif cpupowerpc}
 
 begin
   writeln(getheapsize);