Disable stack allocation when nan enabled

manuel-serrano · Nov 9, 2024 · 06292a5 · 06292a5
1 parent 885c0e2
commit 06292a5
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 11 deletions.
diff --git a/hopscript/array.sch b/hopscript/array.sch
@@ -3,8 +3,8 @@
 ;*    -------------------------------------------------------------    */
 ;*    Author      :  Manuel Serrano                                    */
 ;*    Creation    :  Sun Dec 18 08:02:30 2016                          */
-;*    Last change :  Sun Apr 30 21:17:30 2023 (serrano)                */
-;*    Copyright   :  2016-23 Manuel Serrano                            */
+;*    Last change :  Sat Nov  9 09:25:13 2024 (serrano)                */
+;*    Copyright   :  2016-24 Manuel Serrano                            */
 ;*    -------------------------------------------------------------    */
 ;*    Array macros for js2scheme                                       */
 ;*=====================================================================*/
@@ -250,7 +250,7 @@
        (match-case proc
 	  ((lambda (?v) . ?body)
 	   (cond-expand
-	      ((and bigloo-c (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
+	      ((and bigloo-c (config nan-tagging #f) (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
 	       (let ((p (gensym 'p))
 		     (len (length args)))
 		  `(let ()
@@ -269,7 +269,7 @@
        (match-case proc
 	  ((lambda (?v) . ?body)
 	   (cond-expand
-	      ((and bigloo-c (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
+	      ((and bigloo-c (config nan-tagging #f) (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
 	       (let ((p (gensym 'p)))
 		  `(let ()
 		      ,(decl-vector p len)
@@ -284,7 +284,7 @@
        (match-case proc
 	  ((lambda (?v) . ?body)
 	   (cond-expand
-	      ((and bigloo-c (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
+	      ((and bigloo-c (config nan-tagging #f) (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
 	       (let ((p (gensym 'p))
 		     (l (gensym 'l)))
 		  `(let ((,l ,len))
@@ -302,7 +302,7 @@
        (match-case proc
 	  ((lambda (?v) . ?body)
 	   (cond-expand
-	      ((and bigloo-c (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
+	      ((and bigloo-c (config nan-tagging #f) (not bigloo-saw) (config have-c99-stack-alloc #t) (not devel) (not debug))
 	       (let* ((p (gensym 'p))
 		      (i (gensym 'i))
 		      (len (gensym 'l))

diff --git a/hopscript/property_expd.sch b/hopscript/property_expd.sch
@@ -3,7 +3,7 @@
 ;*    -------------------------------------------------------------    */
 ;*    Author      :  Manuel Serrano                                    */
 ;*    Creation    :  Wed Feb 17 09:28:50 2016                          */
-;*    Last change :  Fri Jul  5 07:35:02 2024 (serrano)                */
+;*    Last change :  Sat Nov  9 09:26:36 2024 (serrano)                */
 ;*    Copyright   :  2016-24 Manuel Serrano                            */
 ;*    -------------------------------------------------------------    */
 ;*    HopScript property expanders                                     */
@@ -1446,7 +1446,7 @@
        (match-case proc
 	  ((lambda (?l) . ?body)
 	   (cond-expand
-	      ((and bigloo-c (config have-c99-stack-alloc #t) (not devel) (not debug))
+	      ((and bigloo-c (config nan-tagging #f) (config have-c99-stack-alloc #t) (not devel) (not debug))
 	       (let ((stk (gensym 'stk))
 		     (p (gensym 'p))
 		     (aux (gensym 'aux))

diff --git a/hopscript/public_expd.sch b/hopscript/public_expd.sch
@@ -3,8 +3,8 @@
 ;*    -------------------------------------------------------------    */
 ;*    Author      :  Manuel Serrano                                    */
 ;*    Creation    :  Wed Aug 23 07:35:40 2017                          */
-;*    Last change :  Mon Feb  7 08:09:26 2022 (serrano)                */
-;*    Copyright   :  2017-22 Manuel Serrano                            */
+;*    Last change :  Sat Nov  9 09:26:59 2024 (serrano)                */
+;*    Copyright   :  2017-24 Manuel Serrano                            */
 ;*    -------------------------------------------------------------    */
 ;*    HopScript public expanders                                       */
 ;*    -------------------------------------------------------------    */
@@ -347,7 +347,7 @@
       ((?- (and ?yield (js-make-yield ?val ?done ?%this))
 	  (and ?proc (lambda (?y) . ?body)))
        (cond-expand
-	  ((and bigloo-c (not devel) (not debug))
+	  ((and bigloo-c (config nan-tagging #f) (not devel) (not debug))
 	   (let ((tmp (gensym 'aux)))
 	      (e `(let ()
 		     (pragma ,(format "struct BgL_jsyieldz00_bgl ~a;" tmp))