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]

patches for IRIX cc



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)