From f5e0288ad0705cd735b38ce7cf1c00a507968d9a Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Thu, 2 Apr 2009 17:18:34 +0000 Subject: [PATCH] Added an error message for a backend pass that should never be needed -- but just was --- backends/BackendPasses.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/backends/BackendPasses.hs b/backends/BackendPasses.hs index d4c4b93..70e7014 100644 --- a/backends/BackendPasses.hs +++ b/backends/BackendPasses.hs @@ -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