From: ceriel <none@none>
Date: Tue, 8 Mar 1988 10:35:53 +0000 (+0000)
Subject: fix typo and parameters of overflow
X-Git-Tag: release-5-5~3583
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=78926a5a8465540642d5cbf95d4e2ef97d1b137b;p=ack.git

fix typo and parameters of overflow
---

diff --git a/lang/m2/comp/cstoper.c b/lang/m2/comp/cstoper.c
index 2d152374c..62987f02a 100644
--- a/lang/m2/comp/cstoper.c
+++ b/lang/m2/comp/cstoper.c
@@ -295,10 +295,10 @@ cstubin(expp)
 			if (expp->nd_type->tp_fund == T_INTORCARD) {
 				expp->nd_type = int_type;
 				if (! chk_bounds(min_int[sz], o1 - o2, T_CARDINAL)) {
-					overflow();
+					overflow(expp);
 				}
 			}
-			else	overflow();
+			else	overflow(expp);
 		}
 		o1 -= o2;
 		break;
diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index 792eb55a0..e9cec0764 100644
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -230,7 +230,7 @@ WalkProcedure(procedure)
 	DoFilename(procedure->prc_body);
 	TmpOpen(procscope);
 
-	func_type = tp = RemoveEqual(RresultType(procedure->df_type));
+	func_type = tp = RemoveEqual(ResultType(procedure->df_type));
 
 	if (tp) {
 		func_res_size = WA(tp->tp_size);