Changeset 26323 in project


Ignore:
Timestamp:
04/02/12 05:06:24 (9 years ago)
Author:
Ivan Raikov
Message:

agrep: using long instead of int to account for 64-bit systems; removed easyffi dependency

Location:
release/4/agrep/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • release/4/agrep/trunk/agrep.meta

    r24119 r26323  
    1818 ; A list of eggs agrep depends on.
    1919
    20  (needs easyffi datatype)
     20 (needs datatype)
    2121
    2222 (test-depends test)
  • release/4/agrep/trunk/agrep.scm

    r24256 r26323  
    44;;
    55;;
    6 ;; Copyright 2009-2011 Ivan Raikov and the Okinawa Institute of Science and
     6;; Copyright 2009-2012 Ivan Raikov and the Okinawa Institute of Science and
    77;; Technology.
    88;;
  • release/4/agrep/trunk/agrep.setup

    r24256 r26323  
    44  (make-pathname #f fn ##sys#load-dynamic-extension))   
    55
    6 (compile -O2 -d0 -I. -s agrep.scm  -X easyffi -j agrep)
     6(compile -O3 -d0 -I. -s agrep.scm -j agrep)
    77(compile -O2 -d0 -s agrep.import.scm)
    88
     
    1717
    1818  ; Assoc list with properties for your extension:
    19   `((version 1.3)
     19  `((version 1.4)
    2020    ))
    2121   
  • release/4/agrep/trunk/engine.scm

    r24256 r26323  
    44;;
    55;;
    6 ;; Copyright 2009-2010 Ivan Raikov and the Okinawa Institute of Science and
     6;; Copyright 2009-2012 Ivan Raikov and the Okinawa Institute of Science and
    77;; Technology.
    88;;
     
    209209/* General code: arbitrary errors, arbitrary pattern length */
    210210
    211 uint match_general(uint * table, uint m,
     211ulong match_general(uint * table, uint m,
    212212                   uint nerrs, int wholeword,
    213213                   uchar * text, size_t length)
     
    221221  uint  carry;
    222222  uint  match_empty;
    223   int  retcode;
     223  ulong retcode;
    224224
    225225  nwords = (m + BITS_PER_WORD - 1) / BITS_PER_WORD;
     
    321321    }
    322322  }
    323   C_return(C_fix(match_general((uint *) v_table, patlen,
    324                                v_nerrs, v_wholeword,
    325                                text, len)));
     323
     324 
     325
     326  C_return(C_fix((uint)match_general((uint *) v_table, patlen,
     327                                     v_nerrs, v_wholeword,
     328                                     text, len)));
    326329END
    327330))
  • release/4/agrep/trunk/skeleton.h

    r20318 r26323  
    1515#endif
    1616
    17 static unsigned int FUNCTION_NAME(uint * table, size_t pattern_length,
    18                                   uchar * text, size_t length)
     17static unsigned long FUNCTION_NAME(uint * table, size_t pattern_length,
     18                                   uchar * text, size_t length)
    1919{
    2020  ulong R0;
Note: See TracChangeset for help on using the changeset viewer.