From e18688fc1442f32c3c10d58fd1ee469028eb9587 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 27 Jul 2000 16:44:08 +0000
Subject: [PATCH] Initialize the variables for multipe return values to 0 so we
 won't lose if the called function does not set them due to an error.

---
 cig/cig.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;