Changeset 13388


Ignore:
Timestamp:
Jan 14, 2010, 12:51:46 PM (10 years ago)
Author:
gz
Message:

fix for objdump parsing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/core-files.lisp

    r13386 r13388  
    130130                       for start = (1+ (position #\newline string :start header-pos)) then (1+ end)
    131131                       for end = (or (position #\newline string :start start) (length string))
    132                        while (and (< start end) (eql #\space (aref string start)))
     132                       while (and (< start end) (find (aref string start) " 123456789"))
    133133                       nconc
    134134                       (multiple-value-bind (name address filepos size)
Note: See TracChangeset for help on using the changeset viewer.