Added LONGCARD as a local extension

1996-08-14 07:42:40 +00:00
parent 1592c3638c
commit efacd02ffd
9 changed files with 59 additions and 18 deletions
--- a/lang/m2/comp/main.c
+++ b/lang/m2/comp/main.c
@@ -221,6 +221,10 @@ AddStandards()
 	EnterType("REAL", real_type);
 	EnterType("LONGREAL", longreal_type);
 	EnterType("CARDINAL", card_type);
+	if (options['l']) {
+		/* local extension: LONGCARD. */
+		EnterType("LONGCARD", longcard_type);
+	}
 	EnterType("(void)", void_type);
 	df = Enter("NIL", D_CONST, address_type, 0);
 	df->con_const = nilconst;