From 4227085dc8d1916df701ab4da21c30a15bb5a726 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 1 Jul 2020 21:12:45 +0200
Subject: ghdlsynth: fix handling of --work within source files.

---
 src/ghdldrv/ghdlsynth.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index 1ce7d3e36..0789e5a56 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -281,6 +281,7 @@ package body Ghdlsynth is
                if Id = Null_Identifier then
                   return Null_Iir;
                end if;
+               Libraries.Work_Library_Name := Id;
                Libraries.Load_Work_Library (True);
             else
                Ghdlcomp.Compile_Load_File (Arg);
-- 
cgit v1.2.3