* fixed test tb0309.pp for i8086 medium/compact memory models

git-svn-id: trunk@25821 -

tests/tbs/tb0309.pp

@@ -29,7 +29,7 @@ type
 var
    p : pa;
    data : array[0..4] of longint;
-   saveexit : pointer;
+   saveexit : codepointer;
 
   procedure testerror;
     begin