From fc147a40d83670c63d75cd22f95a2d017270d2c6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 14 Sep 2014 04:44:13 +0200
Subject: Fix crash on resolver functions using secondary stack.

---
 ortho/debug/ortho_debug-disp.adb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'ortho')

diff --git a/ortho/debug/ortho_debug-disp.adb b/ortho/debug/ortho_debug-disp.adb
index 010f0f184..2725668bb 100644
--- a/ortho/debug/ortho_debug-disp.adb
+++ b/ortho/debug/ortho_debug-disp.adb
@@ -59,6 +59,10 @@ package body Ortho_Debug.Disp is
       procedure Put_Trim (Str : String);
 
       procedure Set_Mark;
+
+      --  Flush to disk.  Only for debugging in case of crash.
+      procedure Flush_File;
+      pragma Unreferenced (Flush_File);
    private
       type Disp_Context is record
          --  File where the info are written to.
@@ -224,6 +228,14 @@ package body Ortho_Debug.Disp is
       begin
          Ctx.Mark := Ctx.Line_Len;
       end Set_Mark;
+
+      procedure Flush_File is
+         Status : int;
+         pragma Unreferenced (Status);
+      begin
+         Flush;
+         Status := fflush (Ctx.File);
+      end Flush_File;
    end Formated_Output;
 
    use Formated_Output;
-- 
cgit v1.2.3