-
/* --------------------------------------------------------------------------
* Assembly code to call C and Haskell functions
*
- * Copyright (c) 1994-1999.
+ * Copyright (c) 1994-2001.
*
- * $RCSfile: universal_call_c.S,v $
- * $Revision: 1.9 $
- * $Date: 1999/11/17 13:19:36 $
+ * $Id: universal_call_c.S,v 1.11 2001/02/12 12:08:44 sewardj Exp $
* ------------------------------------------------------------------------*/
#include "config.h"
-#include "options.h"
+
+#if sparc_TARGET_ARCH
+ .text
+only_here_to_work_around_a_bug_in_GNU_ld_291_on_sparc:
+#endif
+
+#if 0 /* later: GHCI */
-#ifdef INTERPRETER
.file "universal_call_c.S"
#if 0
#endif /* i386_TARGET_ARCH */
-#endif /* INTERPRETER */
+#endif /* GHCI */