fix `regexp-match' variants given a long string and an output port

... again; commit d194fa6245 turned out to be incomplete.

collects/tests/racket/basic.rktl

@@ -1314,15 +1314,16 @@
 ;; unmatched output to a port:
 (for ([succeed? '(#f #t)])
   (for ([N '(1 100 1000 1023 1024 10000)])
-    (define o (open-output-bytes))
+    (for ([M (list 0 (quotient N 2))])
-    (void (regexp-match-positions #rx"y" 
+      (define o (open-output-bytes))
-                                  (string-append
+      (void (regexp-match-positions #rx"y" 
-                                   (make-string N #\x) 
+                                    (string-append
-                                   (if succeed? "y" ""))
+                                     (make-string N #\x) 
-                                  0 
+                                     (if succeed? "y" ""))
-                                  (+ N (if succeed? 1 0))
+                                    M
-                                  o))
+                                    (+ N (if succeed? 1 0))
-    (test N bytes-length (get-output-bytes o))))
+                                    o))
+    (test (- N M) bytes-length (get-output-bytes o)))))
 
 (arity-test regexp 1 1)
 (arity-test regexp? 1 1)

src/racket/src/regexp.c

@@ -5386,7 +5386,7 @@ static Scheme_Object *gen_compare(char *name, int pos,
 
   if (lazy_string) {
     full_s = lazy_string->s;
-    endset = lazy_string->end;
+    endset = lazy_string->end - lazy_string->start;
   }
 
   if (iport) {