From: ceriel <none@none>
Date: Tue, 19 May 1987 15:13:57 +0000 (+0000)
Subject: some bug fixes: filename and unintialized data descriptor
X-Git-Tag: release-5-5~4116
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=10e1c10bcf9bdd6417a840e4651eccb91c2be0f8;p=ack.git

some bug fixes: filename and unintialized data descriptor
---

diff --git a/mach/pdp/int/em_int.s b/mach/pdp/int/em_int.s
index d80367a1b..1b193ecf9 100644
--- a/mach/pdp/int/em_int.s
+++ b/mach/pdp/int/em_int.s
@@ -158,7 +158,8 @@
 startoff:
 	mov	sp,r0
 	mov	sp,ml
-	mov	02(sp),filb	/ pointer to argv in filb for error message
+	mov	sp,filb
+	add	$2,filb		/ pointer to argv in filb for error message
 	dec	(r0)
 	mov	(r0)+,argc	/ pass to userprogram later
 	bgt	0f		/ go for argument
@@ -316,7 +317,7 @@ dat5:	mov	pb,r0		/ and program base for procedures
 	br	datloop		/ next data descriptor
 
 dat1:	mov	$und,(r3)+	/ reserve words	with undefineds
-	sob	r2,2b		/ jump back if more
+	sob	r2,dat1		/ jump back if more
 	br	datloop		/ next data descriptor
 
 0:	mov	r3,r1		/ copy data pointer (odd register)