paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 09:10:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@37651 -
This commit is contained in:
nickysn 2017-12-01 20:42:14 +00:00
parent 1b14212b47
commit f1b14555b1
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/fv/src/platform.inc
View File

@ -505,6 +505,34 @@ FOR FPC THESE ARE THE TRANSLATIONS
{$DEFINE BIT_32_OR_MORE} {$DEFINE BIT_32_OR_MORE}
{$ENDIF} {$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}