Added an error message for a backend pass that should never be needed -- but just was
This commit is contained in:
parent
a843d07463
commit
f5e0288ad0
|
@ -194,6 +194,7 @@ findSizeForVar m skip v
|
||||||
[A.ExprVariable m $ A.SubscriptedVariable m (A.Subscript m A.NoCheck $ makeConstant
|
[A.ExprVariable m $ A.SubscriptedVariable m (A.Subscript m A.NoCheck $ makeConstant
|
||||||
m i) (A.VariableSizes m v)
|
m i) (A.VariableSizes m v)
|
||||||
| i <- [skip .. (length ds - 1)]])
|
| i <- [skip .. (length ds - 1)]])
|
||||||
|
_ -> diePC m $ formatCode "findSizeForVar for type % (for variable %)" t v
|
||||||
|
|
||||||
-- Gets the variable that holds the sizes of the given variable. The first parameter
|
-- Gets the variable that holds the sizes of the given variable. The first parameter
|
||||||
-- is the number of dimensions to skip. Assumes simplifySlices has already been
|
-- is the number of dimensions to skip. Assumes simplifySlices has already been
|
||||||
|
|
Loading…
Reference in New Issue
Block a user