initialize `make-flvector' result with default 0.0s
Merge to 5.0.2
(cherry picked from commit 51f20afd0b
)
This commit is contained in:
parent
0b8537e246
commit
fef3bc2b77
|
@ -3321,6 +3321,8 @@ static Scheme_Object *do_make_flvector (const char *name, int as_shared, int arg
|
|||
{
|
||||
Scheme_Double_Vector *vec;
|
||||
long size;
|
||||
double d;
|
||||
int i;
|
||||
|
||||
if (SCHEME_INTP(argv[0]))
|
||||
size = SCHEME_INT_VAL(argv[0]);
|
||||
|
@ -3348,14 +3350,14 @@ static Scheme_Object *do_make_flvector (const char *name, int as_shared, int arg
|
|||
#endif
|
||||
vec = scheme_alloc_flvector(size);
|
||||
|
||||
if (argc > 1) {
|
||||
int i;
|
||||
double d = SCHEME_DBL_VAL(argv[1]);
|
||||
for (i = 0; i < size; i++) {
|
||||
vec->els[i] = d;
|
||||
}
|
||||
if (argc > 1)
|
||||
d = SCHEME_DBL_VAL(argv[1]);
|
||||
else
|
||||
d = 0.0;
|
||||
for (i = 0; i < size; i++) {
|
||||
vec->els[i] = d;
|
||||
}
|
||||
|
||||
|
||||
return (Scheme_Object *)vec;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user