From: ceriel <none@none>
Date: Tue, 4 Mar 1986 11:39:22 +0000 (+0000)
Subject: Bug fix: The "calls" instruction could be called with
X-Git-Tag: release-5-5~5367
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=249314e586f9374b4a92455d09b5476d22e9eb7a;p=ack.git

Bug fix: The "calls" instruction could be called with
first argument > 255. This is corrected.
---

diff --git a/mach/vax4/cg/table b/mach/vax4/cg/table
index db86f3d9f..852540535 100644
--- a/mach/vax4/cg/table
+++ b/mach/vax4/cg/table
@@ -4233,14 +4233,14 @@ cms zne $1==4	| |				|	| cmp zne $2 |
  * Group 14 : Procedure call instructions	*
  ************************************************/
 
-cai asp $2%4 == 0 && $2>=0
+cai asp $2%4 == 0 && $2>=0 && $2 < 1024
 		| reg4 |
 			remove(ALL)
 			"calls\t$$%($2/4%),(%[1])"	|	| |
 cai		| reg4 |
 			remove(ALL)
 			"calls\t$$0,(%[1])"		|	| |
-cal asp $2%4 == 0 && $2>=0
+cal asp $2%4 == 0 && $2>=0 && $2 < 1024
 		| |	remove(ALL)
 			"calls\t$$%($2/4%),$1"		|	| |
 cal		| |	remove(ALL)