1
0
mirror of synced 2024-09-19 09:46:09 +00: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; unit X2UtBits;
{$I X2UtCompilerVersion.inc}
{$IFDEF D7}
{$WARN UNSAFE_CODE OFF}
{$ENDIF}
interface interface
type type
TBit = (bit0, bit1, bit2, bit3, bit4, bit5, bit6, bit7, TBit = (bit0, bit1, bit2, bit3, bit4, bit5, bit6, bit7,
@ -59,6 +64,8 @@ var
iPos: Integer; iPos: Integer;
begin begin
Result := '';
case ASize of case ASize of
bs8: bs8:
begin begin
@ -85,6 +92,8 @@ begin
bMax := bit63; bMax := bit63;
iLength := 64; iLength := 64;
end; end;
else
exit;
end; end;
SetLength(Result, iLength); SetLength(Result, iLength);