X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fmisc%2Fcbits%2FPackedString.c;fp=ghc%2Flib%2Fmisc%2Fcbits%2FPackedString.c;h=0000000000000000000000000000000000000000;hb=7700dda03d273676b274bc148491a4e02a7c5ae0;hp=597fe30a3b88f31fca16f761d34d85b402b1af97;hpb=ef33ed94129ee17b577add392e04619ec1f53800;p=ghc-hetmet.git

diff --git a/ghc/lib/misc/cbits/PackedString.c b/ghc/lib/misc/cbits/PackedString.c
deleted file mode 100644
index 597fe30..0000000
--- a/ghc/lib/misc/cbits/PackedString.c
+++ /dev/null
@@ -1,23 +0,0 @@
-/* -----------------------------------------------------------------------------
- * $Id: PackedString.c,v 1.2 1998/12/02 13:26:41 simonm Exp $
- *
- * PackedString C bits
- *
- * (c) The GHC Team 1998
- * -------------------------------------------------------------------------- */
-
-#include "Rts.h"
-
-StgInt
-byteArrayHasNUL__ (StgByteArray ba, StgInt len)
-{
-    StgInt i;
-
-    for (i = 0; i < len; i++) {
-	if (*(ba + i) == '\0') {
-	    return(1); /* true */
-	}
-    }
-
-    return(0); /* false */
-}