~ chicken-core (chicken-5) 443c37dc313c13b371f82d8ee710c2f8a5a77910

commit 443c37dc313c13b371f82d8ee710c2f8a5a77910
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jul 19 11:05:34 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jul 19 11:05:34 2015 +0200

    repaired codegen for foreign-stubs

diff --git a/c-backend.scm b/c-backend.scm
index 62fa4deb..25296e1a 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -975,11 +975,11 @@
 	      "(x))); goto C_ret; C_cblockend"))
        (cond (cps
 	      (gen #t "C_noret_decl(" id ")"
-		   #t "static void C_ccall " id "(C_word C_c,C_word C_av){"
-		   #t "C_word C_buf=C_av[0];")
-	      (do ((i 1 (add1 i)))
+		   #t "static void C_ccall " id "(C_word C_c,C_word *C_av){"
+		   #t "C_word C_k=C_av[1],C_buf=C_av[2];")
+	      (do ((i 0 (add1 i)))
 		  ((>= i n))
-		(gen #t "C_word C_a" i "=C-av[" i "];")))
+		(gen #t "C_word C_a" i "=C_av[" (+ i 3) "];")))
 	     (else
 	      (gen #t "C_regparm static C_word C_fcall " id #\()
 	      (apply gen (intersperse (cons "C_word C_buf" (make-variable-list n "C_a")) #\,))