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 |
|
|
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 |
|
|
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: |
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: |