conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

- Fixed a performance bug that caused slowness in read-char for IO 

intensive code (cat, tail, wc)
This commit is contained in:
Abdulaziz Ghuloum 2008-01-19 13:50:53 -05:00
parent 7a970db55d
commit 323d1037ea
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/ikarus.io.ss
View File

@ -209,7 +209,11 @@
(define fast-put-latin-tag #b00000001100110) (define fast-put-latin-tag #b00000001100110)
(define fast-attrs-mask #xFFF) (define fast-attrs-mask #xFFF)
(define ($port-fast-attrs x) (fxand ($port-tag x) fast-attrs-mask)) (define-syntax $port-fast-attrs
(identifier-syntax
(lambda (x)
(import (ikarus system $fx))
($fxlogand ($port-tag x) fast-attrs-mask))))
(define (input-port-name p) (define (input-port-name p)
(if (input-port? p) (if (input-port? p)
@ -1183,6 +1187,7 @@
(make-i/o-filename-error id)))))) (make-i/o-filename-error id))))))
(define block-size 4096) (define block-size 4096)
;(define block-size (* 16 4096))
(define input-file-buffer-size (+ block-size 128)) (define input-file-buffer-size (+ block-size 128))
(define output-file-buffer-size block-size) (define output-file-buffer-size block-size)
@ -1195,9 +1200,12 @@
id id
(letrec ([refill (letrec ([refill
(lambda (bv idx cnt) (lambda (bv idx cnt)
(import UNSAFE)
(let ([bytes (let ([bytes
(foreign-call "ikrt_read_fd" fd bv idx (foreign-call "ikrt_read_fd" fd bv idx
(fxmin block-size cnt))]) (if (fx< block-size cnt)
block-size
cnt))])
(cond (cond
[(fx>= bytes 0) bytes] [(fx>= bytes 0) bytes]
[(fx= bytes EAGAIN-error-code) [(fx= bytes EAGAIN-error-code)