From 93e0e0a3dfaeb101b3e2eebdbdd663531fef4069 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 26 Jul 2023 19:51:55 +1200
Subject: Ensured stderr suppression stays in C without affecting Ada

---
 src/c_portadao.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c_portadao.c b/src/c_portadao.c
index fc2e3b0..d664b69 100644
--- a/src/c_portadao.c
+++ b/src/c_portadao.c
@@ -112,7 +112,11 @@ int apa_init(int stop_msg) {
     if (stop_msg) {
         suppress_stderr();
     }
-    return Pa_Initialize();
+    int result = Pa_Initialize();
+    if (suppressed) {
+        restore_stderr();
+    }
+    return result;
 }
 
 int apa_term() {
-- 
cgit