Skip to content

Commit a86b1a2

Browse files
nanavaticlaude
andcommitted
Renumber the foreign-proviso error tags to T0162/T0163
The typeclass-coherence PRs (#1035/#1037) claim T0159-T0161, and whichever series merges second would collide. Take the next free numbers here proactively; the tags are otherwise arbitrary. Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_019cqQdWKp7jr73GHQYnvhiq
1 parent 6b9c37e commit a86b1a2

2 files changed

Lines changed: 4 additions & 4 deletions

File tree

src/comp/Error.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1945,15 +1945,15 @@ getErrorText (EForeignNotBit i t) =
19451945
(Type 12, empty, hdr $$ text "Type:" <+> nest 2 (text t))
19461946
where hdr = s2par ("Foreign function " ++ ishow i ++ " has a non-Bit argument or result.")
19471947
getErrorText (EForeignCtxNotNumeric i p) =
1948-
(Type 160, empty, hdr $$ text "Proviso:" <+> nest 2 (text p))
1948+
(Type 163, empty, hdr $$ text "Proviso:" <+> nest 2 (text p))
19491949
where hdr = s2par ("Foreign function " ++ ishow i ++ " has a proviso" ++
19501950
" that is not a numeric relationship." ++
19511951
" Only Add, Mul, Div, Log, Max, Min and NumEq" ++
19521952
" provisos are permitted on foreign functions:" ++
19531953
" they are checked at each application and then" ++
19541954
" erased.")
19551955
getErrorText (EForeignWidthNotBare i t) =
1956-
(Type 159, empty, hdr $$ text "Width:" <+> nest 2 (text t))
1956+
(Type 162, empty, hdr $$ text "Width:" <+> nest 2 (text t))
19571957
where hdr = s2par ("Foreign function " ++ ishow i ++ " has a bit width" ++
19581958
" that is not a bare type variable or a literal." ++
19591959
" Widths are passed to the module as instance" ++

testsuite/bsc.verilog/noinline/noinline.exp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -77,13 +77,13 @@ compile_verilog_fail NoInline_Polymorphic.bsv T0111
7777
# A foreign function bound to a module must use a bare type variable or
7878
# a literal for every bit width (widths become instance parameters named
7979
# by the type variables; a type-function width has no name to pass)
80-
compile_verilog_fail BadForeignWidth.bs T0159
80+
compile_verilog_fail BadForeignWidth.bs T0162
8181

8282
# Numeric provisos on foreign functions are permitted (checked at each
8383
# application, then erased); anything else is rejected
8484
compile_verilog_pass ForeignCtxGood.bs
8585
find_regexp sysForeignCtxGood.v {Dup #\(\.iw\(8\), \.ow\(16\)\)}
8686
compile_verilog_fail ForeignCtxViolated.bs T0031
87-
compile_verilog_fail ForeignCtxBad.bs T0160
87+
compile_verilog_fail ForeignCtxBad.bs T0163
8888
}
8989

0 commit comments

Comments
 (0)