From edcadf5c440a95c0c6a564d89eb9beac64e229fc Mon Sep 17 00:00:00 2001
From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Wed, 12 Jun 2019 03:36:31 +0200
Subject: [PATCH] add Bstack_set

---
 src/comp.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/comp.c b/src/comp.c
index aa4bb7fa45c..5fd11e7a7ee 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1530,9 +1530,18 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
 	case BinsertN:
 	  error ("BinsertN not supported");
 	  break;
+
 	case Bstack_set:
-	  error ("Bstack_set not supported");
+	  /* stack-set-0 = discard; stack-set-1 = discard-1-preserve-tos.  */
+	  op = FETCH;
+	  POP1;
+	  if (op > 0)
+	    gcc_jit_block_add_assignment (comp.bblock->gcc_bb,
+					  NULL,
+					  *(stack - op),
+					  args[0]);
 	  break;
+
 	case Bstack_set2:
 	  error ("Bstack_set2 not supported");
 	  break;
-- 
2.39.5