/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by camm, Thu Sep 4 03:09:39 2003 UTC revision 1.31 by camm, Fri Sep 5 21:48:17 2003 UTC
# Line 337  int catch_fatal=1; Line 337  int catch_fatal=1;
337  void  void
338  error(char *s)  error(char *s)
339  {  {
340      if ( catch_fatal > 0 && interrupt_enable ) {          if (catch_fatal>0 && interrupt_enable )
341          catch_fatal = -1;              {catch_fatal = -1;
342          if ( sgc_enabled ) {  #ifdef SGC
343              sgc_quit();             if (sgc_enabled)
344          } else {               { sgc_quit();}
345              install_segmentation_catcher();             if (sgc_enabled==0)
346          }  #endif
347          FEerror("Caught fatal error [memory may be damaged]",0);               { install_segmentation_catcher() ;}
348      }             FEerror("Caught fatal error [memory may be damaged]",0); }
349      printf ( "\nUnrecoverable error: %s.\n", s );          printf("\nUnrecoverable error: %s.\n", s);
350      fflush(stdout);          fflush(stdout);
351  #ifdef UNIX  #ifdef UNIX
352      abort();      abort();
353  #endif  #endif

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26