Fix test for compact and medium i8086 memory model

git-svn-id: trunk@34072 -

tests/test/cg/taddr1.pp

@@ -51,7 +51,7 @@ var
  pcharptr : pchar;
  plongint : ^longint;
  long: longint;
- ptr: pointer;
+ ptr: codepointer;
 begin
  { Test procedure variable }
  procptr:=@testprocvar;