Changeset 13585


Ignore:
Timestamp:
Apr 6, 2010, 9:28:53 AM (9 years ago)
Author:
gb
Message:

In COMPUTE-BOYER-MOORE-JUMPS, the loop which fills the "jumps" vector
with "len" should be bounded by the length of the "jumps" vector, not
the length of the search string.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/search1.lisp

    r12635 r13585  
    379379    (when (zerop len) (editor-error "Zero length search string not allowed."))
    380380    ;; The default jump is the length of the search string.
    381     (dotimes (i len)
     381    (dotimes (i (length jumps))
    382382      (setf (aref jumps i) len))
    383383    ;; For chars in the string the jump is the distance from the end.
     
    385385      (setf (aref jumps (funcall access-fun vec i)) (- len i 1)))
    386386    jumps))
     387
     388
    387389
    388390
Note: See TracChangeset for help on using the changeset viewer.