/[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.21 by camm, Thu Oct 6 01:54:30 2005 UTC revision 1.22 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 249  BEGIN: Line 249  BEGIN:
249        goto BEGIN;        goto BEGIN;
250        break;        break;
251      case t_symbol:      case t_symbol:
     case t_string:  
252        {        {
253          long len=x->st.st_fillp;          long len=x->st.st_fillp;
254          s=x->st.st_self;          s=x->st.st_self;
# Line 285  BEGIN: Line 284  BEGIN:
284        }        }
285        break;        break;
286    
287        case t_string:
288      case t_vector:      case t_vector:
289        j=x->v.v_fillp;        j=x->v.v_fillp;
290        h+=j*12345;        h+=j*12345;

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

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