/[gcl]/gcl/o/hash.d
ViewVC logotype

Diff of /gcl/o/hash.d

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

revision 1.20 by camm, Mon Oct 3 14:56:29 2005 UTC revision 1.21 by camm, Thu Oct 6 01:54:30 2005 UTC
# Line 47  required additional changes to be made i Line 47  required additional changes to be made i
47    
48  #define NEED_MP_H  #define NEED_MP_H
49  #include <string.h>  #include <string.h>
50    #include <ctype.h>
51  #include "include.h"  #include "include.h"
52    
53    
# Line 254  BEGIN: Line 255  BEGIN:
255          s=x->st.st_self;          s=x->st.st_self;
256          len=len>sizeof(len) ? sizeof(len) : len;          len=len>sizeof(len) ? sizeof(len) : len;
257          for (s+=len-1;len--;s--)          for (s+=len-1;len--;s--)
258            h+= *s << CHAR_SIZE*len;            h+= toupper(*s) << CHAR_SIZE*len;
259        }        }
260        break;        break;
261    
# Line 289  BEGIN: Line 290  BEGIN:
290        h+=j*12345;        h+=j*12345;
291        j=j>10 ? 10 : j;        j=j>10 ? 10 : j;
292        for (i=0;i<j;i++)        for (i=0;i<j;i++)
293          h+=ihash_equalp(x->v.v_self[i],depth);          h+=ihash_equalp(aref(x,i),depth);
294        break;        break;
295                                                    
296      case t_array:      case t_array:
# Line 300  BEGIN: Line 301  BEGIN:
301        j=x->a.a_dim;        j=x->a.a_dim;
302        j=j>10 ? 10 : j;        j=j>10 ? 10 : j;
303        for (i=0;i<j;i++)        for (i=0;i<j;i++)
304          h+=ihash_equalp(x->a.a_self[i],depth);          h+=ihash_equalp(aref(x,i),depth);
305        break;        break;
306                                                    
307      case t_hashtable:      case t_hashtable:

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

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