mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:07:55 +02:00
3fb0fab410
As reported on the lazarus forum: * https://forum.lazarus.freepascal.org/index.php?topic=56341.new * https://forum.lazarus.freepascal.org/index.php/topic,56339.msg418608/topicseen.html Also optimized nextpowerof2 in the compiler
39 lines
1.1 KiB
ObjectPascal
39 lines
1.1 KiB
ObjectPascal
type
|
|
{ bit types for bitfields }
|
|
_62bits = 0 .. $3FFFFFFFFFFFFFFF;
|
|
_63bits = 0 .. $7FFFFFFFFFFFFFFF;
|
|
_64bits1 = 0 .. qword($8000000000000000);
|
|
_64bits2 = -1 .. $7FFFFFFFFFFFFFFF;
|
|
_64bits3 = -1 .. $7F00000000000000;
|
|
|
|
var
|
|
v2: bitpacked record
|
|
f1: _62bits;
|
|
f2: _63bits;
|
|
f3: _64bits1;
|
|
f4: _64bits2;
|
|
f5: _64bits3;
|
|
end;
|
|
|
|
begin
|
|
writeln('bitsizeof(_62bits): ',bitsizeof(v2.f1));
|
|
writeln('bitsizeof(_63bits): ',bitsizeof(v2.f2));
|
|
writeln('bitsizeof(_64bits1): ',bitsizeof(v2.f3));
|
|
writeln('bitsizeof(_64bits2): ',bitsizeof(v2.f4));
|
|
writeln('bitsizeof(_64bits3): ',bitsizeof(v2.f5));
|
|
|
|
{$ifdef cpu64}
|
|
if bitsizeof(v2.f1)<>62 then
|
|
halt(1);
|
|
if bitsizeof(v2.f2)<>63 then
|
|
halt(1);
|
|
{$endif}
|
|
if bitsizeof(v2.f3)<>64 then
|
|
halt(3);
|
|
if bitsizeof(v2.f3)<>64 then
|
|
halt(4);
|
|
if bitsizeof(v2.f3)<>64 then
|
|
halt(5);
|
|
end.
|
|
|