diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-03-06 21:45:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-03-06 21:45:04 +0100 |
| commit | c2ef1ac7197cf3020eb6f46719e96c0193f16029 (patch) | |
| tree | 663f5551f77db92d343c0447ad363357a6afd2ba /ortho | |
| parent | d9ca411fb04f177b3774c73805def10039037f3a (diff) | |
| download | ghdl-c2ef1ac7197cf3020eb6f46719e96c0193f16029.tar.gz ghdl-c2ef1ac7197cf3020eb6f46719e96c0193f16029.tar.bz2 ghdl-c2ef1ac7197cf3020eb6f46719e96c0193f16029.zip | |
ortho_front: fix style warnings.
Diffstat (limited to 'ortho')
| -rw-r--r-- | ortho/oread/ortho_front.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ortho/oread/ortho_front.adb b/ortho/oread/ortho_front.adb index e29dfeb08..84bbd1b9d 100644 --- a/ortho/oread/ortho_front.adb +++ b/ortho/oread/ortho_front.adb @@ -63,13 +63,14 @@ package body Ortho_Front is procedure Puterr (Msg : String) is L : Integer; + pragma Unreferenced (L); begin L := Write (Standerr, Msg'Address, Msg'Length); end Puterr; procedure Puterr (N : Natural) is - Str : String := Natural'Image (N); + Str : constant String := Natural'Image (N); begin Puterr (Str (Str'First + 1 .. Str'Last)); end Puterr; |