Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/compiler/FLINT/main/literals.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/main/literals.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2162, Thu Nov 2 21:20:47 2006 UTC revision 4454, Thu Sep 21 18:25:19 2017 UTC
# Line 1  Line 1 
1  (* literals.sml  (* literals.sml
2   *   *
3   * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.   * COPYRIGHT (c) 2017 The Fellowship of SML/NJ (http://www.smlnj.org)
4   * COPYRIGHT (c) 1998 YALE FLINT PROJECT.   * All rights reserved.
5     *
6     * 64BIT: need support for 64-bit integers
7     * REAL32: need support for 32-bit floats
8   *)   *)
9    
10  signature LITERALS =  signature LITERALS =
# Line 290  Line 293 
293                              val _ = (rdict := (RlitDict.insert(rd, rlit, k)))                              val _ = (rdict := (RlitDict.insert(rd, rlit, k)))
294                           in k                           in k
295                          end)                          end)
296           in (VAR v, fn ce => SELECT(n, rrtval, v, FLTt, ce))           in (VAR v, fn ce => SELECT(n, rrtval, v, FLTt 64, ce)) (* REAL32: FIXME *)
297          end          end
298    
299        fun appReal () =        fun appReal () =

Legend:
Removed from v.2162  
changed lines
  Added in v.4454

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0