/* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.59 1999/05/11 16:47:53 keithw Exp $
+ * $Id: GC.c,v 1.60 1999/06/29 13:04:38 panne Exp $
*
* (c) The GHC Team 1998-1999
*
StgClosure *
isAlive(StgClosure *p)
{
- StgInfoTable *info;
+ const StgInfoTable *info;
while (1) {
}
step = bd->step->to;
}
+#ifdef DEBUG
+ else step = NULL; /* make sure copy() will crash if HEAP_ALLOCED is wrong */
+#endif
/* make sure the info pointer is into text space */
ASSERT(q && (LOOKS_LIKE_GHC_INFO(GET_INFO(q))
break;
default:
- barf("evacuate: THUNK_SELECTOR: strange selectee");
+ barf("evacuate: THUNK_SELECTOR: strange selectee %d",
+ (int)(selectee_info->type));
}
}
return copy(q,THUNK_SELECTOR_sizeW(),step);
return q;
default:
- barf("evacuate: strange closure type");
+ barf("evacuate: strange closure type %d", (int)(info->type));
}
barf("evacuate");
break;
default:
- barf("relocate_TSO");
+ barf("relocate_TSO %d", (int)(get_itbl(su)->type));
}
break;
}
static rtsBool
scavenge_one(StgClosure *p)
{
- StgInfoTable *info;
+ const StgInfoTable *info;
rtsBool no_luck;
ASSERT(p && (LOOKS_LIKE_GHC_INFO(GET_INFO(p))
static void
scavenge_mut_once_list(generation *gen)
{
- StgInfoTable *info;
+ const StgInfoTable *info;
StgMutClosure *p, *next, *new_list;
p = gen->mut_once_list;
default:
/* shouldn't have anything else on the mutables list */
- barf("scavenge_mut_once_list: strange object?");
+ barf("scavenge_mut_once_list: strange object? %d", (int)(info->type));
}
}
static void
scavenge_mutable_list(generation *gen)
{
- StgInfoTable *info;
+ const StgInfoTable *info;
StgMutClosure *p, *next;
p = gen->saved_mut_list;
default:
/* shouldn't have anything else on the mutables list */
- barf("scavenge_mut_list: strange object?");
+ barf("scavenge_mut_list: strange object? %d", (int)(info->type));
}
}
}
/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.13 1999/05/11 16:47:54 keithw Exp $
+ * $Id: Printer.c,v 1.14 1999/06/29 13:04:39 panne Exp $
*
* Copyright (c) 1994-1999.
*
* ---------------------------------------------------------------------------*/
#include "Rts.h"
+#include "Printer.h"
#ifdef DEBUG
#include "Bytecodes.h" /* for InstrPtr */
#include "Disassembler.h"
-#include "Printer.h"
-
/* --------------------------------------------------------------------------
* local function decls
* ------------------------------------------------------------------------*/
void printPtr( StgPtr p )
{
+#ifdef INTERPRETER
char* str;
+#endif
const char *raw;
if (lookupGHCName( p, &raw )) {
printZcoded(raw);
return rtsFalse;
}
#else
+ (void)flags; /* keep gcc -Wall happy */
if (*name == '\0' ||
(name[0] == 'g' && name[1] == 'c' && name[2] == 'c') ||
(name[0] == 'c' && name[1] == 'c' && name[2] == '.')) {
/* -----------------------------------------------------------------------------
- * $Id: Printer.h,v 1.3 1999/02/05 16:02:47 simonm Exp $
+ * $Id: Printer.h,v 1.4 1999/06/29 13:04:40 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
extern void printPtr ( StgPtr p );
extern void printObj ( StgClosure *obj );
+
+#ifdef DEBUG
extern void printClosure ( StgClosure *obj );
extern StgStackPtr printStackObj ( StgStackPtr sp );
extern void printStackChunk ( StgStackPtr sp, StgStackPtr spLim );
extern void DEBUG_LoadSymbols( char *name );
extern rtsBool lookupGHCName( StgPtr addr, const char **result );
-
-
+#endif
/* -----------------------------------------------------------------------------
- * $Id: Profiling.c,v 1.6 1999/04/23 09:47:32 simonm Exp $
+ * $Id: Profiling.c,v 1.7 1999/06/29 13:04:40 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
{
nat count;
char temp[128]; /* sigh: magic constant */
+#ifdef NOT_YET
rtsBool do_groups = rtsFalse;
+#endif
if (!RtsFlags.CcFlags.doCostCentres)
return;
/* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.13 1999/05/21 14:28:32 sof Exp $
+ * $Id: RtsStartup.c,v 1.14 1999/06/29 13:04:40 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
void
startupHaskell(int argc, char *argv[])
{
+#ifdef ENABLE_WIN32_DLL_SUPPORT
int i;
+#endif
/* To avoid repeated initialisations of the RTS */
if (rts_has_started_up)
/* -----------------------------------------------------------------------------
- * $Id: OutOfHeap.c,v 1.2 1998/12/02 13:29:14 simonm Exp $
+ * $Id: OutOfHeap.c,v 1.3 1999/06/29 13:06:45 panne Exp $
*
* User-overridable RTS hooks.
*
{
/* fprintf(stderr, "Heap exhausted;\nwhile trying to allocate %lu bytes in a %lu-byte heap;\nuse `+RTS -H<size>' to increase the total heap size.\n", */
+ (void)request_size; /* keep gcc -Wall happy */
fprintf(stderr, "Heap exhausted;\nCurrent maximum heap size is %lu bytes;\nuse `+RTS -M<size>' to increase it.\n",
heap_size);
}