/[guile]/guile/guile-core/libguile/unif.c
ViewVC logotype

Diff of /guile/guile-core/libguile/unif.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.128 by ossau, Fri Feb 22 23:14:38 2002 UTC revision 1.129 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 170  scm_make_uve (long k, SCM prot) Line 170  scm_make_uve (long k, SCM prot)
170            SCM_ASSERT_RANGE (1,            SCM_ASSERT_RANGE (1,
171                              scm_long2num (k), k <= SCM_BITVECTOR_MAX_LENGTH);                              scm_long2num (k), k <= SCM_BITVECTOR_MAX_LENGTH);
172            i = sizeof (long) * ((k + SCM_LONG_BIT - 1) / SCM_LONG_BIT);            i = sizeof (long) * ((k + SCM_LONG_BIT - 1) / SCM_LONG_BIT);
173            v = scm_alloc_cell (SCM_MAKE_BITVECTOR_TAG (k),            v = scm_cell (SCM_MAKE_BITVECTOR_TAG (k),
174                                (scm_t_bits) scm_gc_malloc (i, "vector"));                          (scm_t_bits) scm_gc_malloc (i, "vector"));
175          }          }
176        else        else
177          v = scm_alloc_cell (SCM_MAKE_BITVECTOR_TAG (0), 0);          v = scm_cell (SCM_MAKE_BITVECTOR_TAG (0), 0);
178        return v;        return v;
179      }      }
180    else if (SCM_CHARP (prot) && (SCM_CHAR (prot) == '\0'))    else if (SCM_CHARP (prot) && (SCM_CHAR (prot) == '\0'))
# Line 239  scm_make_uve (long k, SCM prot) Line 239  scm_make_uve (long k, SCM prot)
239    
240    SCM_ASSERT_RANGE (1, scm_long2num (k), k <= SCM_UVECTOR_MAX_LENGTH);    SCM_ASSERT_RANGE (1, scm_long2num (k), k <= SCM_UVECTOR_MAX_LENGTH);
241    
242    return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (k, type),    return scm_cell (SCM_MAKE_UVECTOR_TAG (k, type),
243                           (scm_t_bits) scm_gc_malloc (i, "vector"));                     (scm_t_bits) scm_gc_malloc (i, "vector"));
244  }  }
245  #undef FUNC_NAME  #undef FUNC_NAME
246    

Legend:
Removed from v.1.128  
changed lines
  Added in v.1.129

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26