diff options
| -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 e29dfeb..84bbd1b 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; |