Added comments and m2_traps.h

diff --git a/h/.distr b/h/.distr
index 685a45e..bf60ce2 100644 (file)
--- 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 1647a77..78d99de 100644 (file)
--- 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 */