diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-08-16 05:55:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-08-16 05:55:36 +0200 |
commit | 62b884aa5ad761d708ef01920d70f71aeeb0ee85 (patch) | |
tree | d77005f199686faf9d1918b832e919d9957465e0 /src/psl/psl-rewrites.adb | |
parent | 6338ac15a3bc87aaf4906dc57a698496269dc4d6 (diff) | |
download | ghdl-62b884aa5ad761d708ef01920d70f71aeeb0ee85.tar.gz ghdl-62b884aa5ad761d708ef01920d70f71aeeb0ee85.tar.bz2 ghdl-62b884aa5ad761d708ef01920d70f71aeeb0ee85.zip |
psl-rewrites: minor style change
Diffstat (limited to 'src/psl/psl-rewrites.adb')
-rw-r--r-- | src/psl/psl-rewrites.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/psl/psl-rewrites.adb b/src/psl/psl-rewrites.adb index 885d478b6..7130507a2 100644 --- a/src/psl/psl-rewrites.adb +++ b/src/psl/psl-rewrites.adb @@ -266,8 +266,7 @@ package body PSL.Rewrites is when N_Property_Parameter => Set_Actual (Assoc, Rewrite_Property (Get_Actual (Assoc))); when others => - Error_Kind ("rewrite_instance", - Get_Formal (Assoc)); + Error_Kind ("rewrite_instance", Get_Formal (Assoc)); end case; Assoc := Get_Chain (Assoc); end loop; |