From 1f637d375888de78e3a994f3f180653b27147ac3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20Fr=C3=B6schle?= <mfro@mubf.de>
Date: Sat, 7 Dec 2013 19:45:57 +0000
Subject: [PATCH] added printout of exception PC

---
 sources/exceptions.S | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sources/exceptions.S b/sources/exceptions.S
index 244880e..0dbd383 100644
--- a/sources/exceptions.S
+++ b/sources/exceptions.S
@@ -442,10 +442,11 @@ std_exc_vec:
 		beq		noprint
 		cmp.l	#46,d0
 		beq		noprint
+		move.l	4 * 4 + 8 + 4(sp),-(sp)	// pc at exception
 		move.l	d0,-(sp)			// provide it to xprintf()
 		pea		exception_text		
 		jsr		_xprintf			// call xprintf()
-		addq.l	#2*4,sp				// adjust stack
+		add.l	#3*4,sp				// adjust stack
 noprint:
 		
 		movem.l	(sp),d0-d1/a0-a1	// restore registers
@@ -466,7 +467,7 @@ noprint:
 
 		.data
 exception_text:
-		.ascii	"EXCEPTION %d caught"
+		.ascii	"EXCEPTION %d caught at %p"
 		.byte	13, 10, 0
 
 		.text