From: ceriel <none@none>
Date: Tue, 5 Mar 1991 11:55:22 +0000 (+0000)
Subject: Changed unsigned checking so that runtime routines cab be written in C
X-Git-Tag: release-5-5~1208
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=81cc04f9a30d428a7c28d8811d0313f21a7ade79;p=ack.git

Changed unsigned checking so that runtime routines cab be written in C
---

diff --git a/lang/m2/comp/code.c b/lang/m2/comp/code.c
index 05ef6c1d6..56cc06e0e 100644
--- a/lang/m2/comp/code.c
+++ b/lang/m2/comp/code.c
@@ -480,20 +480,20 @@ static
 subu(sz)
 	arith sz;
 {
-	if (options['R']) C_sbu(sz);
-	else {
-		CAL((int) sz == (int) word_size ? "subu" : "subul", (int) sz);
+	if (! options['R']) {
+		CAL((int) sz == (int) word_size ? "subuchk" : "subulchk", (int) sz);
 	}
+	C_sbu(sz);
 }
 
 static
 addu(sz)
 	arith sz;
 {
-	if (options['R']) C_adu(sz);
-	else {
-		CAL((int) sz == (int) word_size ? "addu" : "addul", (int) sz);
+	if (! options['R']) {
+		CAL((int) sz == (int) word_size ? "adduchk" : "addulchk", (int) sz);
 	}
+	C_adu(sz);
 }
 
 CodeStd(nd)
@@ -747,13 +747,11 @@ CodeOper(expr, true_label, false_label)
 		case T_EQUAL:
 		case T_CARDINAL:
 		case T_INTORCARD:
-			if (options['R']) {
-				C_mlu(tp->tp_size);
-			}
-			else {
-				CAL((int)(tp->tp_size) <= (int)word_size ? "mulu" : "mulul",
+			if (! options['R']) {
+				CAL((int)(tp->tp_size) <= (int)word_size ? "muluchk" : "mululchk",
 				    (int)(tp->tp_size));
 			}
+			C_mlu(tp->tp_size);
 			break;
 		case T_REAL:
 			C_mlf(tp->tp_size);