From c8b1ca59d594352a4c7bf3be8883b6df2a3457e8 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 5 Jul 2016 22:11:28 +0000
Subject: [PATCH]  Fix test for compact and medium i8086 memory model

git-svn-id: trunk@34071 -
---
 tests/webtbs/tw24536.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/webtbs/tw24536.pp b/tests/webtbs/tw24536.pp
index 56d789929d..1d7d21d9e0 100644
--- a/tests/webtbs/tw24536.pp
+++ b/tests/webtbs/tw24536.pp
@@ -9,7 +9,7 @@ type
   end;
 
 var
-  Foo,Foo2: Pointer;
+  Foo,Foo2: CodePointer;
 begin
   Foo := @TMyClass.MyAbstractMethod;
   Foo2 := @TMyClass.MyAbstractMethod2;