diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-12 18:16:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-12 18:16:38 +0200 |
| commit | f8b87697e8b893b6293ebbfc34670c32bfb49397 (patch) | |
| tree | dd96a7100c243e40d44fa31751c0c4845ebc5640 | |
| parent | ff2f6b719229a43db915297ba4abc3ec5ff5a5fc (diff) | |
| download | ghdl-f8b87697e8b893b6293ebbfc34670c32bfb49397.tar.gz ghdl-f8b87697e8b893b6293ebbfc34670c32bfb49397.tar.bz2 ghdl-f8b87697e8b893b6293ebbfc34670c32bfb49397.zip | |
ghdllocal.adb: move pragma suppress. Fix #2056
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 4ed71a590..756589602 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -1259,11 +1259,11 @@ package body Ghdllocal is Src : String_Access; Dst : String_Access; Success : Boolean; - pragma Unreferenced (Success); begin Src := new String'(Image (Dir) & Basename & Get_Object_Suffix.all); Dst := new String'(Basename & Get_Object_Suffix.all); Copy_File (Src.all, Dst.all, Success, Overwrite, Full); + pragma Unreferenced (Success); -- Be silent in case of error. Free (Src); Free (Dst); |