diff options
Diffstat (limited to 'ghc/lib/misc/cbits/PackedString.c')
-rw-r--r-- | ghc/lib/misc/cbits/PackedString.c | 23 |
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 */ -} |