Added an error message for a backend pass that should never be needed -- but just was

This commit is contained in:
Neil Brown 2009-04-02 17:18:34 +00:00
parent a843d07463
commit f5e0288ad0

View File

@ -194,6 +194,7 @@ findSizeForVar m skip v
[A.ExprVariable m $ A.SubscriptedVariable m (A.Subscript m A.NoCheck $ makeConstant
m i) (A.VariableSizes m v)
| 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
-- is the number of dimensions to skip. Assumes simplifySlices has already been