head	1.2;
access;
symbols
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1
	RELEASE_4_1_1:1.1
	RELEASE_4_1_0:1.1
	RELEASE_3_5_0:1.1
	RELEASE_4_0_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2001.07.21.23.41.36;	author jdp;	state dead;
branches;
next	1.1;

1.1
date	99.12.23.17.31.15;	author jdp;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Remove the old modula-3 and modula-3-lib ports.  They are superseded
by the pm3-* family of ports, which build a newer and better-maintained
version of Modula-3.  I have converted all ports which depended on
modula-3 to use pm3-* instead.

PR:		ports/27664 is rendered irrelevant
@
text
@--- m3/m3core/src/runtime/FreeBSD2/RTThread.m3.orig	Wed Nov 23 13:01:14 1994
+++ m3/m3core/src/runtime/FreeBSD2/RTThread.m3	Wed Oct  6 15:22:49 1999
@@@@ -93,19 +93,21 @@@@
   END setup_sigvtalrm;
 
 PROCEDURE allow_sigvtalrm () =
-  VAR svt : Usignal.sigset_t := Usignal.sigmask(Usignal.SIGVTALRM);
-      old : Usignal.sigset_t;
-      i   : INTEGER;
+  VAR svt, old : Usignal.sigset_t;
+      i        : INTEGER;
   BEGIN
+    EVAL Usignal.sigemptyset(svt);
+    EVAL Usignal.sigaddset(svt, Usignal.SIGVTALRM);
     i := Usignal.sigprocmask(Usignal.SIG_UNBLOCK, svt, old);
     <*ASSERT i = 0 *>
   END allow_sigvtalrm;
 
 PROCEDURE disallow_sigvtalrm () =
-  VAR svt : Usignal.sigset_t := Usignal.sigmask(Usignal.SIGVTALRM);
-      old : Usignal.sigset_t;
-      i   : INTEGER;
+  VAR svt, old : Usignal.sigset_t;
+      i        : INTEGER;
   BEGIN
+    EVAL Usignal.sigemptyset(svt);
+    EVAL Usignal.sigaddset(svt, Usignal.SIGVTALRM);
     i := Usignal.sigprocmask(Usignal.SIG_BLOCK, svt, old);
     <*ASSERT i = 0 *>
   END disallow_sigvtalrm;
@


1.1
log
@Fix the Modula-3 runtime so it will work with the new larger
sigset_t types in -current.
@
text
@@

