From 006559271d8326b58170bc15f7ec85461aec5f98 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Wed, 12 Mar 2008 15:14:00 +0000 Subject: [PATCH] Declare size arrays before the corresponding real arrays. This is because we sometimes need the size array while initialising the real array -- for example, if we're initialising a 2D array of channels. --- backends/BackendPasses.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backends/BackendPasses.hs b/backends/BackendPasses.hs index 9c63efd..c9b6be1 100644 --- a/backends/BackendPasses.hs +++ b/backends/BackendPasses.hs @@ -212,7 +212,7 @@ declareSizesArray = doGeneric `ext1M` doStructured defineSizesName m' n_sizes sizeSpecType return sizeSpec s' <- doStructured s - return (A.Spec m sp $ A.Spec m sizeSpec $ s') + return (A.Spec m sizeSpec $ A.Spec m sp $ s') (A.RecordType m _ fs, _) -> do s' <- doStructured s fieldDeclarations <- foldM (declareFieldSizes (A.nameName n) m) s' fs