1
0
mirror of synced 2024-12-22 17:23:07 +01:00

Fixed: warnings, some related to D7's unsafe code checks

This commit is contained in:
Mark van Renswoude 2004-09-07 14:41:40 +00:00
parent e0fff9fd77
commit 3df331e9a4

View File

@ -8,6 +8,11 @@
}
unit X2UtBits;
{$I X2UtCompilerVersion.inc}
{$IFDEF D7}
{$WARN UNSAFE_CODE OFF}
{$ENDIF}
interface
type
TBit = (bit0, bit1, bit2, bit3, bit4, bit5, bit6, bit7,
@ -59,6 +64,8 @@ var
iPos: Integer;
begin
Result := '';
case ASize of
bs8:
begin
@ -85,6 +92,8 @@ begin
bMax := bit63;
iLength := 64;
end;
else
exit;
end;
SetLength(Result, iLength);