[PATCH] mescc: Support offset2, offset3.

[Danny Milosavljevic]

* module/mescc/M1.scm (hex2:offset2): New procedure.
(hex2:offset3): New procedure.
(info->M1): Use them.
---
 module/mescc/M1.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/module/mescc/M1.scm b/module/mescc/M1.scm
index 66740230..6348da00 100644
--- a/module/mescc/M1.scm
+++ b/module/mescc/M1.scm
@@ -63,6 +63,13 @@
 (define (hex2:offset1 o)
   (string-append "!" o))
 
+(define (hex2:offset2 o)
+  (string-append "@" o))
+
+(define (hex2:offset3 o)
+  "Note: Uses architecture-specific printer (for branch instructions)"
+  (string-append "^~" o))
+
 (define hex? #t)
 
 (define (hex2:immediate o)
@@ -171,6 +178,8 @@
 
           ((#:offset ,offset) (hex2:offset offset))
           ((#:offset1 ,offset1) (hex2:offset1 offset1))
+          ((#:offset2 ,offset2) (hex2:offset2 offset2))
+          ((#:offset3 ,offset3) (hex2:offset3 offset3))
           ((#:immediate ,immediate) (hex2:immediate immediate))
           ((#:immediate1 ,immediate1) (hex2:immediate1 immediate1))
           ((#:immediate2 ,immediate2) (hex2:immediate2 immediate2))