Name: Anonymous 2009-08-08 13:30
http://hackage.haskell.org/packages/archive/ghc-prim/0.1.0.0/doc/html/src/GHC-Tuple.htmlBest part:
{- Manuel says: Including one more declaration gives a segmentation fault.
http://hackage.haskell.org/packages/archive/ghc-prim/0.1.0.0/doc/html/src/GHC-Tuple.htmlmodule Main where
main = putStrLn "Hello, world!"/* GHC_PACKAGES base integer ghc-prim rts
*/
#include "Stg.h"
EI_(base_GHCziBase_unpackCStringzh_closure);
static StgWord ssi_srt[] = {
(W_)&base_GHCziBase_unpackCStringzh_closure
};
II_(ssi_info);
static StgWord ssi_closure[] = {
(W_)&ssi_info, 0x0, 0x0, 0x0
};
static char css_str[] = "Hello, world!";
static StgWord ssi_info[] = {
((W_)&ssi_srt+0), 0x0, 0x100000016UL
};
EI_(base_GHCziBase_unpackCStringzh_closure);
IF_(ssi_entry) {
FB_
if ((W_)(((W_)Sp - 0x10UL) < (W_)SpLim)) goto _csv;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _csv;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
;EF_(newCAF);
{void (*ghcFunPtr)(void *);
ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
__DISCARD__();
ghcFunPtr((void *)R1.w);;}
R1.p[1] = (W_)Hp-8;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-8;
R1.w = (W_)&base_GHCziBase_unpackCStringzh_closure;
R2.w = (W_)&css_str;
Sp=Sp-2;
JMP_((W_)&stg_ap_n_fast);
_csv:
HpAlloc = 0x10UL;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_SystemziIO_putStrLn_closure);
II_(ssi_closure);
static StgWord Main_main_srt[] = {
(W_)&base_SystemziIO_putStrLn_closure, (W_)&ssi_closure
};
EI_(Main_main_info);
StgWord Main_main_closure[] = {
(W_)&Main_main_info, 0x0, 0x0, 0x0
};
StgWord Main_main_info[] = {
((W_)&Main_main_srt+0), 0x0, 0x300000016UL
};
EI_(base_SystemziIO_putStrLn_closure);
II_(ssi_closure);
FN_(Main_main_entry) {
FB_
if ((W_)(((W_)Sp - 0x10UL) < (W_)SpLim)) goto _csF;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _csF;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
;EF_(newCAF);
{void (*ghcFunPtr)(void *);
ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
__DISCARD__();
ghcFunPtr((void *)R1.w);;}
R1.p[1] = (W_)Hp-8;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-8;
R1.w = (W_)&base_SystemziIO_putStrLn_closure;
R2.w = (W_)&ssi_closure;
Sp=Sp-2;
JMP_((W_)&stg_ap_p_fast);
_csF:
HpAlloc = 0x10UL;
JMP_(stg_gc_enter_1);
FE_
}
EI_(base_GHCziTopHandler_runMainIO_closure);
EI_(Main_main_closure);
static StgWord ZCMain_main_srt[] = {
(W_)&base_GHCziTopHandler_runMainIO_closure, (W_)&Main_main_closure
};
EI_(ZCMain_main_info);
StgWord ZCMain_main_closure[] = {
(W_)&ZCMain_main_info, 0x0, 0x0, 0x0
};
StgWord ZCMain_main_info[] = {
((W_)&ZCMain_main_srt+0), 0x0, 0x300000016UL
};
EI_(base_GHCziTopHandler_runMainIO_closure);
EI_(Main_main_closure);
FN_(ZCMain_main_entry) {
FB_
if ((W_)(((W_)Sp - 0x10UL) < (W_)SpLim)) goto _csP;
Hp=Hp+2;
if ((W_)((W_)Hp > (W_)HpLim)) goto _csP;
Hp[-1] = (W_)&stg_CAF_BLACKHOLE_info;
;EF_(newCAF);
{void (*ghcFunPtr)(void *);
ghcFunPtr = ((void (*)(void *))(W_)&newCAF);
__DISCARD__();
ghcFunPtr((void *)R1.w);;}
R1.p[1] = (W_)Hp-8;
*R1.p = (W_)&stg_IND_STATIC_info;
Sp[-2] = (W_)&stg_upd_frame_info;
Sp[-1] = (W_)Hp-8;
R1.w = (W_)&base_GHCziTopHandler_runMainIO_closure;
R2.w = (W_)&Main_main_closure;
Sp=Sp-2;
JMP_((W_)&stg_ap_p_fast);
_csP:
HpAlloc = 0x10UL;
JMP_(stg_gc_enter_1);
FE_
}
static StgWord _module_registered[] = {
0x0
};
EF_(__stginit_base_Prelude_);
EF_(__stginit_base_GHCziTopHandler_);
FN_(__stginit_Main_) {
FB_
if ((W_)(0x0 != (*((P_)(W_)&_module_registered)))) goto _csV;
goto _csX;
_csV:
Sp=Sp+1;
JMP_(Sp[-1]);
_csX:
*((P_)(W_)&_module_registered) = 0x1UL;
Sp=Sp-1;
*Sp = (W_)&__stginit_base_Prelude_;
Sp=Sp-1;
*Sp = (W_)&__stginit_base_GHCziTopHandler_;
goto _csV;
FE_
}
EF_(__stginit_Main_);
FN_(__stginit_Main) {
FB_
JMP_((W_)&__stginit_Main_);
FE_
}
FN_(__stginit_ZCMain) {
FB_
Sp=Sp+1;
JMP_(Sp[-1]);
FE_
}
Operator or semicolon missing before &base_GHCziBase_unpackCStringzh_closure at test.hc line 5.
Ambiguous use of & resolved as operator & at test.hc line 5.
Operator or semicolon missing before &ssi_info at test.hc line 9.
Ambiguous use of & resolved as operator & at test.hc line 9.
Operator or semicolon missing before &ssi_srt at test.hc line 15.
Ambiguous use of & resolved as operator & at test.hc line 15.
Bareword found where operator expected at test.hc line 15, near "0x100000016UL"
(Missing operator before UL?)
Bareword found where operator expected at test.hc line 21, near ")Sp"
(Missing operator before Sp?)
Bareword found where operator expected at test.hc line 21, near "0x10UL"
(Missing operator before UL?)
Bareword found where operator expected at test.hc line 21, near ")SpLim"
(Missing operator before SpLim?)
Bareword found where operator expected at test.hc line 23, near ")Hp"
(Missing operator before Hp?)
Bareword found where operator expected at test.hc line 23, near ")HpLim"
(Missing operator before HpLim?)
Operator or semicolon missing before &stg_CAF_BLACKHOLE_info at test.hc line 24.
Ambiguous use of & resolved as operator & at test.hc line 24.
Operator or semicolon missing before &newCAF at test.hc line 27.
Ambiguous use of & resolved as operator & at test.hc line 27.
Bareword found where operator expected at test.hc line 29, near ")R1"
(Missing operator before R1?)
syntax error at test.hc line 3, near "ssi_srt["
syntax error at test.hc line 8, near "ssi_closure["
syntax error at test.hc line 12, near "css_str["
syntax error at test.hc line 14, near "ssi_info["
syntax error at test.hc line 19, near ") {"
syntax error at test.hc line 23, near ")("
syntax error at test.hc line 26, near ")("
syntax error at test.hc line 27, near "*)("
syntax error at test.hc line 29, near "*)"
syntax error at test.hc line 30, near "p["
test.hc has too many errors.