* fix test for msdos compact mode

git-svn-id: trunk@34268 -

tests/tbs/tb0163.pp

@@ -27,8 +27,12 @@ Begin
    f:=@dummy;
    if f()<>25 then
      Wrong('f() does not call dummy !!');
-   if pointer(@f)=pointer(@dummy) then
+{$if sizeof(Codepointer)=sizeof(pointer) }
+   if pointer(@f)=codepointer(@dummy) then
      Wrong('@f returns value of f !');
+{$else}
+   Writeln('address of variable and functions of different size');
+{$endif}
    if longint(f)=longint(@f) then
      Wrong('longint(@f)=longint(f) !!!!');
    if f<>@dummy then