From 8a51ae7b944c62769fe136d6e53527c450cbdb0d Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 8 Apr 1988 14:14:44 +0000 Subject: [PATCH] Added comments and m2_traps.h --- h/.distr | 1 + h/m2_traps.h | 15 +++++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) 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 */ -- 2.34.1