#include "newmacros.h" #include "runtime.h" #define FN_Prelude_46primStrError ((void*)startLabel+8) #define CT_v277 ((void*)startLabel+24) #define F0_Prelude_46primStrError ((void*)startLabel+32) #define CT_v278 ((void*)startLabel+64) void FR_Prelude_46primStrError(void); extern Node FN_Prelude_46Enum_46NHC_46DErrNo_46ErrNo_46fromEnum[]; extern Node FN_CString_46fromCString[]; static Node startLabel[] = { bytes2word(1,0,0,1) , useLabel(CT_v277) , /* FN_Prelude_46primStrError: (byte 0) */ bytes2word(PUSH_ARG_I1,EVAL,POP_I1,PRIMITIVE) , useLabel(FR_Prelude_46primStrError) , bytes2word(RETURN_EVAL,ENDCODE,0,0) , bytes2word(0,0,0,0) , /* CT_v277: (byte 0) */ HW(0,1) , 0 , /* F0_Prelude_46primStrError: (byte 0) */ CAPTAG(useLabel(FN_Prelude_46primStrError),1) , bytes2word(1,0,0,1) , useLabel(CT_v278) ,}; Node FN_Prelude_46strError[] = { bytes2word(NEEDHEAP_I32,HEAP_CVAL_I3,HEAP_ARG,1) , bytes2word(HEAP_CVAL_I4,HEAP_OFF_N1,3,PUSH_HEAP) , bytes2word(HEAP_CVAL_I5,HEAP_OFF_N1,3,RETURN_EVAL) , bytes2word(ENDCODE,0,0,0) , bytes2word(0,0,0,0) , /* CT_v278: (byte 0) */ HW(3,1) , 0 ,}; Node F0_Prelude_46strError[] = { CAPTAG(useLabel(FN_Prelude_46strError),1) , VAPTAG(useLabel(FN_Prelude_46Enum_46NHC_46DErrNo_46ErrNo_46fromEnum)) , VAPTAG(useLabel(FN_Prelude_46primStrError)) , VAPTAG(useLabel(FN_CString_46fromCString)) ,}; #include #include /* foreign import ccall "strerror" Prelude.primStrError 1 :: Prelude.Int -> PackedString.PackedString */ extern char* strerror(HsInt); #ifdef PROFILE static SInfo pf_Prelude_46primStrError = {"Prelude","Prelude.primStrError","PackedString.PackedString"}; #endif C_HEADER(FR_Prelude_46primStrError) { NodePtr nodeptr; char* result; HsInt arg1; nodeptr = C_GETARG1(1); IND_REMOVE(nodeptr); arg1 = (HsInt)GET_INT_VALUE(nodeptr); result = strerror(arg1); nodeptr = nhc_mkString((char*)result); INIT_PROFINFO(nodeptr,&pf_Prelude_46primStrError); C_RETURN(nodeptr); }