From d2a68477151f34bfb999d5e4e6b22c21dfdc08d6 Mon Sep 17 00:00:00 2001
From: keie <none@none>
Date: Mon, 4 Mar 1985 15:33:28 +0000
Subject: [PATCH] The previous version still assumed two-byte integers.

---
 mach/m68k4/libem/trp.s | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/mach/m68k4/libem/trp.s b/mach/m68k4/libem/trp.s
index 1d5b4e902..6afacad17 100644
--- a/mach/m68k4/libem/trp.s
+++ b/mach/m68k4/libem/trp.s
@@ -3,10 +3,10 @@
 	.text
 .trp:
 	move.l	(sp)+,a2	! return address
-	move.w	(sp)+,d0	! error number
+	move.l	(sp)+,d0	! error number
 	move.l	a2,-(sp)
-	move.w	d0,-(sp)
-	cmp	#16,d0
+	move.l	d0,-(sp)
+	cmp.l	#16,d0
 	bcc	1f
 	btst	d0,.trpim
 	bne	3f
@@ -17,11 +17,13 @@
 	clr.l	.trppc
 	jsr	(a0)
 3:
-	add	#2,sp
+	add	#4,sp
 	rts
 9:
 	pea	fmt
 	jsr	.diagnos
+	add	#4,sp
+	jsr	__cleanup
 	jmp	EXIT
 
 	.data
-- 
2.34.1