Permalink
Browse files

commit some changes for paul

  • Loading branch information...
1 parent 3c3005b commit 6f1b8951cb24a5d55ebd7a0a8cf66963817921fe rkoot committed Jun 15, 2010
View
@@ -1 +1 @@
-1789:1806M
+1814:1817M
View
@@ -359,8 +359,8 @@ EXTLIBS_GCC_CC_OPTS := @GCC_EXTLIBS_OPTIONS@
EXTLIBS_GMP_ABI := @GMP_ABI@
EHC_GCC_CC_OPTS := -I$(INSTALLFORBLDABS_INC_PREFIX) -I$(INSTALLFORBLDABS_INC_PREFIX)/gc $(GCC_OPTS_WHEN_EHC)
EHC_GCC_LD_OPTS := -L$(INSTALLFORBLDABS_LIB_PREFIX)
-#RTS_GCC_CC_OPTS := -D__UHC_BUILDS_RTS__ -D__UHC_TARGET_$(if $(EHC_CFG_TARGET_IS_bc),BC,$(if $(EHC_CFG_TARGET_IS_C),C,$(if $(EHC_CFG_TARGET_IS_llvm),LLVM,)))__ -D__UHC_TARGET__=$(EHC_VARIANT_TARGET)
-RTS_GCC_CC_OPTS := -D__UHC_BUILDS_RTS__ -D__UHC_TARGET_$(shell echo $(EHC_VARIANT_TARGET) | tr "[a-z]" "[A-Z]")__ -D__UHC_TARGET__=$(EHC_VARIANT_TARGET)
+RTS_GCC_CC_OPTS := -D__UHC_BUILDS_RTS__ -D__UHC_TARGET_$(if $(EHC_CFG_TARGET_IS_bc),BC,$(if $(EHC_CFG_TARGET_IS_C),C,$(if $(EHC_CFG_TARGET_IS_llvm),C,)))__ -D__UHC_TARGET__=$(EHC_VARIANT_TARGET)
+#RTS_GCC_CC_OPTS := -D__UHC_BUILDS_RTS__ -D__UHC_TARGET_$(shell echo $(EHC_VARIANT_TARGET) | tr "[a-z]" "[A-Z]")__ -D__UHC_TARGET__=$(EHC_VARIANT_TARGET)
RTS_GCC_CC_OPTS_OPTIM := $(RTS_GCC_CC_OPTS) -O3
# library building, using libtool
View
Binary file not shown.
View
Binary file not shown.
View
@@ -0,0 +1,29 @@
+module $Main =
+let
+ { $Main$.fun0$~13_0_2{BINDFUNCTION0,VAL} =
+ ($UHC$.Base$.packedStringToString)
+ (#String"Hello, World!")
+ ; $Main$.13_0_2{BINDAPPLY0,VAL} =
+ $Main$.fun0$~13_0_2
+ } in
+let
+ { $Main$.fun0$~main{BINDFUNCTION0,VAL} =
+ (($UHC$.OldIO$.putStrLn)
+ ($Main$.13_0_2) :: ($UHC$.Base$.IO)
+ (($_Rec)
+ ({| |})))
+ ; $Main$.main{BINDAPPLY0,VAL} =
+ $Main$.fun0$~main
+ } in
+let
+ { $fun0$~main{BINDFUNCTION0,VAL} =
+ (($UHC$.Run$.ehcRunMain)
+ ($Main$.main) :: ($UHC$.Base$.IO)
+ (($_Rec)
+ ({| |})))
+ ; $main{BINDAPPLY0,VAL} =
+ $fun0$~main
+ } in
+$main
+-- data type tag map:
+{ }
View
@@ -0,0 +1,40 @@
+module $Main
+{ $Main.13_0_2 <- store (#0/F/$Main.fun0~13_0_2)
+; $Main.main <- store (#0/F/$Main.fun0~main)
+; $main <- store (#0/F/$fun0~main)
+}
+{ $Main.fun0~13_0_2
+ = { store (#0/C{1,1}/$UHC.Base.PackedString "Hello, World!") ; \$Main.20_1_0 ->
+ call $UHC.Base.packedStringToString $Main.20_1_0}
+; $Main.fun0~main
+ = { eval $UHC.OldIO.putStrLn ; \$Main.20_4_0 ->
+ apply $Main.20_4_0 $Main.13_0_2}
+; $fun0~main
+ = { call $UHC.Run.ehcRunMain $Main.main}
+}
+{ $$,0 = #0/C{0,0}/$$,0
+; $$,10 = #0/C{10,10}/$$,10
+; $$,2 = #0/C{2,2}/$$,2
+; $$,3 = #0/C{3,3}/$$,3
+; $$,4 = #0/C{4,4}/$$,4
+; $$,5 = #0/C{5,5}/$$,5
+; $$,6 = #0/C{6,6}/$$,6
+; $$,7 = #0/C{7,7}/$$,7
+; $$,8 = #0/C{8,8}/$$,8
+; $$,9 = #0/C{9,9}/$$,9
+; $Char = #0/C{1,1}/$Char
+; $Int = #0/C{1,1}/$Int
+; $UHC.Base.Double = #0/C{1,1}/$UHC.Base.Double
+; $UHC.Base.Float = #0/C{1,1}/$UHC.Base.Float
+; $UHC.Base.PackedString = #0/C{1,1}/$UHC.Base.PackedString
+; $UHC.Types.Addr = #0/C{1,1}/$UHC.Types.Addr
+; $UHC.Types.Int16 = #0/C{1,1}/$UHC.Types.Int16
+; $UHC.Types.Int32 = #0/C{1,1}/$UHC.Types.Int32
+; $UHC.Types.Int64 = #0/C{1,1}/$UHC.Types.Int64
+; $UHC.Types.Int8 = #0/C{1,1}/$UHC.Types.Int8
+; $UHC.Types.Word = #0/C{1,1}/$UHC.Types.Word
+; $UHC.Types.Word16 = #0/C{1,1}/$UHC.Types.Word16
+; $UHC.Types.Word32 = #0/C{1,1}/$UHC.Types.Word32
+; $UHC.Types.Word64 = #0/C{1,1}/$UHC.Types.Word64
+; $UHC.Types.Word8 = #0/C{1,1}/$UHC.Types.Word8
+}
View
Binary file not shown.
View
@@ -0,0 +1,5 @@
+module Main where
+
+--import Prelude12
+
+main = putStrLn "Hello, World!"
Oops, something went wrong.

0 comments on commit 6f1b895

Please sign in to comment.