From c2ef1ac7197cf3020eb6f46719e96c0193f16029 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 6 Mar 2014 21:45:04 +0100
Subject: ortho_front: fix style warnings.

---
 ortho/oread/ortho_front.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ortho')

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;
-- 
cgit v1.2.3