[m-rev.] diff: boehm_gc/if_not_there.c

[Zoltan Somogyi]

boehm_gc/if_not_there.c:
	Work around a seeming bug in gcc 3.2.2: even if gcc is passed -pg on
	the command line, it passes only -p to cc1 and doesn't link in the
	profiling libraries. As a result, the program asks for profiling
	interrupts but aborts when one arrives. This change ignores profiling
	interrupts; this program should never need to be profiled.

Zoltan.

cvs server: Diffing .
Index: if_not_there.c
===================================================================
RCS file: /home/mercury1/repository/mercury/boehm_gc/if_not_there.c,v
retrieving revision 1.6
diff -u -b -r1.6 if_not_there.c
--- if_not_there.c	10 Apr 2001 13:20:17 -0000	1.6
+++ if_not_there.c	20 May 2004 04:04:52 -0000
@@ -4,6 +4,7 @@
 # include <stdio.h>
 # include <stdlib.h>
 # include <unistd.h>
+# include <signal.h>
 
 int main(argc, argv, envp)
 int argc;
@@ -11,6 +12,7 @@
 char ** envp;
 {
     FILE * f;
+    signal(SIGPROF, SIG_IGN);
     if (argc < 3) goto Usage;
     if ((f = fopen(argv[1], "rb")) != 0
         || (f = fopen(argv[1], "r")) != 0) {
cvs server: Diffing Mac_files
cvs server: Diffing cord
cvs server: Diffing cord/private
cvs server: Diffing doc
cvs server: Diffing include
cvs server: Diffing include/private
cvs server: Diffing tests
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------