/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.8 1999/03/03 19:16:29 sof Exp $
+ * $Id: Printer.c,v 1.10 1999/03/15 16:30:29 simonm Exp $
*
* Copyright (c) 1994-1999.
*
* Printer
* ------------------------------------------------------------------------*/
+
#ifdef INTERPRETER
extern void* itblNames[];
extern int nItblNames;
fprintf(stderr, "\t\t");
fprintf(stderr, "ret_bco_info\n" );
} else
-#endif
if (IS_HUGS_CONSTR_INFO(GET_INFO(c))) {
fprintf(stderr, "\t\t\t");
fprintf(stderr, "ConstrInfoTable\n" );
} else
+#endif
if (get_itbl(c)->type == BCO) {
fprintf(stderr, "\t\t\t");
fprintf(stderr, "BCO(...)\n");
ASSERT(sp <= spBottom);
while (sp < spBottom) {
- if (!IS_ARG_TAG(*sp) && LOOKS_LIKE_GHC_INFO((void*)*sp)) {
+ if (!IS_ARG_TAG(*sp) && LOOKS_LIKE_GHC_INFO(*sp)) {
info = get_itbl((StgClosure *)sp);
switch (info->type) {
bfd* abfd;
char **matching;
-#ifndef _WIN32
bfd_init();
abfd = bfd_openr(name, "default");
if (abfd == NULL) {
if (!bfd_check_format_matches (abfd, bfd_object, &matching)) {
barf("mismatch");
}
-#endif
{
long storage_needed;