From be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Sun, 19 May 2013 09:54:40 +0000
Subject: Merge of the float32 branch: - added RTL type "Tsingle" -
 ABI-compatible passing of single-precision floats on ARM and x86

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2260 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 cfrontend/Ctypes.v | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'cfrontend/Ctypes.v')

diff --git a/cfrontend/Ctypes.v b/cfrontend/Ctypes.v
index bf483a0a..8d00b955 100644
--- a/cfrontend/Ctypes.v
+++ b/cfrontend/Ctypes.v
@@ -530,6 +530,7 @@ Fixpoint type_of_params (params: list (ident * type)) : typelist :=
 
 Definition typ_of_type (t: type) : AST.typ :=
   match t with
+  | Tfloat F32 _ => AST.Tsingle
   | Tfloat _ _ => AST.Tfloat
   | Tlong _ _ => AST.Tlong
   | _ => AST.Tint
@@ -538,6 +539,7 @@ Definition typ_of_type (t: type) : AST.typ :=
 Definition opttyp_of_type (t: type) : option AST.typ :=
   match t with
   | Tvoid => None
+  | Tfloat F32 _ => Some AST.Tsingle
   | Tfloat _ _ => Some AST.Tfloat
   | Tlong _ _ => Some AST.Tlong
   | _ => Some AST.Tint
-- 
cgit