From a1b2869fb6b6b49d1f0302d1f4d3edd61a8fc78b Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Mon, 26 Sep 2005 23:43:37 +0000
Subject: typo fix

---
 libraries.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries.adb b/libraries.adb
index 5eee733f7..c82bc788d 100644
--- a/libraries.adb
+++ b/libraries.adb
@@ -1116,7 +1116,7 @@ package body Libraries is
          Unit := Next_Unit;
       end loop;
       if First_Unit /= Null_Iir then
-         File := Get_Design_File (Unit);
+         File := Get_Design_File (First_Unit);
       end if;
    end Add_Design_File_Into_Library;
 
-- 
cgit v1.2.3