Fix test for compact and medium i8086 memory model

git-svn-id: trunk@34074 -

tests/tbs/tb0018.pp

@@ -23,7 +23,7 @@ constructor tobject.c;
   end;
 
 var
-   p : pointer;
+   p : codepointer;
 
 begin
    p:=@a;

tests/tbs/tb0042.pp

@@ -8,7 +8,7 @@ procedure test;
 
 var
    p1 : procedure;
-   p2 : pointer;
+   p2 : codepointer;
 
 begin
    p1:=@test;

tests/tbs/tb0241b.pp

@@ -32,7 +32,7 @@ begin
 end;
 
 var
-  p : pointer;
+  p : codepointer;
 
 begin
   writeln('vreemd!');

tests/tbs/tb0403.pp

@@ -10,7 +10,7 @@ begin
 end;
 
 var
-  p: pointer;
+  p: codepointer;
 begin
   p := @tclass.t;
 end.