paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 22:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test tmacprocvar for i8086 far code memory models

Browse Source 
git-svn-id: trunk@25823 -
This commit is contained in:
nickysn 2013-10-18 17:23:25 +00:00
parent 38ad4974fd
commit aab978fd19
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/tmacprocvar.pp
View File

@ -6,7 +6,15 @@ program tmacprocvar;
type
SInt8 = -128..127;
{$IFDEF CPUI8086}
{$if defined(FPC_MM_MEDIUM) or defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
Ptr = ^SInt8;far;
{$else}
Ptr = ^SInt8;near;
{$endif}
{$ELSE CPUI8086}
Ptr = ^SInt8;
{$ENDIF}
ProcPtr = Ptr; {This is the definition of ProcPtr in Apples Univ Interfaces}
procedure A;