From 43882a3a0697945b35194c2b5940605e9f4dd846 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Wed, 30 Oct 2024 14:12:51 +0100 Subject: Generate a call to _divide_by_zero_error on RiscV --- lib/Language/Elna/Frontend/NameAnalysis.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Language/Elna/Frontend/NameAnalysis.hs') diff --git a/lib/Language/Elna/Frontend/NameAnalysis.hs b/lib/Language/Elna/Frontend/NameAnalysis.hs index 8a183e1..89b1b3b 100644 --- a/lib/Language/Elna/Frontend/NameAnalysis.hs +++ b/lib/Language/Elna/Frontend/NameAnalysis.hs @@ -134,7 +134,7 @@ dataType environmentSymbolTable (AST.NamedType baseType) = do | otherwise -> NameAnalysis $ throwE $ UnexpectedTypeInfoError baseInfo _ -> NameAnalysis $ throwE $ UndefinedTypeError baseType dataType environmentSymbolTable (AST.ArrayType arraySize baseType) = - dataType environmentSymbolTable baseType <&> ArrayType arraySize + dataType environmentSymbolTable baseType <&> ArrayType (fromIntegral arraySize) checkSymbol :: SymbolTable -> Identifier -> NameAnalysis () checkSymbol globalTable identifier -- cgit v1.2.3