Merge pull request #226 from EpitechPromo2027/revert-225-224-support-…

…df-suffix-for-explicit-doublefloat-value Float constants now use `FF.Single`
Jabolol · Jan 17, 2025 · acfc574 · acfc574
2 parents a31e72f + 31b6209
commit acfc574
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Codegen/ExprGen/Variable.hs b/lib/Codegen/ExprGen/Variable.hs
@@ -60,7 +60,7 @@ generateConstant lit loc = case lit of
   AT.LChar c -> return $ C.Int 8 (fromIntegral $ fromEnum c)
   AT.LBool b -> return $ C.Int 1 (if b then 1 else 0)
   AT.LNull -> return $ C.Null T.i8
-  AT.LFloat f -> pure $ C.Float (FF.Double (realToFrac f))
+  AT.LFloat f -> pure $ C.Float (FF.Single (realToFrac f))
   AT.LDouble f -> pure $ C.Float (FF.Double (realToFrac f))
   AT.LArray elems -> do
     let (headElem, _) = M.fromJust $ L.uncons elems