fix typo and parameters of overflow

diff --git a/lang/m2/comp/cstoper.c b/lang/m2/comp/cstoper.c
index 2d15237..62987f0 100644 (file)
--- 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 792eb55..e9cec07 100644 (file)
--- 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);