From 3fd2769300e7ff6e2065dbbbf4cbb44fa11fbda0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 14 Jan 2023 09:42:37 +0100
Subject: synth: more refactoring

---
 src/synth/synth-vhdl_expr.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb
index 23665e8c1..d5a0e98fa 100644
--- a/src/synth/synth-vhdl_expr.adb
+++ b/src/synth/synth-vhdl_expr.adb
@@ -2267,8 +2267,7 @@ package body Synth.Vhdl_Expr is
 
                Dyn : Dyn_Name;
             begin
-               Synth_Assignment_Prefix
-                 (Syn_Inst, Syn_Inst, Expr, Base, Typ, Off, Dyn);
+               Synth_Assignment_Prefix (Syn_Inst, Expr, Base, Typ, Off, Dyn);
                if Base = No_Valtyp then
                   --  Propagate error.
                   return No_Valtyp;
-- 
cgit v1.2.3