/[guile]/guile/guile-core/libguile/convert.i.c
ViewVC logotype

Diff of /guile/guile-core/libguile/convert.i.c

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

revision 1.3 by ela, Wed Feb 27 15:41:01 2002 UTC revision 1.4 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 197  CTYPES2UVECT (const CTYPE *data, long n) Line 197  CTYPES2UVECT (const CTYPE *data, long n)
197                      n > 0 && n <= SCM_UVECTOR_MAX_LENGTH);                      n > 0 && n <= SCM_UVECTOR_MAX_LENGTH);
198    v = scm_gc_malloc (n * sizeof (CTYPE), "uvect");    v = scm_gc_malloc (n * sizeof (CTYPE), "uvect");
199    memcpy (v, data, n * sizeof (CTYPE));    memcpy (v, data, n * sizeof (CTYPE));
200    return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE), (scm_t_bits) v);    return scm_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE), (scm_t_bits) v);
201  }  }
202  #undef FUNC_NAME  #undef FUNC_NAME
203    
# Line 212  CTYPES2UVECT_OPTIONAL (const unsigned CT Line 212  CTYPES2UVECT_OPTIONAL (const unsigned CT
212                      n > 0 && n <= SCM_UVECTOR_MAX_LENGTH);                      n > 0 && n <= SCM_UVECTOR_MAX_LENGTH);
213    v = scm_gc_malloc (n * sizeof (unsigned CTYPE) * n, "uvect");    v = scm_gc_malloc (n * sizeof (unsigned CTYPE) * n, "uvect");
214    memcpy (v, data, n * sizeof (unsigned CTYPE));    memcpy (v, data, n * sizeof (unsigned CTYPE));
215    return scm_alloc_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE_OPTIONAL),    return scm_cell (SCM_MAKE_UVECTOR_TAG (n, UVECTTYPE_OPTIONAL),
216                           (scm_t_bits) v);                     (scm_t_bits) v);
217  }  }
218  #undef FUNC_NAME  #undef FUNC_NAME
219  #endif /* UVECTTYPE_OPTIONAL */  #endif /* UVECTTYPE_OPTIONAL */

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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