Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/c-util/c-names.sml
ViewVC logotype

Diff of /trunk/src/compiler/c-util/c-names.sml

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

revision 1922, Sat Jun 23 11:25:39 2012 UTC revision 1923, Sat Jun 23 12:02:18 2012 UTC
# Line 18  Line 18 
18     * when the program object is created.     * when the program object is created.
19     *)     *)
20      val doublePrecision = ref false      val doublePrecision = ref false
21        val longInt = ref false
22      val gVectorWid = ref 4      val gVectorWid = ref 4
23      val gIntTy = ref CLang.int32      val gIntTy = ref CLang.int32
24      val gRealTy = ref CLang.float      val gRealTy = ref CLang.float
# Line 28  Line 29 
29    (* initialize globals based on target precision *)    (* initialize globals based on target precision *)
30      fun initTargetSpec {double, long} = (      fun initTargetSpec {double, long} = (
31            doublePrecision := double;            doublePrecision := double;
32              longInt := long;
33            if double            if double
34              then (              then (
35                gVectorWid := 2;                gVectorWid := 2;

Legend:
Removed from v.1922  
changed lines
  Added in v.1923

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