| Submitter | Arnaud Charlet |
|---|---|
| Date | Oct. 4, 2010, 2:10 p.m. |
| Message ID | <20101004141026.GA8327@adacore.com> |
| Download | mbox | patch |
| Permalink | /patch/66682/ |
| State | New |
| Headers | show |
Comments
Patch
Index: osint.adb =================================================================== --- osint.adb (revision 164906) +++ osint.adb (working copy) @@ -2508,6 +2508,13 @@ package body Osint is return null; end if; + + elsif Current_Full_Obj_Stamp < Current_Full_Lib_Stamp then + Close (Lib_FD, Status); + + -- No need to check the status, we return null anyway + + return null; end if; end if;