From: Will Newton <[email protected]>
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
_______________________________________________
Gcl-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/gcl-devel
