paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +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
This commit is contained in:
Sven Barth 2021-12-01 23:36:27 +01:00
parent 89aeedac1e
commit 5412e463ff
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 TORDINALHELPER:=TNativeIntSysHelper}
{$define TORDINALBITINDEX:=TNativeIntBitIndex} {$define TORDINALBITINDEX:=TNativeIntBitIndex}
{$ifdef cpu16} {$define TORDINALNIBBLEINDEX:=TNativeIntNibbleIndex}
{$define TORDINALNIBBLEINDEX:=TSmallIntNibbleIndex}
{$endif}
{$ifdef cpu32}
{$define TORDINALNIBBLEINDEX:=TIntegerNibbleIndex}
{$endif}
{$ifdef cpu64}
{$define TORDINALNIBBLEINDEX:=TInt64NibbleIndex}
{$endif}
{$i syshelperso.inc} {$i syshelperso.inc}
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -346,15 +338,7 @@ end;
{$define TORDINALHELPER:=TNativeUIntSysHelper} {$define TORDINALHELPER:=TNativeUIntSysHelper}
{$define TORDINALBITINDEX:=TNativeUIntBitIndex} {$define TORDINALBITINDEX:=TNativeUIntBitIndex}
{$ifdef cpu16} {$define TORDINALNIBBLEINDEX:=TNativeUIntNibbleIndex}
{$define TORDINALNIBBLEINDEX:=TWordNibbleIndex}
{$endif}
{$ifdef cpu32}
{$define TORDINALNIBBLEINDEX:=TDwordNibbleIndex}
{$endif}
{$ifdef cpu64}
{$define TORDINALNIBBLEINDEX:=TQwordNibbleIndex}
{$endif}
{$i syshelperso.inc} {$i syshelperso.inc}
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------