New version with different parameter passing mechanism and some

minor fixes
1989-03-20 13:32:06 +00:00
parent 346bc839a3
commit f9b6acf1dc
15 changed files with 197 additions and 105 deletions
--- a/lang/m2/comp/code.c
+++ b/lang/m2/comp/code.c
@@ -417,6 +417,8 @@ CodeParameters(param, arg)
 			C_loc(left_type->arr_high - left_type->arr_low);
 		}
 		c_loc(0);
+	}
+	if (IsConformantArray(tp) || IsVarParam(param) || IsBigParamTp(tp)) {
 		if (left->nd_symb == STRING) {
 			CodeString(left);
 		}
@@ -438,10 +440,6 @@ CodeParameters(param, arg)
 		}
 		return;
 	}
-	if (IsVarParam(param)) {
-		CodeDAddress(left, 1);
-		return;
-	}
 	if (left_type->tp_fund == T_STRING) {
 		CodePString(left, tp);
 		return;