From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Wed, 12 Jun 2019 01:36:31 +0000 (+0200)
Subject: add Bstack_set
X-Git-Tag: emacs-28.0.90~2727^2~1494
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=edcadf5c440a95c0c6a564d89eb9beac64e229fc;p=emacs.git

add Bstack_set
---

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;