Fix test for compact and medium i8086 memory model

git-svn-id: trunk@34073 -

tests/test/units/dos/tfattr.pp

@@ -301,7 +301,7 @@ end;
 
 var
  f: file;
- oldexit : pointer;
+ oldexit : codepointer;
 
   procedure MyExit;far;
    begin