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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/runtime-names.sml

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

revision 653, Mon Mar 21 00:31:29 2011 UTC revision 654, Mon Mar 21 17:10:54 2011 UTC
# Line 15  Line 15 
15      val gRealTy = ref CLang.float      val gRealTy = ref CLang.float
16      val gRealSuffix = ref "?"      val gRealSuffix = ref "?"
17      val gIntSuffix = ref "?"      val gIntSuffix = ref "?"
18        val gIntFormat = ref "?"
19    
20    (* initialize globals based on target precision *)    (* initialize globals based on target precision *)
21      fun initTargetSpec () = if !Controls.doublePrecision      fun initTargetSpec () = if !Controls.doublePrecision
# Line 23  Line 24 
24              gIntTy := CLang.int64;              gIntTy := CLang.int64;
25              gRealTy := CLang.double;              gRealTy := CLang.double;
26              gRealSuffix := "d";              gRealSuffix := "d";
27              gIntSuffix := "l")              gIntSuffix := "l";
28                gIntFormat := "%ld")
29            else (            else (
30              gVectorWid := 4;              gVectorWid := 4;
31              gIntTy := CLang.int32;              gIntTy := CLang.int32;
32              gRealTy := CLang.float;              gRealTy := CLang.float;
33              gRealSuffix := "f";              gRealSuffix := "f";
34              gIntSuffix := "i")              gIntSuffix := "i";
35                gIntFormat := "%d")
36    
37      fun addVecSuffix stem n = concat[stem, Int.toString n, !gRealSuffix]      fun addVecSuffix stem n = concat[stem, Int.toString n, !gRealSuffix]
38      fun addIVecSuffix stem n = concat[stem, Int.toString n, !gIntSuffix]      fun addIVecSuffix stem n = concat[stem, Int.toString n, !gIntSuffix]

Legend:
Removed from v.653  
changed lines
  Added in v.654

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