guile/guile-lightning rod.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/04/05 17:34:49

Modified files:
        guile-lightning: rod.scm 

Log message:
        * rod.scm: Handle "jmp" and "call" right with respect to registers
        and immediates.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-lightning/rod.scm.diff?r1=1.2&r2=1.3

Patches:
Index: guile/guile-lightning/rod.scm
diff -u guile/guile-lightning/rod.scm:1.2 guile/guile-lightning/rod.scm:1.3
--- guile/guile-lightning/rod.scm:1.2   Mon Mar 19 18:00:55 2001
+++ guile/guile-lightning/rod.scm       Thu Apr  5 17:34:49 2001
@@ -108,10 +108,12 @@
                     (string=? op "leaf"))
                 (add-op* op #f type '1iop))
                ((or (string=? op "jmpi")
-                    (string=? op "jmpr"))
-                (add-op* op #t type 'jump))
-               ((or (string=? op "calli")
-                    (string=? op "finish"))
+                    (string=? op "jmpr")
+                    (string=? op "calli")
+                    (string=? op "callr"))
+                (if (string-match "r$" op)
+                    (add-op* op #t type 'jump)))
+               ((string=? op "finish")
                 (add-op* op #f type 'jumpi))
                ((string=? op "arg")
                 (add-op* op #f type 'arg))