From 29411b859ba11d9c1e88ec79553765383e32c642 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 6 Mar 2015 15:14:15 -0700 Subject: [PATCH] smp: without-interrupts: parser-buffer.scm --- README.txt | 3 +++ src/runtime/parser-buffer.scm | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/README.txt b/README.txt index 01a7c6d8e..4bf597ac4 100644 --- a/README.txt +++ b/README.txt @@ -1379,6 +1379,9 @@ The hits with accompanying analysis: parser-buffer.scm:383: (without-interrupts + OK. Avoiding aborts that would break the parser buffer(?). + Replaced with without-interruption. + prgcop.scm:163: (with-absolutely-no-interrupts thunk)) process.scm:85: (without-interrupts diff --git a/src/runtime/parser-buffer.scm b/src/runtime/parser-buffer.scm index b72504902..0df004050 100644 --- a/src/runtime/parser-buffer.scm +++ b/src/runtime/parser-buffer.scm @@ -380,7 +380,7 @@ USA. (fix:<= end* (fix:quotient n 4))) (make-wide-string (fix:quotient n 2)) string)))) - (without-interrupts + (without-interruption (lambda () (do ((i index (fix:+ i 1)) (j 0 (fix:+ j 1))) -- 2.25.1