X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fparser%2Fhschooks.h;h=c68b41e23b78a5fa9468e8e6e65a6ca2232eb8a5;hb=a2a9410c4d310e2a7a7fd2a59775b442609d7a57;hp=38a7d9fe5dad61dfa9ca3d793231a192aaa63b81;hpb=b1bbd55b3398136c4944cdca9df05cb12eda03ba;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/hschooks.h b/ghc/compiler/parser/hschooks.h
index 38a7d9f..c68b41e 100644
--- a/ghc/compiler/parser/hschooks.h
+++ b/ghc/compiler/parser/hschooks.h
@@ -1,9 +1,15 @@
 /* -----------------------------------------------------------------------------
- * $Id: hschooks.h,v 1.1 2000/12/19 12:55:18 simonmar Exp $
+ * $Id: hschooks.h,v 1.4 2002/04/22 14:54:10 simonmar Exp $
  *
  * Hooks into the RTS from the compiler.
  *
- * -----------------------------------------------------------------------------
+ * -------------------------------------------------------------------------- */
 
+#include "HsFFI.h"
 void enableTimingStats( void );
 void setHeapSize( HsInt size );
+
+// Out-of-line string functions, see PrimPacked.lhs
+HsInt ghc_strlen( HsAddr a );
+HsInt ghc_memcmp( HsAddr a1, HsAddr a2, HsInt len );
+HsInt ghc_memcmp_off( HsAddr a1, HsInt i, HsAddr a2, HsInt len );