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
---
 common/PrintAST.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'common/PrintAST.ml')

diff --git a/common/PrintAST.ml b/common/PrintAST.ml
index c18b09d..9768447 100644
--- a/common/PrintAST.ml
+++ b/common/PrintAST.ml
@@ -16,7 +16,11 @@ open Printf
 open Camlcoq
 open AST
 
-let name_of_type = function Tint -> "int" | Tfloat -> "float" | Tlong -> "long"
+let name_of_type = function
+  | Tint -> "int"
+  | Tfloat -> "float"
+  | Tlong -> "long"
+  | Tsingle -> "single"
 
 let name_of_chunk = function
   | Mint8signed -> "int8signed"
-- 
cgit v1.2.3