shithub: femtolisp

Download patch

ref: 38d1cabc4f92e3d5f5c1009376bbf130f13e7267
parent: d14238b24fca16dd7718501b4a723965027fd6d3
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Mon Mar 27 12:17:45 EDT 2023

maxstack: fix OP_SETCL

--- a/maxstack.inc
+++ b/maxstack.inc
@@ -41,9 +41,6 @@
             sp -= n;
             break;
 
-        case OP_SETCL:
-            SWAP_INT32(ip);
-            ip += 4; // fallthrough
         case OP_LOADVL: case OP_LOADGL: case OP_LOADAL:
             sp++; // fallthrough
         case OP_SETGL: case OP_SETAL: case OP_LARGC:
@@ -138,6 +135,7 @@
 
         case OP_LOADCL:
             sp++;
+        case OP_SETCL:
             SWAP_INT32(ip);
             ip += 4;
             SWAP_INT32(ip);