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

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

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

revision 1.119 by mvo, Sun Jul 27 16:20:21 2003 UTC revision 1.120 by mvo, Mon Sep 15 12:36:57 2003 UTC
# Line 253  SCM_DEFINE (scm_setgroups, "setgroups", Line 253  SCM_DEFINE (scm_setgroups, "setgroups",
253      }      }
254    
255    size = ngroups * sizeof (GETGROUPS_T);    size = ngroups * sizeof (GETGROUPS_T);
256    /* XXX - if (size / sizeof (GETGROUPS_T) != ngroups) out-of-range */    if (size / sizeof (GETGROUPS_T) != ngroups)
257        SCM_OUT_OF_RANGE (SCM_ARG1, SCM_MAKINUM (ngroups));
258    groups = scm_malloc (size);    groups = scm_malloc (size);
259    for(i = 0; i < ngroups; i++)    for(i = 0; i < ngroups; i++)
260      groups [i] = SCM_NUM2ULONG (1, SCM_VECTOR_REF (group_vec, i));      groups [i] = SCM_NUM2ULONG (1, SCM_VECTOR_REF (group_vec, i));

Legend:
Removed from v.1.119  
changed lines
  Added in v.1.120

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