paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ enabled the huge pointer size test in the tptrsize.pp test

Browse Source 
git-svn-id: trunk@28164 -
This commit is contained in:
nickysn 2014-07-05 10:30:55 +00:00
parent 6e9720e830
commit 5097b90e39
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/cpu16/i8086/tptrsize.pp
View File

@ -19,7 +19,7 @@ type
PNearFsInteger = ^Integer; near 'FS';
PNearGsInteger = ^Integer; near 'GS';
PFarInteger = ^Integer; far;
// PHugeInteger = ^Integer; huge;
PHugeInteger = ^Integer; huge;
begin
Write('SizeOf(PNearInteger) = ');
CheckSize(SizeOf(PNearInteger), 2);
@ -37,8 +37,8 @@ begin
CheckSize(SizeOf(PNearGsInteger), 2);
Write('SizeOf(PFarInteger) = ');
CheckSize(SizeOf(PFarInteger), 4);
{ Write('SizeOf(PHugeInteger) = ');
CheckSize(SizeOf(PHugeInteger), 4);}
Write('SizeOf(PHugeInteger) = ');
CheckSize(SizeOf(PHugeInteger), 4);
Write('SizeOf(NearPointer) = ');
CheckSize(SizeOf(NearPointer), 2);