From 2edfc6c75d5bddbe9dd613e9b2d7d38393b269a9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 10 Oct 2019 07:44:18 +0200
Subject: synth-opeer: extend synth_uresize

---
 src/synth/synth-oper.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb
index 4ccb85ff7..353cd95e1 100644
--- a/src/synth/synth-oper.adb
+++ b/src/synth/synth-oper.adb
@@ -89,7 +89,7 @@ package body Synth.Oper is
       Res : Net;
    begin
       if Is_Const (Val) and then Val.Typ.Kind = Type_Discrete then
-         if Val.Typ.Drange.Is_Signed then
+         if Val.Typ.Drange.Is_Signed and then Val.Scal < 0 then
             --  TODO.
             raise Internal_Error;
          else
-- 
cgit v1.2.3