Browse Source

+ added i8086 memory model defines in free vision's platform.inc

git-svn-id: trunk@37651 -
nickysn 7 years ago
parent
commit
f1b14555b1
1 changed files with 29 additions and 1 deletions
  1. 29 1
      packages/fv/src/platform.inc

+ 29 - 1
packages/fv/src/platform.inc

@@ -505,6 +505,34 @@ FOR FPC THESE ARE THE TRANSLATIONS
   {$DEFINE BIT_32_OR_MORE}
 {$ENDIF}
 
-
+{---------------------------------------------------------------------------}
+{  FPC memory models                                                        }
+{---------------------------------------------------------------------------}
+
+{$ifdef FPC}
+  {$ifdef CPUI8086}
+    {$if defined(FPC_MM_TINY)}
+      {$define FPC_X86_CODE_NEAR}
+      {$define FPC_X86_DATA_NEAR}
+    {$elseif defined(FPC_MM_SMALL)}
+      {$define FPC_X86_CODE_NEAR}
+      {$define FPC_X86_DATA_NEAR}
+    {$elseif defined(FPC_MM_MEDIUM)}
+      {$define FPC_X86_CODE_FAR}
+      {$define FPC_X86_DATA_NEAR}
+    {$elseif defined(FPC_MM_COMPACT)}
+      {$define FPC_X86_CODE_NEAR}
+      {$define FPC_X86_DATA_FAR}
+    {$elseif defined(FPC_MM_LARGE)}
+      {$define FPC_X86_CODE_FAR}
+      {$define FPC_X86_DATA_FAR}
+    {$elseif defined(FPC_MM_HUGE)}
+      {$define FPC_X86_CODE_FAR}
+      {$define FPC_X86_DATA_HUGE}
+    {$else}
+      {$fatal No memory model defined}
+    {$endif}
+  {$endif}
+{$endif}