GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Mark van Renswoude 2004-09-07 14:41:40 +00:00
parent e0fff9fd77
commit 3df331e9a4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
X2UtBits.pas
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);