From 2534d8a3a5ba5d49f9c5a9c474cd15af1f2e1163 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 13 Sep 2006 10:11:53 +0000 Subject: [PATCH] another PCRE try svn: r4322 --- collects/tests/mzscheme/benchmarks/rx/pcre.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/benchmarks/rx/pcre.ss b/collects/tests/mzscheme/benchmarks/rx/pcre.ss index 3e91b09d0d..8fd95d87f3 100644 --- a/collects/tests/mzscheme/benchmarks/rx/pcre.ss +++ b/collects/tests/mzscheme/benchmarks/rx/pcre.ss @@ -7,7 +7,7 @@ (define pcre-compile (get-ffi-obj "pcre_compile" pcre-lib - (_fun _bytes _int _pointer _pointer _pointer + (_fun _bytes _int _bytes _bytes _pointer -> _pointer))) (define pcre-study (get-ffi-obj "pcre_study" pcre-lib @@ -19,13 +19,13 @@ _int _int _bytes _int -> _int))) + (define random-vector (make-bytes 100)) + (define (pcregexp s) - (let* ([pat (pcre-compile s 0 #f #f #f)] + (let* ([pat (pcre-compile s 0 random-vector random-vector #f)] [extra #f #;(pcre-study pat 0 #f)]) (cons pat extra))) - (define random-vector (make-bytes 100)) - (define (pcregexp-match re bytes) (pcre-exec (car re) (cdr re) bytes (bytes-length bytes) 0 0 random-vector 10))