From 5f760e4a2c72b62136f27e0a6d61faef99dbad3b Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 18 Oct 2018 13:10:32 -0400 Subject: [PATCH] Use alloca_pair instead of make_pair for literals --- scheme/cyclone/cgen.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index f7a823bc..3aa70014 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -398,7 +398,7 @@ (create-cons (lambda (cvar a b) (c-code/vars - (string-append "make_pair(" cvar "," (c:body a) "," (c:body b) ");") + (string-append "alloca_pair(" cvar "," (c:body a) "," (c:body b) ");") (append (c:allocs a) (c:allocs b)))) ) (_c-compile-scalars @@ -416,7 +416,7 @@ (_c-compile-scalars (cdr args))))) (set! num-args (+ 1 num-args)) (c-code/vars - (string-append "&" cvar-name) + cvar-name ;; Not needed with alloca - (string-append "&" cvar-name) (append (c:allocs cell) (list (c:body cell))))))))))