From b9788c0bb2fabdcdd70029cd2ffbdd12706aea1d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 26 Dec 2020 14:26:59 +0100
Subject: libraries: Load_Std_Library: now return a status.

Propagate this change to libghdl and python binding to avoid abort.

For #1551
---
 src/vhdl/translate/ortho_front.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/vhdl/translate')

diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb
index 6d75e2826..d681157d9 100644
--- a/src/vhdl/translate/ortho_front.adb
+++ b/src/vhdl/translate/ortho_front.adb
@@ -540,7 +540,9 @@ package body Ortho_Front is
    begin
       if Nbr_Parse = 0 then
          --  Initialize only once...
-         Libraries.Load_Std_Library;
+         if not Libraries.Load_Std_Library then
+            raise Option_Error;
+         end if;
 
          --  Here, time_base can be set.
          Translation.Initialize;
-- 
cgit v1.2.3