From 364fc00fc4a4021258704ab5dd4f9390ba91cd37 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 22 Nov 2019 19:04:32 +0100
Subject: synth: add debug_error.

---
 src/synth/synth-debugger.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/synth/synth-debugger.adb')

diff --git a/src/synth/synth-debugger.adb b/src/synth/synth-debugger.adb
index cd1b16c70..e5746ba75 100644
--- a/src/synth/synth-debugger.adb
+++ b/src/synth/synth-debugger.adb
@@ -30,4 +30,9 @@ package body Synth.Debugger is
    begin
       raise Internal_Error;
    end Debug_Break;
+
+   procedure Debug_Error (Inst : Synth_Instance_Acc; Expr : Node) is
+   begin
+      null;
+   end Debug_Error;
 end Synth.Debugger;
-- 
cgit v1.2.3