From f6e7bd5274ae878eb3f12ec73f36f6904019b545 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 23 Dec 2003 22:07:53 +0000
Subject: [PATCH]   * pointer typecast added

---
 tests/webtbs/tw1152.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/webtbs/tw1152.pp b/tests/webtbs/tw1152.pp
index 8f6cee03b1..196185c4f7 100644
--- a/tests/webtbs/tw1152.pp
+++ b/tests/webtbs/tw1152.pp
@@ -33,7 +33,7 @@ BEGIN
   exitproc:=@my_exit;
   finally_called:=false;
 try
-  p:=$ffffffff;
+  p:=pointer(-1);
   longint(p^):=0;
 finally
   finally_called:=true;