~ chicken-core (chicken-5) 7d6e701dbc7edbe5beb2f6717f2842ded20b8617
commit 7d6e701dbc7edbe5beb2f6717f2842ded20b8617 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Wed Mar 22 11:20:15 2017 +0100 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Wed Mar 22 11:20:15 2017 +0100 drop comments from generated C code diff --git a/c-backend.scm b/c-backend.scm index e2b5fe94..5d484c58 100644 --- a/c-backend.scm +++ b/c-backend.scm @@ -520,11 +520,11 @@ (eq? caller-rest-mode 'none))) (gen #t "C_word av2[" avl "];")) ((>= caller-argcount avl) ; Argvec known to be re-usable? - (gen #t "C_word *av2=av; /* Re-use our own argvector */")) + (gen #t "C_word *av2=av;")) ; Re-use our own argvector (else ; Need to determine dynamically. This is slower. (gen #t "C_word *av2;") (gen #t "if(c >= " avl ") {") - (gen #t " av2=av; /* Re-use our own argvector */") + (gen #t " av2=av;") ; Re-use our own argvector (gen #t "} else {") (gen #t " av2=C_alloc(" avl ");") (gen #t "}")))Trap