From cb04275afa8c72a10ca5893de27dc0228d29ea8c Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 1 Jul 2010 09:35:48 -0700
Subject: Add machine-dependent 'float' type.

---
 src/boot/fe/token.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/boot/fe/token.ml')

diff --git a/src/boot/fe/token.ml b/src/boot/fe/token.ml
index 636e1ac2..446e5262 100644
--- a/src/boot/fe/token.ml
+++ b/src/boot/fe/token.ml
@@ -118,6 +118,7 @@ type token =
   | BOOL
   | INT
   | UINT
+  | FLOAT
   | CHAR
   | STR
   | MACH          of Common.ty_mach
@@ -267,6 +268,7 @@ let rec string_of_tok t =
     | BOOL       -> "bool"
     | INT        -> "int"
     | UINT       -> "uint"
+    | FLOAT      -> "float"
     | CHAR       -> "char"
     | STR        -> "str"
     | MACH m     -> Common.string_of_ty_mach m
-- 
cgit v1.2.3