summaryrefslogtreecommitdiff
path: root/ghc/lib/misc/cbits/PackedString.c
diff options
context:
space:
mode:
Diffstat (limited to 'ghc/lib/misc/cbits/PackedString.c')
-rw-r--r--ghc/lib/misc/cbits/PackedString.c23
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 */
-}