From 013ccf9149d3b5250b345813e82789f8832daec3 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 29 May 1989 14:42:18 +0000
Subject: [PATCH] changed printf name: removed underscore

---
 mach/m68020/libem/Makefile |  2 ++
 mach/m68020/libem/csa.s    |  1 +
 mach/m68020/libem/dia.s    | 20 ++++++++++----------
 3 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/mach/m68020/libem/Makefile b/mach/m68020/libem/Makefile
index 52413ad78..53670fcbe 100644
--- a/mach/m68020/libem/Makefile
+++ b/mach/m68020/libem/Makefile
@@ -29,3 +29,5 @@ pr:
 
 trpstr.s:	trpstr.c strscript
 		sh strscript
+
+distr:		trpstr.s
diff --git a/mach/m68020/libem/csa.s b/mach/m68020/libem/csa.s
index b6e117e24..6db4f4de3 100644
--- a/mach/m68020/libem/csa.s
+++ b/mach/m68020/libem/csa.s
@@ -19,6 +19,7 @@ ECASE=20
 	move.l	(a0,d0.l*4), d1	! jump address
 	beq	1f
 	move.l	d1,a1
+	jmp	(a1)
 1:
 	move.l	a1, d0
 	beq	2f
diff --git a/mach/m68020/libem/dia.s b/mach/m68020/libem/dia.s
index 42ec8a68f..ad6a7c1e1 100644
--- a/mach/m68020/libem/dia.s
+++ b/mach/m68020/libem/dia.s
@@ -28,10 +28,10 @@ del	= 0177
 2:
 	move.l	d2, -(sp)
 	pea	(fmt)
-	jsr	(_printf)
+	jsr	(printf)
 	lea	(12, sp), sp
 	movem.l	(sp)+, d0/d1/d2/a0
-	jmp	(_printf)
+	jmp	(printf)
 	rts
 
 1:
@@ -39,9 +39,9 @@ del	= 0177
 	bra	2b
 
 .sect .bss
-_getal:
+getal:
 	.space	12
-_char:
+char:
 	.space	1
 	.align  4
 .sect .data
@@ -49,7 +49,7 @@ hexs:
 	.ascii	"0123456789abcdef"
 	.align	4
 .sect .text
-_printf:
+printf:
 	movem.l	d0/d1/d2/a0/a1/a2/a3/a4/a5/a6, -(sp)
 	lea	(44, sp), a6	! a6 <- address of arguments
 	move.l	(a6)+, a5	! a5 <- address of format
@@ -58,7 +58,7 @@ next:	move.b	(a5)+, d0
 	cmp.b	#'%', d0
 	beq	procnt
 put:	move.l	d0, -(sp)
-	jsr	(_putchar)	! long argument on stack
+	jsr	(putchar)	! long argument on stack
 	tst.l	(sp)+
 	bra	next
 
@@ -78,12 +78,12 @@ string:	move.l	(a6)+, a2	! a2 <- address of string
 sloop:	move.b	(a2)+, d0
 	beq	next
 	move.l	d0, -(sp)
-	jsr	(_putchar)	! long argument on stack
+	jsr	(putchar)	! long argument on stack
 	tst.l	(sp)+
 	bra	sloop
 
 digit:	move.l	(a6)+, d1	! d1 <- integer
-	move.l	#_getal+12, a2	! a2 <- ptr to last part of buf
+	move.l	#getal+12, a2	! a2 <- ptr to last part of buf
 	clr.b	-(a2)		! stringterminator
 1:	divul.l	#10, d2:d1	! d1 <- qotient; d2 <- remainder
 	add.l	#'0', d2
@@ -93,7 +93,7 @@ digit:	move.l	(a6)+, d1	! d1 <- integer
 	bra	sloop		! print digitstring.
 
 hex:	move.l	(a6)+, d1	! d1 <- integer
-	move.l	#_getal+12, a2	! a2 <- ptr to last part of buf
+	move.l	#getal+12, a2	! a2 <- ptr to last part of buf
 	clr.b	-(a2)		! stringterminator
 	move.l	#7, d2		! loop control
 1:	move.l	d1, d0
@@ -108,7 +108,7 @@ out:
 	rts
 
 
-_putchar:
+putchar:
 	move.l	#1, -(sp)
 	pea	(11,sp)
 	move.l	#1, -(sp)
-- 
2.34.1