/[gcl]/gcl/o/fat_string.c
ViewVC logotype

Diff of /gcl/o/fat_string.c

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

revision 1.19 by camm, Thu Mar 4 19:36:36 2004 UTC revision 1.20 by camm, Fri Jun 10 15:13:53 2005 UTC
# Line 159  DEFUNO_NEW("READ-EXTERNALS",object,fSrea Line 159  DEFUNO_NEW("READ-EXTERNALS",object,fSrea
159  int maxpage;  int maxpage;
160  object sScdefn;  object sScdefn;
161    
162  #define CF_FLAG ((unsigned long)1 << (sizeof(long)*8-1))  #define CF_FLAG ((unsigned long)1 << (sizeof(long)*CHAR_SIZE-1))
163    
164  static void  static void
165  cfuns_to_combined_table(unsigned int n) /* non zero n will ensure new table length */  cfuns_to_combined_table(unsigned int n) /* non zero n will ensure new table length */
# Line 194  cfuns_to_combined_table(unsigned int n) Line 194  cfuns_to_combined_table(unsigned int n)
194           type_of(x)!=t_vfun &&           type_of(x)!=t_vfun &&
195           type_of(x)!=t_gfun           type_of(x)!=t_gfun
196           ) continue;           ) continue;
197       if ((x->d.m == FREE) || x->cf.cf_self == NULL)       if (is_free(x) || x->cf.cf_self == NULL)
198         continue;         continue;
199          /* the cdefn things are the proclaimed call types. */          /* the cdefn things are the proclaimed call types. */
200       cf_addr=(char * ) ((unsigned long)(x->cf.cf_self));       cf_addr=(char * ) ((unsigned long)(x->cf.cf_self));

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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