]> git.imager.perl.org - imager.git/blobdiff - regmach.c
report library version numbers where we already have the XS for it
[imager.git] / regmach.c
index 1659a530ef0bbaac0eacee5b4ac84e563d25c592..c7fe613b0a37dfa92a1c1eb67e1db1f83be7f93b 100644 (file)
--- a/regmach.c
+++ b/regmach.c
@@ -216,6 +216,7 @@ i_color i_rm_run(struct rm_op codes[], size_t code_count,
 
     case rbc_uminus:
       nout = -na;
+      break;
 
     case rbc_multp:
       cout = make_rgb(ca.rgb.r * nb, ca.rgb.g * nb, ca.rgb.b * nb, 255);
@@ -420,9 +421,14 @@ i_color i_rm_run(struct rm_op codes[], size_t code_count,
       break;
 
     case rbc_print:
+      nout = na;
       printf("r%d is %g\n", codes->ra, na);
       break;
 
+    case rbc_det:
+      nout = na*nd-nb*nc;
+      break;
+
     default:
       /*croak("bad opcode"); */
       printf("bad op %d\n", codes->code);