develooper Front page | perl.perl5.changes.mac | Postings from November 2002

Change 18200: Yet another approach to signal handling (Matthias)

From:
Chris Nandor
Date:
November 28, 2002 13:40
Subject:
Change 18200: Yet another approach to signal handling (Matthias)
Message ID:
p05200f1aba0c3ca5f60c@[10.0.1.104]
Change 18200 by pudge@pudge-mobile on 2002/11/28 05:29:12

	Yet another approach to signal handling (Matthias)

Affected files ...

.... //depot/macperl/macos/config.h#7 edit
.... //depot/macperl/util.c#12 edit
.... //depot/maint-5.6/macperl/macos/config.h#5 edit
.... //depot/maint-5.6/macperl/util.c#10 edit
.... //depot/maint-5.8/macperl/macos/config.h#2 edit
.... //depot/maint-5.8/macperl/util.c#3 edit

Differences ...

==== //depot/macperl/macos/config.h#7 (text) ====
Index: macperl/macos/config.h
--- macperl/macos/config.h#6~16976~	Sun Jun  2 10:21:28 2002
+++ macperl/macos/config.h	Wed Nov 27 21:29:12 2002
@@ -13,6 +13,9 @@
 File	:	config.h			-	Mac configuration
 
 $Log: config.h,v $
+Revision 1.12  2002/10/30 07:12:31  neeri
+Yet another approach to signal handling
+
 Revision 1.11  2002/01/03 21:53:51  neeri
 Disable sigaction (MacPerl Bug #470321)
 
@@ -2241,7 +2244,7 @@
  *	This symbol, if defined, indicates that Vr4's sigaction() routine
  *	is available.
  */
-#undef HAS_SIGACTION /**/
+#define HAS_SIGACTION /**/
 
 /* HAS_SIGSETJMP:
  *	This variable indicates to the C program that the sigsetjmp()

==== //depot/macperl/util.c#12 (text) ====
Index: macperl/util.c
--- macperl/util.c#11~18198~	Wed Nov 27 20:31:03 2002
+++ macperl/util.c	Wed Nov 27 21:29:12 2002
@@ -2172,6 +2172,11 @@
 #ifndef PERL_MICRO
 #ifdef HAS_SIGACTION
 
+#ifdef MACOS_TRADITIONAL
+/* We don't want restart behavior on MacOS */
+#undef SA_RESTART
+#endif
+
 Sighandler_t
 Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
 {

==== //depot/maint-5.6/macperl/macos/config.h#5 (text) ====
Index: macperl/macos/config.h
--- macperl/macos/config.h#4~14067~	Fri Jan  4 12:19:18 2002
+++ macperl/macos/config.h	Wed Nov 27 21:29:12 2002
@@ -13,6 +13,9 @@
 File	:	config.h			-	Mac configuration
 
 $Log: config.h,v $
+Revision 1.12  2002/10/30 07:12:31  neeri
+Yet another approach to signal handling
+
 Revision 1.11  2002/01/03 21:53:51  neeri
 Disable sigaction (MacPerl Bug #470321)
 
@@ -1958,7 +1961,7 @@
  *	This symbol, if defined, indicates that Vr4's sigaction() routine
  *	is available.
  */
-#undef HAS_SIGACTION /**/
+#define HAS_SIGACTION /**/
 
 /* HAS_SIGSETJMP:
  *	This variable indicates to the C program that the sigsetjmp()

==== //depot/maint-5.6/macperl/util.c#10 (text) ====
Index: macperl/util.c
--- macperl/util.c#9~17651~	Mon Jul 22 20:24:35 2002
+++ macperl/util.c	Wed Nov 27 21:29:12 2002
@@ -2519,6 +2519,11 @@
 
 #ifdef HAS_SIGACTION
 
+#ifdef MACOS_TRADITIONAL
+/* We don't want restart behavior on MacOS */
+#undef SA_RESTART
+#endif
+
 Sighandler_t
 Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
 {

==== //depot/maint-5.8/macperl/macos/config.h#2 (text) ====
Index: macperl/macos/config.h
--- macperl/macos/config.h#1~17650~	Mon Jul 22 08:27:48 2002
+++ macperl/macos/config.h	Wed Nov 27 21:29:12 2002
@@ -13,6 +13,9 @@
 File	:	config.h			-	Mac configuration
 
 $Log: config.h,v $
+Revision 1.12  2002/10/30 07:12:31  neeri
+Yet another approach to signal handling
+
 Revision 1.11  2002/01/03 21:53:51  neeri
 Disable sigaction (MacPerl Bug #470321)
 
@@ -2241,7 +2244,7 @@
  *	This symbol, if defined, indicates that Vr4's sigaction() routine
  *	is available.
  */
-#undef HAS_SIGACTION /**/
+#define HAS_SIGACTION /**/
 
 /* HAS_SIGSETJMP:
  *	This variable indicates to the C program that the sigsetjmp()

==== //depot/maint-5.8/macperl/util.c#3 (text) ====
Index: macperl/util.c
--- macperl/util.c#2~18199~	Wed Nov 27 21:20:16 2002
+++ macperl/util.c	Wed Nov 27 21:29:12 2002
@@ -2346,6 +2346,11 @@
 #ifndef PERL_MICRO
 #ifdef HAS_SIGACTION
 
+#ifdef MACOS_TRADITIONAL
+/* We don't want restart behavior on MacOS */
+#undef SA_RESTART
+#endif
+
 Sighandler_t
 Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
 {
End of Patch.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About