diff --git a/cig/cig.scm b/cig/cig.scm index 2a0ef0e..74af388 100644 --- a/cig/cig.scm +++ b/cig/cig.scm @@ -458,7 +458,7 @@ (format #f (rep:c-decl i) outer-type))) (define (info->var-decl i var) - (format #f "~% ~a;" ; statement-ize decl. + (format #f "~% ~a = 0;" ; statement-ize decl. (format #f (rep:c-decl i) var))) ; decl-ize var. (define (make-gensym prefix i) @@ -804,7 +804,7 @@ (define ret1-decl " - s48_value ret1;") + s48_value ret1 = S48_FALSE;") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;