From a68bb721e9fcc08363e1ebcf97bd2a8b7c7352b4 Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Thu, 19 Apr 1990 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1990-04-19

---
 port/devlance.c | 4 ++++
 power/fns.h     | 1 +
 power/l.s       | 6 ++++++
 3 files changed, 11 insertions(+)

diff --git a/port/devlance.c b/port/devlance.c
index 5bccc5b95f73e27a2bc15dd7ffe1f28334327556..9b379528e103053a60372595911679eb2a9d1fcd 100644
--- a/port/devlance.c
+++ b/port/devlance.c
@@ -477,6 +477,10 @@ lancestart(void)
 	l.ea[3] = LANCEID[8]>>8;
 	l.ea[4] = LANCEID[4]>>8;
 	l.ea[5] = LANCEID[0]>>8;
+/*
+	print("lance addr = %.4ux %.4ux %.4ux\n", lm->etheraddr[0], lm->etheraddr[1],
+		lm->etheraddr[2]);
+/**/
 
 	/*
 	 *  ignore multicast addresses
diff --git a/power/fns.h b/power/fns.h
index ed04b3b4d4772825434ed513dfe0c3f6217bb30b..a5cd30d2a902cdeea2e70117d30a29208071f4e2 100644
--- a/power/fns.h
+++ b/power/fns.h
@@ -64,6 +64,7 @@ Block	*getq(Queue*);
 void	gettlb(int, ulong*);
 ulong	gettlbvirt(int);
 void	gotolabel(Label*);
+void	gotopc(void*);
 void	growpte(Orig*, ulong);
 void	*ialloc(ulong, int);
 int	incref(Ref*);
diff --git a/power/l.s b/power/l.s
index 2cb98d5351eb1aaba023099dde42c159b3e55385..e17d3b82d2e3af9b6b5eddb5b1b6adc453bd0915 100644
--- a/power/l.s
+++ b/power/l.s
@@ -141,6 +141,12 @@ TEXT	gotolabel(SB), $0
 	MOVW	4(R2), R29
 	RET
 
+TEXT	gotopc(SB), $0
+
+	MOVW	0(FP), R2
+	JAL	(R2)
+	RET			/* shouldn't get here */
+
 TEXT	puttlb(SB), $4
 
 	JAL	splhi(SB)