synth: minor refactoring. Move In_Bounds/In_Range to synth-objtypes.

1 files changed, 0 insertions, 10 deletions

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index b5d10b084..cdb52a66c 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -2195,16 +2195,6 @@ package body Synth.Stmts is
       end case;
    end Synth_Procedure_Call;
 
-   function In_Range (Rng : Discrete_Range_Type; V : Int64) return Boolean is
-   begin
-      case Rng.Dir is
-         when Dir_To =>
-            return V >= Rng.Left and then V <= Rng.Right;
-         when Dir_Downto =>
-            return V <= Rng.Left and then V >= Rng.Right;
-      end case;
-   end In_Range;
-
    procedure Update_Index (Rng : Discrete_Range_Type; V : in out Valtyp)
    is
       T : Int64;