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

GHC bits for new library organisation.

1 files changed, 0 insertions, 23 deletions

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