[project @ 1998-12-02 13:17:09 by simonm]

[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
new file mode 100644 (file)
index 0000000..597fe30
--- /dev/null
+++ b/ghc/lib/misc/cbits/PackedString.c
@@ -0,0 +1,23 @@
+/* -----------------------------------------------------------------------------
+ * $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 */
+}