/[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.9.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.9.6.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 180  BEGIN: Line 180  BEGIN:
180  }  }
181                                    
182  static object  static object
183  hash_equal(x,depth)  FFN(hash_equal)(x,depth)
184  object x;  object x;
185  int depth;  int depth;
186  {  {
# Line 372  object hashtable; Line 372  object hashtable;
372          @(return h)          @(return h)
373  @)  @)
374    
375  void  LFD(Lhash_table_p)(void)
 Lhash_table_p(void)  
376  {  {
377          check_arg(1);          check_arg(1);
378    
# Line 383  Lhash_table_p(void) Line 382  Lhash_table_p(void)
382                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
383  }  }
384    
385  void  LFD(Lgethash)()
 Lgethash()  
386  {  {
387          int narg;          int narg;
388          struct htent *e;          struct htent *e;
# Line 408  Lgethash() Line 406  Lgethash()
406          vs_popp;          vs_popp;
407  }  }
408    
409  void  LFD(siLhash_set)()
 siLhash_set()  
410  {  {
411          check_arg(3);          check_arg(3);
412    
# Line 417  siLhash_set() Line 414  siLhash_set()
414          sethash(vs_base[0], vs_base[1], vs_base[2]);          sethash(vs_base[0], vs_base[1], vs_base[2]);
415          vs_base += 2;          vs_base += 2;
416  }  }
417                    
418  void  LFD(Lremhash)()
 Lremhash()  
419  {  {
420          struct htent *e;          struct htent *e;
421    
# Line 436  Lremhash() Line 432  Lremhash()
432          vs_top = vs_base + 1;          vs_top = vs_base + 1;
433  }  }
434    
435  void  LFD(Lclrhash)()
 Lclrhash()  
436  {  {
437          int i;          int i;
438    
# Line 450  Lclrhash() Line 445  Lclrhash()
445          vs_base[0]->ht.ht_nent = 0;          vs_base[0]->ht.ht_nent = 0;
446  }  }
447    
448  void  LFD(Lhash_table_count)()
 Lhash_table_count()  
449  {  {
450    
451          check_arg(1);          check_arg(1);
# Line 460  Lhash_table_count() Line 454  Lhash_table_count()
454  }  }
455    
456    
457  void  LFD(Lsxhash)()
 Lsxhash()  
458  {  {
459          check_arg(1);          check_arg(1);
460    
461          vs_base[0] = make_fixnum((ihash_equal(vs_base[0],0) & 0x7fffffff));          vs_base[0] = make_fixnum((ihash_equal(vs_base[0],0) & 0x7fffffff));
462  }  }
463    
464  void  LFD(Lmaphash)()
 Lmaphash()  
465  {  {
466          object *base = vs_base;          object *base = vs_base;
467          object hashtable;          object hashtable;

Legend:
Removed from v.1.9.6.1  
changed lines
  Added in v.1.9.6.2

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