diff options
Diffstat (limited to 'lang/modula-3-lib/files/extra-patch-new-sigset-ac')
| -rw-r--r-- | lang/modula-3-lib/files/extra-patch-new-sigset-ac | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/lang/modula-3-lib/files/extra-patch-new-sigset-ac b/lang/modula-3-lib/files/extra-patch-new-sigset-ac new file mode 100644 index 000000000000..d9b7a6fc6028 --- /dev/null +++ b/lang/modula-3-lib/files/extra-patch-new-sigset-ac @@ -0,0 +1,30 @@ +--- 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; |