diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-10-30 14:12:51 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-10-30 14:12:51 +0100 |
| commit | 43882a3a0697945b35194c2b5940605e9f4dd846 (patch) | |
| tree | 494bde0fec422937f26b7b1a954adbcd477f7a9b /lib/Language/Elna/Frontend/NameAnalysis.hs | |
| parent | 6b92e5059c04709b3506bb4e7bef29872b16811f (diff) | |
| download | elna-43882a3a0697945b35194c2b5940605e9f4dd846.tar.gz | |
Generate a call to _divide_by_zero_error on RiscV
Diffstat (limited to 'lib/Language/Elna/Frontend/NameAnalysis.hs')
| -rw-r--r-- | lib/Language/Elna/Frontend/NameAnalysis.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |