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

Diff of /gcl/o/predicate.c

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

revision 1.14 by camm, Thu Sep 22 17:26:50 2005 UTC revision 1.15 by camm, Sat Oct 1 15:41:50 2005 UTC
# Line 732  equalp1(register object x, register obje Line 732  equalp1(register object x, register obje
732        }        }
733      }      }
734            
735      case t_hashtable:
736        {
737          unsigned i;
738          struct htent *e;
739    
740          if (x->ht.ht_nent!=y->ht.ht_nent)
741            return(FALSE);
742          if (x->ht.ht_test!=y->ht.ht_test)
743            return(FALSE);
744          for (i=0;i<x->ht.ht_size;i++) {
745            if (x->ht.ht_self[i].hte_key==OBJNULL)
746              continue;
747            if (!(e=gethash(x->ht.ht_self[i].hte_key,y))
748                || !equalp(x->ht.ht_self[i].hte_value,e->hte_value))
749              return(FALSE);
750          }
751          return(TRUE);
752          break;
753        }
754    
755    case t_pathname:    case t_pathname:
756      return(equal(x, y));      return(equal(x, y));
757    default:    default:

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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