paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the already existing TNative(U)IntNibbleIndex types for the TORDINALNIBBLEINDEX macro as this way memory models with far pointers (where Native(U)Int has a size of 4) is handled correctly as well

Browse Source 
(cherry picked from commit 5412e463ff)
This commit is contained in:
Sven Barth 2021-12-01 23:36:27 +01:00 committed by marcoonthegit
parent 87ad8e2622
commit 28006018ac
1 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/rtl-objpas/src/inc/syshelpers.pp
View File

@ -329,15 +329,7 @@ end;
{$define TORDINALHELPER:=TNativeIntSysHelper}
{$define TORDINALBITINDEX:=TNativeIntBitIndex}
{$ifdef cpu16}
{$define TORDINALNIBBLEINDEX:=TSmallIntNibbleIndex}
{$endif}
{$ifdef cpu32}
{$define TORDINALNIBBLEINDEX:=TIntegerNibbleIndex}
{$endif}
{$ifdef cpu64}
{$define TORDINALNIBBLEINDEX:=TInt64NibbleIndex}
{$endif}
{$define TORDINALNIBBLEINDEX:=TNativeIntNibbleIndex}
{$i syshelperso.inc}
{ ---------------------------------------------------------------------
@ -346,15 +338,7 @@ end;
{$define TORDINALHELPER:=TNativeUIntSysHelper}
{$define TORDINALBITINDEX:=TNativeUIntBitIndex}
{$ifdef cpu16}
{$define TORDINALNIBBLEINDEX:=TWordNibbleIndex}
{$endif}
{$ifdef cpu32}
{$define TORDINALNIBBLEINDEX:=TDwordNibbleIndex}
{$endif}
{$ifdef cpu64}
{$define TORDINALNIBBLEINDEX:=TQwordNibbleIndex}
{$endif}
{$define TORDINALNIBBLEINDEX:=TNativeUIntNibbleIndex}
{$i syshelperso.inc}
{ ---------------------------------------------------------------------