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/Glue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Language/Elna/Glue.hs') diff --git a/lib/Language/Elna/Glue.hs b/lib/Language/Elna/Glue.hs index 70161a0..880bb1e 100644 --- a/lib/Language/Elna/Glue.hs +++ b/lib/Language/Elna/Glue.hs @@ -267,6 +267,6 @@ expression localTable = \case ) literal :: AST.Literal -> Operand Variable -literal (AST.IntegerLiteral integer) = IntOperand integer +literal (AST.DecimalLiteral integer) = IntOperand integer literal (AST.HexadecimalLiteral integer) = IntOperand integer literal (AST.CharacterLiteral character) = IntOperand $ fromIntegral character -- cgit v1.2.3