[project @ 1999-11-26 16:29:09 by simonmar]

[ghc-hetmet.git] / ghc / lib / misc / cbits / PackedString.c

diff --git a/ghc/lib/misc/cbits/PackedString.c b/ghc/lib/misc/cbits/PackedString.c
deleted file mode 100644 (file)
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 */
-}