Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

using 0 for final array value initialization instead of NULL

Browse source
This commit is contained in:
Alex Shinn 2012-07-16 23:30:54 +09:00
parent 0553dd41b9
commit ea8a3df083
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tools/chibi-ffi
View file

@ -970,7 +970,7 @@
";\n" ";\n"
" }\n") " }\n")
(if (not (number? (type-array a))) (if (not (number? (type-array a)))
(cat " tmp" (type-index a) "[i] = NULL;\n"))) (cat " tmp" (type-index a) "[i] = 0;\n")))
((and (type-result? a) (not (basic-type? a)) ((and (type-result? a) (not (basic-type? a))
(not (type-free? a)) ;;(not (type-pointer? a)) (not (type-free? a)) ;;(not (type-pointer? a))
(not (type-reference? a)) (not (type-reference? a))