home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LRTLSRC.RAR / PE2ELF / PE2ELF5.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  704b  |  41 lines
  1. > Seite 84
  2. > 
  3. > unsigned long
  4. > elf_hash(const unsigned char *name)
  5. > {
  6. >   unsigned long h = 0, g;
  7. >   while (*name)
  8. >   {
  9. >     h = (h << 4) + *name++;
  10. >     if (g = h & 0xf0000000)
  11. >       h ^= g >> 24;
  12. >     h &= ~g;
  13. >   }
  14. >   return h;
  15. > }
  16. > 
  17. > function elf_hash(const name:pchar):longint;
  18. >   var
  19. >     z:pchar;
  20. >     g,h:longint;
  21. >   begin
  22. >     z:=name;
  23. >     h:=0;
  24. >     while z[0]<>#0 do
  25. >       begin
  26. >         h:=(h shl 4)+Ord(name[0);
  27. >         Inc(name);
  28. >         if ?? then
  29. >           ??
  30. >         ??
  31.  
  32. Ich wⁿrde sagen:
  33.  
  34.           if g = (h and $F0000000) then
  35.             h := h xor (g shr 24);
  36.  
  37.           h := h and not g;
  38.  
  39. >       end;
  40. >   end;
  41.