From ffe2940b01e867dbabceb7fe3873eaeaf6218e99 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 5 Jul 2016 22:32:19 +0000
Subject: [PATCH]  Fix test for compact and medium i8086 memory model

git-svn-id: trunk@34073 -
---
 tests/test/units/dos/tfattr.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/units/dos/tfattr.pp b/tests/test/units/dos/tfattr.pp
index b0362a005e..bda6e393e3 100644
--- a/tests/test/units/dos/tfattr.pp
+++ b/tests/test/units/dos/tfattr.pp
@@ -301,7 +301,7 @@ end;
 
 var
  f: file;
- oldexit : pointer;
+ oldexit : codepointer;
 
   procedure MyExit;far;
    begin