shithub: femtolisp

Download patch

ref: c0ce2f17a380f920f6756b1a03080679e73ecdd1
parent: fce9b7e74afe19b3517efff0ac77bf4b169951c7
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Tue Mar 21 20:45:53 EDT 2023

fix wet floor warnings

--- a/maxstack.inc
+++ b/maxstack.inc
@@ -83,7 +83,7 @@
             break;
         case OP_BRNNL: case OP_BRNL:
             SWAP_INT32(ip);
-            ip += 4;
+            ip += 4; // fallthrough
         case OP_RET:
         case OP_CONS: case OP_SETCAR: case OP_SETCDR: case OP_POP:
         case OP_EQ: case OP_EQV: case OP_EQUAL: case OP_ADD2: case OP_SUB2:
@@ -101,13 +101,13 @@
 
         case OP_FOR:
             if (maxsp < sp+2)
-                maxsp = sp+2;
+                maxsp = sp+2; // fallthrough
         case OP_ASET:
             sp -= 2;
             break;
 
         case OP_LOADI8: case OP_LOADV: case OP_LOADG: case OP_LOADA:
-            ip++;
+            ip++; // fallthrough
         case OP_LOADT: case OP_LOADF: case OP_LOADNIL: case OP_LOAD0:
         case OP_LOAD1: case OP_LOADA0: case OP_LOADA1: case OP_LOADC00:
         case OP_LOADC01: case OP_DUP:
@@ -116,9 +116,9 @@
 
         case OP_SETCL:
             SWAP_INT32(ip);
-            ip += 4;
+            ip += 4; // fallthrough
         case OP_LOADVL: case OP_LOADGL: case OP_LOADAL:
-            sp++;
+            sp++; // fallthrough
         case OP_SETGL: case OP_SETAL: case OP_LARGC:
             SWAP_INT32(ip);
             ip += 4;
@@ -125,7 +125,7 @@
             break;
 
         case OP_LOADC:
-            sp++;
+            sp++; // fallthrough
         case OP_SETC:
             ip += 2;
             break;