This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Since IRIX 6.2 changed to COFF format, gcc support isn't really very good. So, I built guile-core-971111 with SGI's cc. It choked on a couple of things: initialization of automatic structure variables, and a C++ style comment. Since the code appears to be K&R C, I assumed the goal was to keep it K&R, so I provide the patches here. Cliff -- Clifford Beshers Computer Graphics and User Interfaces Lab beshers@cs.columbia.edu Department of Computer Science http://www.cs.columbia.edu/~beshers Columbia University *** backtrace.c~ Sat Oct 25 17:54:02 1997 --- backtrace.c Thu Nov 13 17:49:52 1997 *************** *** 247,254 **** SCM args; SCM rest; { ! struct display_error_args a = { stack, port, subr, message, args, rest }; ! struct display_error_handler_data data = { "error", port }; scm_internal_catch (SCM_BOOL_T, (scm_catch_body_t) display_error_body, &a, (scm_catch_handler_t) display_error_handler, &data); --- 247,264 ---- SCM args; SCM rest; { ! struct display_error_args a; ! struct display_error_handler_data data; ! a.stack = stack; ! a.port = port; ! a.subr = subr; ! a.message = message; ! a.args = args; ! a.rest = rest; ! ! data.mode = "error"; ! data.port = port; ! scm_internal_catch (SCM_BOOL_T, (scm_catch_body_t) display_error_body, &a, (scm_catch_handler_t) display_error_handler, &data); *************** *** 524,531 **** --- 534,554 ---- SCM first; SCM depth; { + struct display_backtrace_args a; + struct display_error_handler_data data; + a.stack = stack; + a.port = port; + a.first = first; + a.depth = depth; + + data.mode = "error"; + data.port = port; + + #if 0 struct display_backtrace_args a = { stack, port, first, depth }; struct display_error_handler_data data = { "backtrace", port }; + #endif + scm_internal_catch (SCM_BOOL_T, (scm_catch_body_t) display_backtrace_body, &a, (scm_catch_handler_t) display_error_handler, &data); *** gc.c~ Wed Oct 15 13:17:53 1997 --- gc.c Thu Nov 13 17:57:25 1997 *************** *** 441,447 **** SCM_THREAD_CRITICAL_SECTION_START; #endif ! // fprintf (stderr, "gc: %s\n", what); scm_gc_start (what); if (!scm_stack_base || scm_block_gc) --- 441,447 ---- SCM_THREAD_CRITICAL_SECTION_START; #endif ! /* fprintf (stderr, "gc: %s\n", what); */ scm_gc_start (what); if (!scm_stack_base || scm_block_gc)