From: ceriel <none@none>
Date: Fri, 8 Apr 1988 14:14:44 +0000 (+0000)
Subject: Added comments and m2_traps.h
X-Git-Tag: release-5-5~3475
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8a51ae7b944c62769fe136d6e53527c450cbdb0d;p=ack.git

Added comments and m2_traps.h
---

diff --git a/h/.distr b/h/.distr
index 685a45e38..bf60ce24a 100644
--- a/h/.distr
+++ b/h/.distr
@@ -24,3 +24,4 @@ ranlib.h
 ocm_chan.h
 ocm_parco.h
 ocm_proc.h
+m2_traps.h
diff --git a/h/m2_traps.h b/h/m2_traps.h
index 1647a77e4..78d99dec4 100644
--- a/h/m2_traps.h
+++ b/h/m2_traps.h
@@ -1,6 +1,9 @@
-#define M2_TOOLARGE	64
-#define M2_TOOMANY	65
-#define M2_NORESULT	66
-#define M2_UOVFL	67
-#define M2_FORCH	68
-#define M2_UUVFL	69
+/* Modula-2 runtime errors */
+
+#define M2_TOOLARGE	64	/* stack of process too large */
+#define M2_TOOMANY	65	/* too many nested traps & handlers */
+#define M2_NORESULT	66	/* no RETURN from procedure function */
+#define M2_UOVFL	67	/* cardinal overflow */
+#define M2_FORCH	68	/* FOR-loop control variable changed */
+#define M2_UUVFL	69	/* cardinal underflow */
+#define M2_INTERNAL	70	/* internal error, should not happen */