fpc/tw36156.pp at fixes_3_2 - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 00:49:30 +02:00

Jonas Maebe bd4f2057e5 --- Merging r43186 into '.':

U    compiler/ngtcon.pas
A    tests/webtbs/tw36156.pp
--- Recording mergeinfo for merge of r43186 into '.':
 U   .
--- Merging r43594 into '.':
U    compiler/ncnv.pas
A    tests/test/units/cocoaall/tw36362.pp
--- Recording mergeinfo for merge of r43594 into '.':
 G   .
--- Merging r44788 into '.':
U    packages/fpmkunit/src/fpmkunit.pp
--- Recording mergeinfo for merge of r44788 into '.':
 G   .
--- Merging r45380 into '.':
G    packages/fpmkunit/src/fpmkunit.pp
--- Recording mergeinfo for merge of r45380 into '.':
 G   .
--- Merging r45673 into '.':
U    compiler/pinline.pas
A    tests/webtbs/tw37228.pp
--- Recording mergeinfo for merge of r45673 into '.':
 G   .

git-svn-id: branches/fixes_3_2@45770 -

2020-07-11 14:40:18 +00:00

18 lines

353 B

ObjectPascal

Raw Permalink Blame History

 program Project1;
 type
   TBitSize = -7..7;
   TFpDbgValueSize = bitpacked record
     Size: Int64;
     BitSize: TBitSize;
   end;
 const
   gcFpDbgValueSize: TFpDbgValueSize = (Size: $7FFFFFFF; BitSize: 2);
 begin
   writeln(hexstr(gcFpDbgValueSize.Size,16));
   writeln(gcFpDbgValueSize.BitSize);
   if gcFpDbgValueSize.Size<>$7fffffff then
     halt(1);
 end.