From 18ab96362bb085b7ee67b7a538ab3e33d2b1893e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 3 Oct 2004 18:13:26 +0000
Subject: [PATCH]   + added sparc code

---
 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 ba42677a0c..e2c312383f 100644
--- a/tests/tbs/tb0193.pp
+++ b/tests/tbs/tb0193.pp
@@ -23,7 +23,11 @@ end ['D0'];
        lwz r3, heapsize@l(r3)
 end;
 {$endif cpupowerpc}
-
+{$ifdef cpusparc}
+       sethi   %hi(heapsize),%i0
+       or      %i0,%lo(heapsize),%i0
+end;
+{$endif cpusparc}
 begin
   writeln(getheapsize);
 end.