From d5f16212b1862a9c3cae7768405cb063573f68b9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 21 Oct 2018 14:22:16 +0200
Subject: ghdldrv: allow bootstrap with oread.

---
 src/ghdldrv/ghdldrv.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb
index 31d4a530b..f629c9ad1 100644
--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -832,8 +832,7 @@ package body Ghdldrv is
          raise Option_Error;
       end if;
 
-      Set_Tools_Name;
-      Locate_Tools;
+      Setup_Compiler (False);
 
       Opt (1) := new String'("--compile-standard");
       Do_Compile (Opt, "std_standard.vhdl", True);
-- 
cgit v1.2.3