Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fixed the far/huge data ifdefs in InitDosHeap

git-svn-id: trunk@28348 -
nickysn 11 years ago
parent
5edbd1cd03
commit
b1144508a7
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/msdos/system.pp

+ 1 - 1
rtl/msdos/system.pp
View File 

@@ -311,7 +311,7 @@ end;
 
 
 
 procedure InitDosHeap;
 
 procedure InitDosHeap;
 
 type
 
 type
 
-{$if defined(FPC_X86_FAR_DATA) or defined(FPC_X86_HUGE_DATA)}
 
+{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
 
   TPointerArithmeticType = HugePointer;
 
   TPointerArithmeticType = HugePointer;
 
 {$else}
 
 {$else}
 
   TPointerArithmeticType = Pointer;
 
   TPointerArithmeticType = Pointer;