/[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.6 by mvo, Mon Mar 11 17:51:52 2002 UTC revision 1.7 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 245  SCM Line 245  SCM
245  CTYPES2SCM (const CTYPE *data, long n)  CTYPES2SCM (const CTYPE *data, long n)
246  {  {
247    long i;    long i;
248    SCM v, *velts;    SCM v;
249      
250    SCM_ASSERT_RANGE (SCM_ARG2, scm_long2num (n),    SCM_ASSERT_RANGE (SCM_ARG2, scm_long2num (n),
251                      n > 0 && n <= SCM_VECTOR_MAX_LENGTH);                      n > 0 && n <= SCM_VECTOR_MAX_LENGTH);
252    v = scm_c_make_vector (n, SCM_UNSPECIFIED);    v = scm_c_make_vector (n, SCM_UNSPECIFIED);
253    velts = SCM_VELTS (v);  
254    for (i = 0; i < n; i++)    for (i = 0; i < n; i++)
255  #ifdef FLOATTYPE  #ifdef FLOATTYPE
256      velts[i] = scm_make_real ((double) data[i]);      SCM_VECTOR_SET (v, i, scm_make_real ((double) data[i]));
257  #else  #else
258      velts[i] = SCM_MAKINUM (data[i]);      SCM_VECTOR_SET (v, i,  SCM_MAKINUM (data[i]));
259  #endif  #endif
260    return v;    return v;
261  }  }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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