[Gcl-devel] [PATCH 05/11] Always pass a va_list as the last arg of call_proc_new

[Will Newton]

From: Will Newton <address@hidden>

On some architectures, e.g. aarch64, va_list is not a pointer
type. In this case we need to actually pass an object of type
va_list rather than zero or the compiler will emit an error.
---
 gcl/cmpnew/gcl_cmpcall.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcl/cmpnew/gcl_cmpcall.lsp b/gcl/cmpnew/gcl_cmpcall.lsp
index 6fa3184..f9f1584 100755
--- a/gcl/cmpnew/gcl_cmpcall.lsp
+++ b/gcl/cmpnew/gcl_cmpcall.lsp
@@ -526,10 +526,10 @@
                 (write-to-string (argsizes args type 0));FIXME
                 ",(void **)(void *)&Lnk" num "," (new-proclaimed-argd args 
type)
                 ",first,ap);va_end(ap);return V1;}")
-          (wt "(){" d "V1=(" d ")call_proc_new(" (vv-str (add-object name)) 
"," (if clp "1" "0") "," 
+          (wt "(){" d "V1;va_list ap;V1=(" d ")call_proc_new(" (vv-str 
(add-object name)) "," (if clp "1" "0") ","
               (write-to-string (argsizes args type 0));FIXME
               ",(void **)(void *)&Lnk" num "," (new-proclaimed-argd args type)
-              ",0,0);return V1;}")))))
+              ",0,ap);return V1;}")))))
     (setq name (function-string name))
     (if (find #\/ name) (setq name (remove #\/ name)))
     (wt " /* " name " */")))
-- 
1.9.3