mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

sxml: Make parser thread-safe.

Browse source 
Fixes <https://bugs.gnu.org/51264>.

Lack of thread-safety would also affect the parser in (texinfo) because
it uses 'next-token-of'.

* module/sxml/upstream/input-parse.scm (input-parse:init-buffer): Always
return a fresh buffer.
This commit is contained in:
Ludovic Courtès 2021-10-22 13:49:40 +02:00
parent 06de31ecb7
commit 3b42b1eb52
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/sxml/upstream/input-parse.scm
View file

@ -154,9 +154,8 @@
; (e.g., during XML parsing). ; (e.g., during XML parsing).
(define input-parse:init-buffer (define input-parse:init-buffer
(let ((buffer (make-string 512))) (lambda () (make-string 512)))
(lambda () buffer)))
; See a better version below ; See a better version below
(define-opt (next-token-old prefix-skipped-chars break-chars (define-opt (next-token-old prefix-skipped-chars break-chars