From ad7fddf99a7b9589de602b191fdd7b7ebdd459a8 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 28 Mar 2007 13:42:18 +0000
Subject: [PATCH]   * made less complex for sparc so it compiles there too
 without running     out of registers

git-svn-id: trunk@7015 -
---
 tests/webtbs/tw2242.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/webtbs/tw2242.pp b/tests/webtbs/tw2242.pp
index fd8717c098..f027a6fb1f 100644
--- a/tests/webtbs/tw2242.pp
+++ b/tests/webtbs/tw2242.pp
@@ -10922,7 +10922,7 @@ s += chr(85);
 s += chr(86);
 s += chr(87);
 s += chr(88);
-{$ifndef cpuarm}
+{$if not defined(cpuarm) and not defined(cpusparc)}
 s += chr(89);
 s += chr(90);
 s += chr(65);
@@ -13076,6 +13076,6 @@ s += chr(80);
 s += chr(81);
 s += chr(82);
 s += chr(83);
-{$endif cpuarm}
+{$endif cpuarm or cpusparc}
 writeln(s)
 END.