parent
00b495de95
commit
544cb107c7
2 changed files with 17 additions and 0 deletions
|
|
@ -865,6 +865,7 @@ proc genRaiseStmt(p: PProc, n: PNode) =
|
|||
proc genCaseJS(p: PProc, n: PNode, r: var TCompRes) =
|
||||
var
|
||||
cond, stmt: TCompRes
|
||||
totalRange = 0
|
||||
genLineDir(p, n)
|
||||
gen(p, n[0], cond)
|
||||
let stringSwitch = skipTypes(n[0].typ, abstractVar).kind == tyString
|
||||
|
|
@ -884,6 +885,10 @@ proc genCaseJS(p: PProc, n: PNode, r: var TCompRes) =
|
|||
let e = it[j]
|
||||
if e.kind == nkRange:
|
||||
var v = copyNode(e[0])
|
||||
inc(totalRange, int(e[1].intVal - v.intVal))
|
||||
if totalRange > 65535:
|
||||
localError(p.config, n.info,
|
||||
"Your case statement contains too many branches, consider using if/else instead!")
|
||||
while v.intVal <= e[1].intVal:
|
||||
gen(p, v, cond)
|
||||
lineF(p, "case $1:$n", [cond.rdLoc])
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue