/* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.85 2002/03/29 20:46:50 krasimir Exp $
+ * $Id: Linker.c,v 1.86 2002/04/01 11:18:18 panne Exp $
*
* (c) The GHC Team, 2000, 2001
*
for (j = 0; j < nent; j++) {
Elf32_Addr offset = rtab[j].r_offset;
Elf32_Word info = rtab[j].r_info;
+# if defined(sparc_TARGET_ARCH) || defined(DEBUG)
Elf32_Sword addend = rtab[j].r_addend;
+ Elf32_Addr A = addend;
+# endif
Elf32_Addr P = ((Elf32_Addr)targ) + offset;
- Elf32_Addr A = addend; /* Do not delete this; it is used on sparc. */
Elf32_Addr S;
# if defined(sparc_TARGET_ARCH)
/* This #ifdef only serves to avoid unused-var warnings. */
/* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.134 2002/03/12 13:57:11 simonmar Exp $
+ * $Id: Schedule.c,v 1.135 2002/04/01 11:18:19 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
void
GetRoots(evac_fn evac)
{
- StgMainThread *m;
-
#if defined(GRAN)
{
nat i;
* top of the CATCH_FRAME ready to enter.
*/
if (get_itbl(su)->type == CATCH_FRAME && exception != NULL) {
+#ifdef PROFILING
StgCatchFrame *cf = (StgCatchFrame *)su;
+#endif
StgClosure *raise;
/* we've got an exception to raise, so let's pass it to the