diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
commit | 19db894c481e5c3fca89862ef244803c63a54ed7 (patch) | |
tree | d04ed7d0707a74fb072fb57f88948a8416c00375 /sem_stmts.adb | |
parent | 301584eaf540c982676f520d662b473e59890584 (diff) | |
download | ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.gz ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.bz2 ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.zip |
synchronized to ghdl 0.26
Diffstat (limited to 'sem_stmts.adb')
-rw-r--r-- | sem_stmts.adb | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/sem_stmts.adb b/sem_stmts.adb index 555bfbf39..fc0a3ae4f 100644 --- a/sem_stmts.adb +++ b/sem_stmts.adb @@ -462,18 +462,14 @@ package body Sem_Stmts is begin Ok := True; -- Find the signal. - if Sig_Type = Null_Iir then - Ok := False; + Target := Get_Target (Stmt); + Target := Sem_Expression (Target, Sig_Type); + if Target /= Null_Iir then + Set_Target (Stmt, Target); + Check_Target (Stmt, Target); + Sem_Types.Set_Type_Has_Signal (Get_Type (Target)); else - Target := Get_Target (Stmt); - Target := Sem_Expression (Target, Sig_Type); - if Target /= Null_Iir then - Set_Target (Stmt, Target); - Check_Target (Stmt, Target); - Sem_Types.Set_Type_Has_Signal (Get_Type (Target)); - else - Ok := False; - end if; + Ok := False; end if; Expr := Get_Reject_Time_Expression (Stmt); |