From 3df331e9a458793d2db67e18dbcf694cd50c138d Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Tue, 7 Sep 2004 14:41:40 +0000
Subject: [PATCH] Fixed: warnings, some related to D7's unsafe code checks

---
 X2UtBits.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/X2UtBits.pas b/X2UtBits.pas
index ea24cad..203b5b6 100644
--- a/X2UtBits.pas
+++ b/X2UtBits.pas
@@ -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);