diff --git a/src/Convert/Enum.hs b/src/Convert/Enum.hs index 05cf098..ba8081d 100644 --- a/src/Convert/Enum.hs +++ b/src/Convert/Enum.hs @@ -94,7 +94,7 @@ insertEnumItems itemType items = -- check for obviously duplicate values if noDuplicates then zipWithM_ insertEnumItem keys vals - else error $ "enum conversion has duplicate vals: " + else scopedErrorM $ "enum conversion has duplicate vals: " ++ show (zip keys vals) where insertEnumItem :: Identifier -> Expr -> SC () diff --git a/test/error/enum_conflict.sv b/test/error/enum_conflict.sv index a512498..51ecb94 100644 --- a/test/error/enum_conflict.sv +++ b/test/error/enum_conflict.sv @@ -1,4 +1,5 @@ // pattern: enum conversion has duplicate vals +// location: enum_conflict.sv:4:5 module top; typedef enum { A = 0,