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

Move 4.01 onto the main trunk.

1 files changed, 23 insertions, 0 deletions

diff --git a/ghc/lib/misc/cbits/PackedString.c b/ghc/lib/misc/cbits/PackedString.c
new file mode 100644
index 0000000000..597fe30a3b
--- /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 */
+}