From 30e7e7851234512642b7558924f5a17e419b3924 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Tue, 15 Jul 2003 06:36:25 +0000 Subject: [PATCH] wrapped libxslt stylesheet application inside an ocaml blocking section so that ocaml exceptions, signals and other asynchronous stuff could be handled in the meantime --- helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c index bc2854a9b..225698a79 100644 --- a/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c +++ b/helm/DEVEL/gdome_xslt/ocaml/gdome_xslt/ml_gdome_xslt.c @@ -116,9 +116,11 @@ value ml_applyStylesheet(value source, value style, value params) i+=2; } c_params[i] = NULL; + enter_blocking_section(); res = applyStylesheet(Document_val(source), XsltStylesheetPtr_val(style), c_params); + leave_blocking_section(); free(c_params); if (res == NULL) { value* excp; -- 2.39.2