scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
marting 2000-07-27 16:44:08 +00:00
parent 50664556eb
commit e18688fc14
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cig/cig.scm
View File

@ -458,7 +458,7 @@
(format #f (rep:c-decl i) outer-type))) (format #f (rep:c-decl i) outer-type)))
(define (info->var-decl i var) (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. (format #f (rep:c-decl i) var))) ; decl-ize var.
(define (make-gensym prefix i) (define (make-gensym prefix i)
@ -804,7 +804,7 @@
(define ret1-decl (define ret1-decl
" "
s48_value ret1;") s48_value ret1 = S48_FALSE;")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;