Skip to content

Instantly share code, notes, and snippets.

@master-q
Created October 1, 2013 15:23
Show Gist options
  • Save master-q/6780182 to your computer and use it in GitHub Desktop.
Save master-q/6780182 to your computer and use it in GitHub Desktop.
mini-os-with-ajhc(f0fd2261b169c5b936333f367726e88efc5b6666) main_code.c compile with ajhc 0.8.0.9 (bb2db48f6c3cc9b00ef25f100630d47e5820bcdd).
char jhc_c_compile[] = "gcc rts/rts/profile.c rts/rts/rts_support.c rts/rts/gc_none.c rts/rts/jhc_rts.c rts/lib/lib_cbits.c rts/rts/gc_jgc.c rts/rts/stableptr.c rts/rts/conc.c -Irts/cbits -Irts jhc_custom/main_code.c -o jhc_custom/main_code.c '-std=gnu99' -D_GNU_SOURCE '-falign-functions=4' -ffast-math -Wextra -Wall -Wno-unused-parameter -fno-strict-aliasing -DNDEBUG -O3 '-D_JHC_GC=_JHC_GC_JGC' '-D_JHC_CONC=_JHC_CONC_NONE'";
char jhc_command[] = "ajhc -funboxed-values -fffi -fcpp -C --tdir rts -o jhc_custom/main_code.c Main.hs Time.hs Util.hs Xen.hs Struct.hs Console.hs XenconsRing.hs Gnttab.hs Sched.hs List.hs Xenbus.hs Fbfront.hs TimeShadowInfoStub.hs XenconsoleStub.hs GnttabStub.hs SchedStub.hs XsWireStub.hs XenbusStub.hs FbfrontStub.hs";
char jhc_version[] = "ajhc 0.8.0.9 (bb2db48f6c3cc9b00ef25f100630d47e5820bcdd)";
#include "jhc_rts_header.h"
struct s_caches_pub {
struct s_cache *cCJhc_Prim_Prim_$x3a;
struct s_cache *cCJhc_Type_Word_Int64;
struct s_cache *cCJhc_Type_Ptr_Ptr;
struct s_cache *cCJhc_Type_Word_Word32;
struct s_cache *cCJhc_Type_Word_Int;
struct s_cache *cFSched_schedule$d4;
struct s_cache *cFSched_schedule$d3;
struct s_cache *cFSched_schedule$d2;
struct s_cache *cCJhc_Type_Basic_Right;
struct s_cache *cCJhc_Type_Basic_Left;
struct s_cache *cP2__Xenbus_thread$d2;
struct s_cache *cFFE$__CCall_init__gnttab$d2;
struct s_cache *cFJhc_Basics_$pp;
struct s_cache *cFW$__fJhc_Inst_Show_showWord;
struct s_cache *cFFE$__CCall_init__gnttab$d3;
struct s_cache *cFFE$__CCall_init__xenbus$d2;
struct s_cache *cFFE$__CCall_init__xenbus$d3;
struct s_cache *cFXenconsRing_xenconsRingInit$d2;
struct s_cache *cFR$__fJhc_Basics_$pp;
struct s_cache *cFFE$__CCall_init__xenbus$d4;
struct s_cache *cFXenbus_thread$d3;
struct s_cache *cFControl_Monad_filterM$d2;
struct s_cache *cCJhc_Type_Word_Int32;
struct s_cache *cP1__FE$__CCall_init__sched$d2;
struct s_cache *cP1__Xenbus_thread$d2;
struct s_cache *cP1__Util_rawPrintk;
struct s_cache *cP1__Xenbus_xenbusReadInteger;
};
#include <console.h>
#include <events.h>
#include <fbfront_ffi_stub.h>
#include <gnttab_ffi_stub.h>
#include <hypervisor.h>
#include <mini-os/gnttab.h>
#include <mini-os/list.h>
#include <mini-os/mm.h>
#include <mini-os/sched.h>
#include <mini-os/time.h>
#include <sched_ffi_stub.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time_shadow_info_ffi_stub.h>
#include <wait.h>
#include <xen/io/xs_wire.h>
#include <xenbus.h>
#include <xenbus_ffi_stub.h>
#include <xenconsole_ffi_stub.h>
#include <xs_wire_ffi_stub.h>
#include <mini-os/mm.h>
#include <mini-os/semaphore.h>
#include <mini-os/time.h>
enum {
CJhc_Prim_Prim_$BE = 1,
CJhc_Prim_Prim_$LR = 0,
CJhc_Prim_Prim_$x3a = 0,
CJhc_Type_Basic_Char = 0,
CJhc_Type_Basic_Left = 0,
CJhc_Type_Basic_Right = 1,
CJhc_Type_Ptr_Ptr = 0,
CJhc_Type_Word_Int = 0,
CJhc_Type_Word_Word64 = 0,
P1__FE$__CCall_init__sched$d2 = 0,
P1__Util_rawPrintk = 1,
P1__Xenbus_thread$d2 = 2,
P1__Xenbus_xenbusReadInteger = 3,
P2__FE$__CCall_init__sched$d2 = 4,
P2__Util_rawPrintk = 5,
P2__Xenbus_thread$d2 = 6,
P2__Xenbus_xenbusReadInteger = 7,
TJhc_Type_C_CChar = 8,
TJhc_Type_Ptr_Ptr = 9,
TJhc_Type_Word_Int32 = 10,
TJhc_Type_Word_Word32 = 11,
TJhc_Type_Word_Word64 = 12
};
struct sCJhc_Prim_Prim_$x3a A_ALIGNED;
struct sCJhc_Type_Basic_Left A_ALIGNED;
struct sCJhc_Type_Basic_Right A_ALIGNED;
struct sCJhc_Type_Ptr_Ptr A_ALIGNED;
struct sCJhc_Type_Word_Int A_ALIGNED;
struct sCJhc_Type_Word_Int32 A_ALIGNED;
struct sCJhc_Type_Word_Int64 A_ALIGNED;
struct sCJhc_Type_Word_Word32 A_ALIGNED;
struct sCJhc_Type_Word_Word64 A_ALIGNED;
struct sFControl_Monad_filterM$d2 A_ALIGNED;
struct sFFE$__CCall_init__gnttab$d2 A_ALIGNED;
struct sFFE$__CCall_init__gnttab$d3 A_ALIGNED;
struct sFFE$__CCall_init__xenbus$d2 A_ALIGNED;
struct sFFE$__CCall_init__xenbus$d3 A_ALIGNED;
struct sFFE$__CCall_init__xenbus$d4 A_ALIGNED;
struct sFFbfront_pageCount A_ALIGNED;
struct sFGnttab_nrGrantEntries A_ALIGNED;
struct sFJhc_Basics_$pp A_ALIGNED;
struct sFR$__fJhc_Basics_$pp A_ALIGNED;
struct sFSched_schedule$d2 A_ALIGNED;
struct sFSched_schedule$d3 A_ALIGNED;
struct sFSched_schedule$d4 A_ALIGNED;
struct sFW$__fJhc_Inst_Show_showWord A_ALIGNED;
struct sFXenbus_thread$d3 A_ALIGNED;
struct sFXenconsRing_xenconsRingInit$d2 A_ALIGNED;
struct sP1__FE$__CCall_init__sched$d2 A_ALIGNED;
struct sP1__Util_rawPrintk A_ALIGNED;
struct sP1__Xenbus_thread$d2 A_ALIGNED;
struct sP1__Xenbus_xenbusReadInteger A_ALIGNED;
struct sP2__Xenbus_thread$d2 A_ALIGNED;
struct sTJhc_Type_Ptr_Ptr A_ALIGNED;
struct sCJhc_Prim_Prim_$x3a {
sptr_t a1;
sptr_t a2;
};
struct sCJhc_Type_Basic_Left {
what_t what;
sptr_t a1;
};
struct sCJhc_Type_Basic_Right {
what_t what;
sptr_t a1;
};
struct sCJhc_Type_Ptr_Ptr {
uintptr_t a1;
};
struct sCJhc_Type_Word_Int {
uint32_t a1;
};
struct sCJhc_Type_Word_Int32 {
uint32_t a1;
};
struct sCJhc_Type_Word_Int64 {
uint64_t a1;
};
struct sCJhc_Type_Word_Word32 {
uint32_t a1;
};
struct sCJhc_Type_Word_Word64 {
uint64_t a1;
};
struct sFControl_Monad_filterM$d2 {
fptr_t head;
sptr_t a1;
sptr_t a2;
sptr_t a3;
};
struct sFFE$__CCall_init__gnttab$d2 {
fptr_t head;
uint32_t a1;
uint32_t a2;
};
struct sFFE$__CCall_init__gnttab$d3 {
fptr_t head;
uintptr_t a1;
};
struct sFFE$__CCall_init__xenbus$d2 {
fptr_t head;
uintptr_t a1;
};
struct sFFE$__CCall_init__xenbus$d3 {
fptr_t head;
uint64_t a1;
uint32_t a2;
};
struct sFFE$__CCall_init__xenbus$d4 {
fptr_t head;
uint64_t a1;
};
struct sFFbfront_pageCount {
fptr_t head;
};
struct sFGnttab_nrGrantEntries {
fptr_t head;
};
struct sFJhc_Basics_$pp {
fptr_t head;
wptr_t a1;
sptr_t a2;
};
struct sFR$__fJhc_Basics_$pp {
fptr_t head;
sptr_t a1;
sptr_t a2;
};
struct sFSched_schedule$d2 {
fptr_t head;
sptr_t a2;
uint64_t a1;
};
struct sFSched_schedule$d3 {
fptr_t head;
uint64_t a1;
};
struct sFSched_schedule$d4 {
fptr_t head;
sptr_t a2;
uintptr_t a1;
};
struct sFW$__fJhc_Inst_Show_showWord {
fptr_t head;
wptr_t a2;
uint32_t a1;
};
struct sFXenbus_thread$d3 {
fptr_t head;
wptr_t a1;
wptr_t a2;
};
struct sFXenconsRing_xenconsRingInit$d2 {
fptr_t head;
uint32_t a1;
};
struct sP1__FE$__CCall_init__sched$d2 {
what_t what;
sptr_t a1;
};
struct sP1__Util_rawPrintk {
what_t what;
sptr_t a1;
};
struct sP1__Xenbus_thread$d2 {
what_t what;
sptr_t a1;
sptr_t a2;
};
struct sP1__Xenbus_xenbusReadInteger {
what_t what;
sptr_t a1;
};
struct sP2__Xenbus_thread$d2 {
what_t what;
sptr_t a1;
};
struct sTJhc_Type_Ptr_Ptr {
what_t what;
wptr_t a1;
};
void jhc_hs_init(gc_t gc,arena_t arena) ;
static wptr_t E__fControl_Monad_filterM$d2(gc_t gc,arena_t arena,struct sFControl_Monad_filterM$d2* arg) A_STD A_FALIGNED;
static wptr_t E__fFE$__CCall_init__gnttab$d2(gc_t gc,arena_t arena,struct sFFE$__CCall_init__gnttab$d2* arg) A_STD A_FALIGNED;
static wptr_t E__fFE$__CCall_init__gnttab$d3(gc_t gc,arena_t arena,struct sFFE$__CCall_init__gnttab$d3* arg) A_STD A_FALIGNED;
static wptr_t E__fFE$__CCall_init__xenbus$d2(gc_t gc,arena_t arena,struct sFFE$__CCall_init__xenbus$d2* arg) A_STD A_FALIGNED;
static wptr_t E__fFE$__CCall_init__xenbus$d3(gc_t gc,arena_t arena,struct sFFE$__CCall_init__xenbus$d3* arg) A_STD A_FALIGNED;
static wptr_t E__fFE$__CCall_init__xenbus$d4(gc_t gc,arena_t arena,struct sFFE$__CCall_init__xenbus$d4* arg) A_STD A_FALIGNED;
static wptr_t E__fFbfront_pageCount(gc_t gc,arena_t arena,struct sFFbfront_pageCount* arg) A_STD A_FALIGNED;
static wptr_t E__fGnttab_nrGrantEntries(gc_t gc,arena_t arena,struct sFGnttab_nrGrantEntries* arg) A_STD A_FALIGNED;
static wptr_t E__fJhc_Basics_$pp(gc_t gc,arena_t arena,struct sFJhc_Basics_$pp* arg) A_STD A_FALIGNED;
static wptr_t E__fR$__fJhc_Basics_$pp(gc_t gc,arena_t arena,struct sFR$__fJhc_Basics_$pp* arg) A_STD A_FALIGNED;
static wptr_t E__fSched_schedule$d2(gc_t gc,arena_t arena,struct sFSched_schedule$d2* arg) A_STD A_FALIGNED;
static wptr_t E__fSched_schedule$d3(gc_t gc,arena_t arena,struct sFSched_schedule$d3* arg) A_STD A_FALIGNED;
static wptr_t E__fSched_schedule$d4(gc_t gc,arena_t arena,struct sFSched_schedule$d4* arg) A_STD A_FALIGNED;
static wptr_t E__fW$__fJhc_Inst_Show_showWord(gc_t gc,arena_t arena,struct sFW$__fJhc_Inst_Show_showWord* arg) A_STD A_FALIGNED;
static wptr_t E__fXenbus_thread$d3(gc_t gc,arena_t arena,struct sFXenbus_thread$d3* arg) A_STD A_FALIGNED;
static wptr_t E__fXenconsRing_xenconsRingInit$d2(gc_t gc,arena_t arena,struct sFXenconsRing_xenconsRingInit$d2* arg) A_STD A_FALIGNED;
void _amain(void) ;
HsPtr _nit_fbfront(char* x87,uint64_t* x88,int32_t x89,int32_t x90,int32_t x91,int32_t x92,uint32_t x93) ;
static void b__main(gc_t gc,arena_t arena) A_STD;
static wptr_t bapply__46029(gc_t gc,arena_t arena,wptr_t v1,sptr_t v2) A_STD A_MALLOC;
static sptr_t bapply__46030(gc_t gc,arena_t arena,wptr_t v5) A_STD A_MALLOC;
static sptr_t fControl_Monad_filterM(gc_t gc,arena_t arena,wptr_t v242443333,wptr_t v232373566) A_STD A_MALLOC;
static wptr_t fControl_Monad_filterM$d2(gc_t gc,arena_t arena,sptr_t v136306588,sptr_t v153480262,sptr_t v194635136) A_STD A_MALLOC;
static uintptr_t fFE$__CCall___nit__fbfront(gc_t gc,arena_t arena,uintptr_t v120328970,uintptr_t u2,uint32_t v209077200,uint32_t v111018026,uint32_t v228163042,uint32_t v122214794,uint32_t v45031398) A_STD;
static wptr_t fFE$__CCall___nit__fbfront$d2(gc_t gc,arena_t arena,uint32_t v15858618) A_STD A_MALLOC;
static void fFE$__CCall_get__time__values__from__xen(gc_t gc,arena_t arena) A_STD;
static void fFE$__CCall_hs____handle__input(gc_t gc,arena_t arena,uint32_t u1,uintptr_t v197291872,uintptr_t v194635138) A_STD;
static void fFE$__CCall_hs__block(gc_t gc,arena_t arena,uintptr_t v984) A_STD;
static uintptr_t fFE$__CCall_hs__create__thread(gc_t gc,arena_t arena,uintptr_t v130625164,uintptr_t v44119796,uintptr_t v160959526) A_STD;
static void fFE$__CCall_hs__idle__thread(gc_t gc,arena_t arena,uintptr_t u1) A_STD;
static void fFE$__CCall_hs__xenbus__thread(gc_t gc,arena_t arena,uintptr_t u1) A_STD;
static uintptr_t fFE$__CCall_hs__xencons__ring__init(gc_t gc,arena_t arena) A_STD;
static void fFE$__CCall_init__console(gc_t gc,arena_t arena) A_STD;
static void fFE$__CCall_init__gnttab(gc_t gc,arena_t arena) A_STD;
static wptr_t fFE$__CCall_init__gnttab$d2(gc_t gc,arena_t arena,uint32_t v194346572,uint32_t v205779220) A_STD A_MALLOC;
static wptr_t fFE$__CCall_init__gnttab$d3(gc_t gc,arena_t arena,uintptr_t v152) A_STD A_MALLOC;
static void fFE$__CCall_init__sched(gc_t gc,arena_t arena) A_STD;
static sptr_t fFE$__CCall_init__sched$d2(gc_t gc,arena_t arena,sptr_t v969) A_STD A_MALLOC;
static void fFE$__CCall_init__time(gc_t gc,arena_t arena) A_STD;
static void fFE$__CCall_init__xenbus(gc_t gc,arena_t arena) A_STD;
static wptr_t fFE$__CCall_init__xenbus$d2(gc_t gc,arena_t arena,uintptr_t v154318376) A_STD A_MALLOC;
static wptr_t fFE$__CCall_init__xenbus$d3(gc_t gc,arena_t arena,uint64_t v62470112,uint32_t v234830352) A_STD A_MALLOC;
static wptr_t fFE$__CCall_init__xenbus$d4(gc_t gc,arena_t arena,uint64_t v79607516) A_STD A_MALLOC;
static void fFE$__CCall_put__free__entry(gc_t gc,arena_t arena,uint32_t v1078) A_STD;
static void fFE$__CCall_schedule(gc_t gc,arena_t arena) A_STD;
static void fFE$__CCall_timer__handler(gc_t gc,arena_t arena,uint32_t u1,uintptr_t u2,uintptr_t u3) A_STD;
static wptr_t fFbfront_pageCount(gc_t gc,arena_t arena) A_STD A_MALLOC;
static wptr_t fForeign_C_String_newCAString(gc_t gc,arena_t arena,wptr_t v253629489) A_STD A_MALLOC;
static sptr_t fForeign_C_String_withCString(gc_t gc,arena_t arena,sptr_t v104616766,wptr_t v258748512) A_STD A_MALLOC;
static wptr_t fGnttab_nrGrantEntries(gc_t gc,arena_t arena) A_STD A_MALLOC;
static wptr_t fJhc_Basics_$pp(gc_t gc,arena_t arena,wptr_t v132,sptr_t v134) A_STD A_MALLOC;
static wptr_t fJhc_Monad_60__go(gc_t gc,arena_t arena,sptr_t v163322718) A_STD A_MALLOC;
static sptr_t fR$__fControl_Monad_filterM(gc_t gc,arena_t arena,sptr_t v10461222,wptr_t v242443208) A_STD A_MALLOC;
static wptr_t fR$__fJhc_Basics_$pp(gc_t gc,arena_t arena,sptr_t v23565126,sptr_t v132127018) A_STD A_MALLOC;
static wptr_t fSched_schedule(gc_t gc,arena_t arena) A_STD A_MALLOC;
static wptr_t fSched_schedule$d2(gc_t gc,arena_t arena,uint64_t v206133680,sptr_t v230599642) A_STD A_MALLOC;
static wptr_t fSched_schedule$d3(gc_t gc,arena_t arena,uint64_t v127975176) A_STD A_MALLOC;
static wptr_t fSched_schedule$d4(gc_t gc,arena_t arena,uintptr_t v130564412,sptr_t v146226744) A_STD A_MALLOC;
static wptr_t fTime_1__main(gc_t gc,arena_t arena) A_STD A_MALLOC;
static wptr_t fTime_8__main(gc_t gc,arena_t arena) A_STD A_MALLOC;
static wptr_t fTime_getTimeValuesFromXen(gc_t gc,arena_t arena) A_STD A_MALLOC;
static sptr_t fUtil_printk(gc_t gc,arena_t arena,sptr_t v85433876) A_STD A_MALLOC;
static sptr_t fUtil_rawPrintk(gc_t gc,arena_t arena,sptr_t v321) A_STD A_MALLOC;
static wptr_t fW$__fFbfront_zeroFill(gc_t gc,arena_t arena,wptr_t v619318813,uint32_t v1708802087) A_STD A_MALLOC;
static wptr_t fW$__fForeign_C_String_peekCAString(gc_t gc,arena_t arena,uintptr_t v1412436537) A_STD A_MALLOC;
static wptr_t fW$__fForeign_Marshal_Alloc_mallocBytes(gc_t gc,arena_t arena,uint32_t v289412169) A_STD A_MALLOC;
static wptr_t fW$__fForeign_Storable_poke(gc_t gc,arena_t arena,wptr_t v289932845,uintptr_t v540822049,wptr_t v148154794) A_STD A_MALLOC;
static wptr_t fW$__fGnttab_putFreeEntry(gc_t gc,arena_t arena,uint32_t v231097895) A_STD A_MALLOC;
static wptr_t fW$__fInstance$__iForeign_Storable_pokeByteOff_default(gc_t gc,arena_t arena,wptr_t v1334319657,uintptr_t v1327372863,uint32_t v1336941117,wptr_t v1331436077) A_STD A_MALLOC;
static wptr_t fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc_t gc,arena_t arena,wptr_t v1354635821,uintptr_t v1347689023,uint32_t v1357519421,wptr_t v1351752237) A_STD A_MALLOC;
static uint16_t fW$__fInstance$__iJhc_Class_Ord_$ee_$hc_Prim_Prim_$BE(gc_t gc,arena_t arena,wptr_t v220594016,wptr_t v172) A_STD;
static wptr_t fW$__fJhc_Inst_Show_showWord(gc_t gc,arena_t arena,uint32_t v1849961523,wptr_t v1402744365) A_STD A_MALLOC;
static wptr_t fW$__fJhc_Inst_Show_showWordMax(gc_t gc,arena_t arena,uintmax_t v1643260979,wptr_t v1259220525) A_STD A_MALLOC;
static uint32_t fW$__fJhc_List_length(gc_t gc,arena_t arena,sptr_t v893005345) A_STD;
static wptr_t fW$__fList_2__loop(gc_t gc,arena_t arena,uintptr_t v266208116,wptr_t v124940228,uintptr_t v506608159) A_STD A_MALLOC;
static wptr_t fW$__fList_toList(gc_t gc,arena_t arena,uintptr_t v506608297) A_STD A_MALLOC;
static wptr_t fW$__fR$__fXenbus_toList(gc_t gc,arena_t arena,uintptr_t v115160438) A_STD A_MALLOC;
static wptr_t fW$__fSched_createThread(gc_t gc,arena_t arena,uintptr_t v359939625,uintptr_t v367279665,uintptr_t v370425383) A_STD A_MALLOC;
static wptr_t fW$__fx22233080(gc_t gc,arena_t arena,uintptr_t v550128169) A_STD A_MALLOC;
static wptr_t fXenbus_thread(gc_t gc,arena_t arena,wptr_t v1857293341) A_STD A_MALLOC;
static sptr_t fXenbus_thread$d2(gc_t gc,arena_t arena,sptr_t v228308040,sptr_t v1906576409) A_STD A_MALLOC;
static wptr_t fXenbus_thread$d3(gc_t gc,arena_t arena,wptr_t v59642626,wptr_t v136238520) A_STD A_MALLOC;
static wptr_t fXenbus_watchList(gc_t gc,arena_t arena) A_STD A_MALLOC;
static sptr_t fXenbus_xenbusReadInteger(gc_t gc,arena_t arena,sptr_t v716) A_STD A_MALLOC;
static wptr_t fXenconsRing_xenconsRingInit(gc_t gc,arena_t arena) A_STD A_MALLOC;
static wptr_t fXenconsRing_xenconsRingInit$d2(gc_t gc,arena_t arena,uint32_t v76483310) A_STD A_MALLOC;
static void ftheMain(gc_t gc,arena_t arena) A_STD;
static wptr_t fx57580220(gc_t gc,arena_t arena,sptr_t v124940244) A_STD A_MALLOC;
void get_time_values_from_xen(void) ;
void hs__handle_input(uint32_t x40,uint8_t* x41,uint8_t* x42) ;
void hs_block(HsPtr x125) ;
HsPtr hs_create_thread(char* x66,HsFunPtr x67,uint8_t* x68) ;
void hs_idle_thread(uint8_t* x123) ;
void hs_xenbus_thread(uint8_t* x106) ;
uint8_t* hs_xencons_ring_init(void) ;
void init_console(void) ;
void init_gnttab(void) ;
void init_sched(void) ;
void init_time(void) ;
void init_xenbus(void) ;
void put_free_entry(int32_t x20) ;
void schedule(void) ;
void timer_handler(uint32_t x46,uint8_t* x47,uint8_t* x48) ;
struct tup1 {
wptr_t t0;
sptr_t t2;
uintptr_t t1;
};
/* CAFS */
/* v-88755245 = (FGnttab.nrGrantEntries)*/
static node_t _g88755245 = { .head = TO_FPTR(&E__fGnttab_nrGrantEntries) };
#define g88755245 (MKLAZY_C(&_g88755245))
/* v-101600293 = (FFbfront.pageCount)*/
static node_t _g101600293 = { .head = TO_FPTR(&E__fFbfront_pageCount) };
#define g101600293 (MKLAZY_C(&_g101600293))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 10),Left &("CJhc.Prim.Prim.[]")],2) */
static const struct sCJhc_Prim_Prim_$x3a _c2 = {.a1 = (sptr_t)RAW_SET_UF(10), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c2 (TO_SPTR_C(P_WHNF, (sptr_t)&_c2))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 10),Right 2],290) */
static const struct sCJhc_Prim_Prim_$x3a _c290 = {.a1 = (sptr_t)RAW_SET_UF(10), .a2 = c2};
#define c290 (TO_SPTR_C(P_WHNF, (sptr_t)&_c290))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 10),Right 290],291) */
static const struct sCJhc_Prim_Prim_$x3a _c291 = {.a1 = (sptr_t)RAW_SET_UF(10), .a2 = c290};
#define c291 (TO_SPTR_C(P_WHNF, (sptr_t)&_c291))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Left &("CJhc.Prim.Prim.[]")],4) */
static const struct sCJhc_Prim_Prim_$x3a _c4 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c4 (TO_SPTR_C(P_WHNF, (sptr_t)&_c4))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 121),Left &("CJhc.Prim.Prim.[]")],14) */
static const struct sCJhc_Prim_Prim_$x3a _c14 = {.a1 = (sptr_t)RAW_SET_UF('y'), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c14 (TO_SPTR_C(P_WHNF, (sptr_t)&_c14))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 14],15) */
static const struct sCJhc_Prim_Prim_$x3a _c15 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c14};
#define c15 (TO_SPTR_C(P_WHNF, (sptr_t)&_c15))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 15],16) */
static const struct sCJhc_Prim_Prim_$x3a _c16 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c15};
#define c16 (TO_SPTR_C(P_WHNF, (sptr_t)&_c16))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 16],17) */
static const struct sCJhc_Prim_Prim_$x3a _c17 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c16};
#define c17 (TO_SPTR_C(P_WHNF, (sptr_t)&_c17))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 17],18) */
static const struct sCJhc_Prim_Prim_$x3a _c18 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c17};
#define c18 (TO_SPTR_C(P_WHNF, (sptr_t)&_c18))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 18],19) */
static const struct sCJhc_Prim_Prim_$x3a _c19 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c18};
#define c19 (TO_SPTR_C(P_WHNF, (sptr_t)&_c19))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 19],20) */
static const struct sCJhc_Prim_Prim_$x3a _c20 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c19};
#define c20 (TO_SPTR_C(P_WHNF, (sptr_t)&_c20))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 20],21) */
static const struct sCJhc_Prim_Prim_$x3a _c21 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c20};
#define c21 (TO_SPTR_C(P_WHNF, (sptr_t)&_c21))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 21],22) */
static const struct sCJhc_Prim_Prim_$x3a _c22 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c21};
#define c22 (TO_SPTR_C(P_WHNF, (sptr_t)&_c22))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 22],23) */
static const struct sCJhc_Prim_Prim_$x3a _c23 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c22};
#define c23 (TO_SPTR_C(P_WHNF, (sptr_t)&_c23))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 23],24) */
static const struct sCJhc_Prim_Prim_$x3a _c24 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c23};
#define c24 (TO_SPTR_C(P_WHNF, (sptr_t)&_c24))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 24],25) */
static const struct sCJhc_Prim_Prim_$x3a _c25 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c24};
#define c25 (TO_SPTR_C(P_WHNF, (sptr_t)&_c25))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 25],26) */
static const struct sCJhc_Prim_Prim_$x3a _c26 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c25};
#define c26 (TO_SPTR_C(P_WHNF, (sptr_t)&_c26))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 26],27) */
static const struct sCJhc_Prim_Prim_$x3a _c27 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c26};
#define c27 (TO_SPTR_C(P_WHNF, (sptr_t)&_c27))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 4],43) */
static const struct sCJhc_Prim_Prim_$x3a _c43 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c4};
#define c43 (TO_SPTR_C(P_WHNF, (sptr_t)&_c43))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 43],44) */
static const struct sCJhc_Prim_Prim_$x3a _c44 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c43};
#define c44 (TO_SPTR_C(P_WHNF, (sptr_t)&_c44))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 44],45) */
static const struct sCJhc_Prim_Prim_$x3a _c45 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c44};
#define c45 (TO_SPTR_C(P_WHNF, (sptr_t)&_c45))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 45],46) */
static const struct sCJhc_Prim_Prim_$x3a _c46 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c45};
#define c46 (TO_SPTR_C(P_WHNF, (sptr_t)&_c46))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 46],47) */
static const struct sCJhc_Prim_Prim_$x3a _c47 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c46};
#define c47 (TO_SPTR_C(P_WHNF, (sptr_t)&_c47))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 47],48) */
static const struct sCJhc_Prim_Prim_$x3a _c48 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c47};
#define c48 (TO_SPTR_C(P_WHNF, (sptr_t)&_c48))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 48],49) */
static const struct sCJhc_Prim_Prim_$x3a _c49 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c48};
#define c49 (TO_SPTR_C(P_WHNF, (sptr_t)&_c49))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 49],50) */
static const struct sCJhc_Prim_Prim_$x3a _c50 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c49};
#define c50 (TO_SPTR_C(P_WHNF, (sptr_t)&_c50))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 50],51) */
static const struct sCJhc_Prim_Prim_$x3a _c51 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c50};
#define c51 (TO_SPTR_C(P_WHNF, (sptr_t)&_c51))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 51],52) */
static const struct sCJhc_Prim_Prim_$x3a _c52 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c51};
#define c52 (TO_SPTR_C(P_WHNF, (sptr_t)&_c52))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 52],53) */
static const struct sCJhc_Prim_Prim_$x3a _c53 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c52};
#define c53 (TO_SPTR_C(P_WHNF, (sptr_t)&_c53))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 53],54) */
static const struct sCJhc_Prim_Prim_$x3a _c54 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c53};
#define c54 (TO_SPTR_C(P_WHNF, (sptr_t)&_c54))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 54],55) */
static const struct sCJhc_Prim_Prim_$x3a _c55 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c54};
#define c55 (TO_SPTR_C(P_WHNF, (sptr_t)&_c55))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 55],56) */
static const struct sCJhc_Prim_Prim_$x3a _c56 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c55};
#define c56 (TO_SPTR_C(P_WHNF, (sptr_t)&_c56))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 56],57) */
static const struct sCJhc_Prim_Prim_$x3a _c57 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c56};
#define c57 (TO_SPTR_C(P_WHNF, (sptr_t)&_c57))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 57],58) */
static const struct sCJhc_Prim_Prim_$x3a _c58 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c57};
#define c58 (TO_SPTR_C(P_WHNF, (sptr_t)&_c58))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 58],59) */
static const struct sCJhc_Prim_Prim_$x3a _c59 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c58};
#define c59 (TO_SPTR_C(P_WHNF, (sptr_t)&_c59))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 59],60) */
static const struct sCJhc_Prim_Prim_$x3a _c60 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c59};
#define c60 (TO_SPTR_C(P_WHNF, (sptr_t)&_c60))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 60],61) */
static const struct sCJhc_Prim_Prim_$x3a _c61 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c60};
#define c61 (TO_SPTR_C(P_WHNF, (sptr_t)&_c61))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 61],62) */
static const struct sCJhc_Prim_Prim_$x3a _c62 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c61};
#define c62 (TO_SPTR_C(P_WHNF, (sptr_t)&_c62))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 113),Right 62],63) */
static const struct sCJhc_Prim_Prim_$x3a _c63 = {.a1 = (sptr_t)RAW_SET_UF('q'), .a2 = c62};
#define c63 (TO_SPTR_C(P_WHNF, (sptr_t)&_c63))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 63],64) */
static const struct sCJhc_Prim_Prim_$x3a _c64 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c63};
#define c64 (TO_SPTR_C(P_WHNF, (sptr_t)&_c64))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 64],65) */
static const struct sCJhc_Prim_Prim_$x3a _c65 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c64};
#define c65 (TO_SPTR_C(P_WHNF, (sptr_t)&_c65))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 65],66) */
static const struct sCJhc_Prim_Prim_$x3a _c66 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c65};
#define c66 (TO_SPTR_C(P_WHNF, (sptr_t)&_c66))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 66],67) */
static const struct sCJhc_Prim_Prim_$x3a _c67 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c66};
#define c67 (TO_SPTR_C(P_WHNF, (sptr_t)&_c67))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 67],68) */
static const struct sCJhc_Prim_Prim_$x3a _c68 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c67};
#define c68 (TO_SPTR_C(P_WHNF, (sptr_t)&_c68))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 68],69) */
static const struct sCJhc_Prim_Prim_$x3a _c69 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c68};
#define c69 (TO_SPTR_C(P_WHNF, (sptr_t)&_c69))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 69],70) */
static const struct sCJhc_Prim_Prim_$x3a _c70 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c69};
#define c70 (TO_SPTR_C(P_WHNF, (sptr_t)&_c70))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 70],71) */
static const struct sCJhc_Prim_Prim_$x3a _c71 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c70};
#define c71 (TO_SPTR_C(P_WHNF, (sptr_t)&_c71))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 71],72) */
static const struct sCJhc_Prim_Prim_$x3a _c72 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c71};
#define c72 (TO_SPTR_C(P_WHNF, (sptr_t)&_c72))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 72],73) */
static const struct sCJhc_Prim_Prim_$x3a _c73 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c72};
#define c73 (TO_SPTR_C(P_WHNF, (sptr_t)&_c73))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 73],74) */
static const struct sCJhc_Prim_Prim_$x3a _c74 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c73};
#define c74 (TO_SPTR_C(P_WHNF, (sptr_t)&_c74))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 46),Right 2],3) */
static const struct sCJhc_Prim_Prim_$x3a _c3 = {.a1 = (sptr_t)RAW_SET_UF('.'), .a2 = c2};
#define c3 (TO_SPTR_C(P_WHNF, (sptr_t)&_c3))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 3],79) */
static const struct sCJhc_Prim_Prim_$x3a _c79 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c3};
#define c79 (TO_SPTR_C(P_WHNF, (sptr_t)&_c79))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 79],80) */
static const struct sCJhc_Prim_Prim_$x3a _c80 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c79};
#define c80 (TO_SPTR_C(P_WHNF, (sptr_t)&_c80))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 80],81) */
static const struct sCJhc_Prim_Prim_$x3a _c81 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c80};
#define c81 (TO_SPTR_C(P_WHNF, (sptr_t)&_c81))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 81],82) */
static const struct sCJhc_Prim_Prim_$x3a _c82 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c81};
#define c82 (TO_SPTR_C(P_WHNF, (sptr_t)&_c82))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 82],83) */
static const struct sCJhc_Prim_Prim_$x3a _c83 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c82};
#define c83 (TO_SPTR_C(P_WHNF, (sptr_t)&_c83))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 83],84) */
static const struct sCJhc_Prim_Prim_$x3a _c84 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c83};
#define c84 (TO_SPTR_C(P_WHNF, (sptr_t)&_c84))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 84],85) */
static const struct sCJhc_Prim_Prim_$x3a _c85 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c84};
#define c85 (TO_SPTR_C(P_WHNF, (sptr_t)&_c85))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 85],86) */
static const struct sCJhc_Prim_Prim_$x3a _c86 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c85};
#define c86 (TO_SPTR_C(P_WHNF, (sptr_t)&_c86))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 86],87) */
static const struct sCJhc_Prim_Prim_$x3a _c87 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c86};
#define c87 (TO_SPTR_C(P_WHNF, (sptr_t)&_c87))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 87],88) */
static const struct sCJhc_Prim_Prim_$x3a _c88 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c87};
#define c88 (TO_SPTR_C(P_WHNF, (sptr_t)&_c88))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 103),Right 88],89) */
static const struct sCJhc_Prim_Prim_$x3a _c89 = {.a1 = (sptr_t)RAW_SET_UF('g'), .a2 = c88};
#define c89 (TO_SPTR_C(P_WHNF, (sptr_t)&_c89))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 89],90) */
static const struct sCJhc_Prim_Prim_$x3a _c90 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c89};
#define c90 (TO_SPTR_C(P_WHNF, (sptr_t)&_c90))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 90],91) */
static const struct sCJhc_Prim_Prim_$x3a _c91 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c90};
#define c91 (TO_SPTR_C(P_WHNF, (sptr_t)&_c91))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 91],92) */
static const struct sCJhc_Prim_Prim_$x3a _c92 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c91};
#define c92 (TO_SPTR_C(P_WHNF, (sptr_t)&_c92))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 92],93) */
static const struct sCJhc_Prim_Prim_$x3a _c93 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c92};
#define c93 (TO_SPTR_C(P_WHNF, (sptr_t)&_c93))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 93],94) */
static const struct sCJhc_Prim_Prim_$x3a _c94 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c93};
#define c94 (TO_SPTR_C(P_WHNF, (sptr_t)&_c94))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 94],95) */
static const struct sCJhc_Prim_Prim_$x3a _c95 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c94};
#define c95 (TO_SPTR_C(P_WHNF, (sptr_t)&_c95))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 95],96) */
static const struct sCJhc_Prim_Prim_$x3a _c96 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c95};
#define c96 (TO_SPTR_C(P_WHNF, (sptr_t)&_c96))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 96],97) */
static const struct sCJhc_Prim_Prim_$x3a _c97 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c96};
#define c97 (TO_SPTR_C(P_WHNF, (sptr_t)&_c97))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 97],98) */
static const struct sCJhc_Prim_Prim_$x3a _c98 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c97};
#define c98 (TO_SPTR_C(P_WHNF, (sptr_t)&_c98))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 98],99) */
static const struct sCJhc_Prim_Prim_$x3a _c99 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c98};
#define c99 (TO_SPTR_C(P_WHNF, (sptr_t)&_c99))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 99],100) */
static const struct sCJhc_Prim_Prim_$x3a _c100 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c99};
#define c100 (TO_SPTR_C(P_WHNF, (sptr_t)&_c100))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 100],101) */
static const struct sCJhc_Prim_Prim_$x3a _c101 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c100};
#define c101 (TO_SPTR_C(P_WHNF, (sptr_t)&_c101))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 101],102) */
static const struct sCJhc_Prim_Prim_$x3a _c102 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c101};
#define c102 (TO_SPTR_C(P_WHNF, (sptr_t)&_c102))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 102],103) */
static const struct sCJhc_Prim_Prim_$x3a _c103 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c102};
#define c103 (TO_SPTR_C(P_WHNF, (sptr_t)&_c103))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 103],104) */
static const struct sCJhc_Prim_Prim_$x3a _c104 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c103};
#define c104 (TO_SPTR_C(P_WHNF, (sptr_t)&_c104))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 104],105) */
static const struct sCJhc_Prim_Prim_$x3a _c105 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c104};
#define c105 (TO_SPTR_C(P_WHNF, (sptr_t)&_c105))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 105],106) */
static const struct sCJhc_Prim_Prim_$x3a _c106 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c105};
#define c106 (TO_SPTR_C(P_WHNF, (sptr_t)&_c106))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 106],107) */
static const struct sCJhc_Prim_Prim_$x3a _c107 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c106};
#define c107 (TO_SPTR_C(P_WHNF, (sptr_t)&_c107))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 107],108) */
static const struct sCJhc_Prim_Prim_$x3a _c108 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c107};
#define c108 (TO_SPTR_C(P_WHNF, (sptr_t)&_c108))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 108],109) */
static const struct sCJhc_Prim_Prim_$x3a _c109 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c108};
#define c109 (TO_SPTR_C(P_WHNF, (sptr_t)&_c109))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 109],110) */
static const struct sCJhc_Prim_Prim_$x3a _c110 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c109};
#define c110 (TO_SPTR_C(P_WHNF, (sptr_t)&_c110))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 110],111) */
static const struct sCJhc_Prim_Prim_$x3a _c111 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c110};
#define c111 (TO_SPTR_C(P_WHNF, (sptr_t)&_c111))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 111],112) */
static const struct sCJhc_Prim_Prim_$x3a _c112 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c111};
#define c112 (TO_SPTR_C(P_WHNF, (sptr_t)&_c112))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 112],113) */
static const struct sCJhc_Prim_Prim_$x3a _c113 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c112};
#define c113 (TO_SPTR_C(P_WHNF, (sptr_t)&_c113))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 113],114) */
static const struct sCJhc_Prim_Prim_$x3a _c114 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c113};
#define c114 (TO_SPTR_C(P_WHNF, (sptr_t)&_c114))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 114],115) */
static const struct sCJhc_Prim_Prim_$x3a _c115 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c114};
#define c115 (TO_SPTR_C(P_WHNF, (sptr_t)&_c115))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 115],116) */
static const struct sCJhc_Prim_Prim_$x3a _c116 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c115};
#define c116 (TO_SPTR_C(P_WHNF, (sptr_t)&_c116))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 116],117) */
static const struct sCJhc_Prim_Prim_$x3a _c117 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c116};
#define c117 (TO_SPTR_C(P_WHNF, (sptr_t)&_c117))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 117],118) */
static const struct sCJhc_Prim_Prim_$x3a _c118 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c117};
#define c118 (TO_SPTR_C(P_WHNF, (sptr_t)&_c118))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 118],119) */
static const struct sCJhc_Prim_Prim_$x3a _c119 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c118};
#define c119 (TO_SPTR_C(P_WHNF, (sptr_t)&_c119))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 119],120) */
static const struct sCJhc_Prim_Prim_$x3a _c120 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c119};
#define c120 (TO_SPTR_C(P_WHNF, (sptr_t)&_c120))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 120],121) */
static const struct sCJhc_Prim_Prim_$x3a _c121 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c120};
#define c121 (TO_SPTR_C(P_WHNF, (sptr_t)&_c121))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 121],122) */
static const struct sCJhc_Prim_Prim_$x3a _c122 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c121};
#define c122 (TO_SPTR_C(P_WHNF, (sptr_t)&_c122))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 122],123) */
static const struct sCJhc_Prim_Prim_$x3a _c123 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c122};
#define c123 (TO_SPTR_C(P_WHNF, (sptr_t)&_c123))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 123],124) */
static const struct sCJhc_Prim_Prim_$x3a _c124 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c123};
#define c124 (TO_SPTR_C(P_WHNF, (sptr_t)&_c124))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 124],125) */
static const struct sCJhc_Prim_Prim_$x3a _c125 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c124};
#define c125 (TO_SPTR_C(P_WHNF, (sptr_t)&_c125))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 125],126) */
static const struct sCJhc_Prim_Prim_$x3a _c126 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c125};
#define c126 (TO_SPTR_C(P_WHNF, (sptr_t)&_c126))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 126],127) */
static const struct sCJhc_Prim_Prim_$x3a _c127 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c126};
#define c127 (TO_SPTR_C(P_WHNF, (sptr_t)&_c127))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 119),Right 127],128) */
static const struct sCJhc_Prim_Prim_$x3a _c128 = {.a1 = (sptr_t)RAW_SET_UF('w'), .a2 = c127};
#define c128 (TO_SPTR_C(P_WHNF, (sptr_t)&_c128))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 128],129) */
static const struct sCJhc_Prim_Prim_$x3a _c129 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c128};
#define c129 (TO_SPTR_C(P_WHNF, (sptr_t)&_c129))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 129],130) */
static const struct sCJhc_Prim_Prim_$x3a _c130 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c129};
#define c130 (TO_SPTR_C(P_WHNF, (sptr_t)&_c130))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 130],131) */
static const struct sCJhc_Prim_Prim_$x3a _c131 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c130};
#define c131 (TO_SPTR_C(P_WHNF, (sptr_t)&_c131))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 131],132) */
static const struct sCJhc_Prim_Prim_$x3a _c132 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c131};
#define c132 (TO_SPTR_C(P_WHNF, (sptr_t)&_c132))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 132],133) */
static const struct sCJhc_Prim_Prim_$x3a _c133 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c132};
#define c133 (TO_SPTR_C(P_WHNF, (sptr_t)&_c133))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 133],134) */
static const struct sCJhc_Prim_Prim_$x3a _c134 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c133};
#define c134 (TO_SPTR_C(P_WHNF, (sptr_t)&_c134))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 134],135) */
static const struct sCJhc_Prim_Prim_$x3a _c135 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c134};
#define c135 (TO_SPTR_C(P_WHNF, (sptr_t)&_c135))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 78),Right 135],136) */
static const struct sCJhc_Prim_Prim_$x3a _c136 = {.a1 = (sptr_t)RAW_SET_UF('N'), .a2 = c135};
#define c136 (TO_SPTR_C(P_WHNF, (sptr_t)&_c136))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 136],137) */
static const struct sCJhc_Prim_Prim_$x3a _c137 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c136};
#define c137 (TO_SPTR_C(P_WHNF, (sptr_t)&_c137))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 46),Right 4],142) */
static const struct sCJhc_Prim_Prim_$x3a _c142 = {.a1 = (sptr_t)RAW_SET_UF('.'), .a2 = c4};
#define c142 (TO_SPTR_C(P_WHNF, (sptr_t)&_c142))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 46),Right 142],143) */
static const struct sCJhc_Prim_Prim_$x3a _c143 = {.a1 = (sptr_t)RAW_SET_UF('.'), .a2 = c142};
#define c143 (TO_SPTR_C(P_WHNF, (sptr_t)&_c143))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 46),Right 143],144) */
static const struct sCJhc_Prim_Prim_$x3a _c144 = {.a1 = (sptr_t)RAW_SET_UF('.'), .a2 = c143};
#define c144 (TO_SPTR_C(P_WHNF, (sptr_t)&_c144))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 144],145) */
static const struct sCJhc_Prim_Prim_$x3a _c145 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c144};
#define c145 (TO_SPTR_C(P_WHNF, (sptr_t)&_c145))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 145],146) */
static const struct sCJhc_Prim_Prim_$x3a _c146 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c145};
#define c146 (TO_SPTR_C(P_WHNF, (sptr_t)&_c146))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 146],147) */
static const struct sCJhc_Prim_Prim_$x3a _c147 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c146};
#define c147 (TO_SPTR_C(P_WHNF, (sptr_t)&_c147))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 147],148) */
static const struct sCJhc_Prim_Prim_$x3a _c148 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c147};
#define c148 (TO_SPTR_C(P_WHNF, (sptr_t)&_c148))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 148],149) */
static const struct sCJhc_Prim_Prim_$x3a _c149 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c148};
#define c149 (TO_SPTR_C(P_WHNF, (sptr_t)&_c149))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 149],150) */
static const struct sCJhc_Prim_Prim_$x3a _c150 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c149};
#define c150 (TO_SPTR_C(P_WHNF, (sptr_t)&_c150))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 150],151) */
static const struct sCJhc_Prim_Prim_$x3a _c151 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c150};
#define c151 (TO_SPTR_C(P_WHNF, (sptr_t)&_c151))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 151],152) */
static const struct sCJhc_Prim_Prim_$x3a _c152 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c151};
#define c152 (TO_SPTR_C(P_WHNF, (sptr_t)&_c152))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 152],153) */
static const struct sCJhc_Prim_Prim_$x3a _c153 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c152};
#define c153 (TO_SPTR_C(P_WHNF, (sptr_t)&_c153))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 2],166) */
static const struct sCJhc_Prim_Prim_$x3a _c166 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c2};
#define c166 (TO_SPTR_C(P_WHNF, (sptr_t)&_c166))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 166],170) */
static const struct sCJhc_Prim_Prim_$x3a _c170 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c166};
#define c170 (TO_SPTR_C(P_WHNF, (sptr_t)&_c170))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 170],171) */
static const struct sCJhc_Prim_Prim_$x3a _c171 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c170};
#define c171 (TO_SPTR_C(P_WHNF, (sptr_t)&_c171))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 171],172) */
static const struct sCJhc_Prim_Prim_$x3a _c172 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c171};
#define c172 (TO_SPTR_C(P_WHNF, (sptr_t)&_c172))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 172],173) */
static const struct sCJhc_Prim_Prim_$x3a _c173 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c172};
#define c173 (TO_SPTR_C(P_WHNF, (sptr_t)&_c173))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 173],174) */
static const struct sCJhc_Prim_Prim_$x3a _c174 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c173};
#define c174 (TO_SPTR_C(P_WHNF, (sptr_t)&_c174))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 174],175) */
static const struct sCJhc_Prim_Prim_$x3a _c175 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c174};
#define c175 (TO_SPTR_C(P_WHNF, (sptr_t)&_c175))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 175],176) */
static const struct sCJhc_Prim_Prim_$x3a _c176 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c175};
#define c176 (TO_SPTR_C(P_WHNF, (sptr_t)&_c176))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 176],177) */
static const struct sCJhc_Prim_Prim_$x3a _c177 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c176};
#define c177 (TO_SPTR_C(P_WHNF, (sptr_t)&_c177))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 177],178) */
static const struct sCJhc_Prim_Prim_$x3a _c178 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c177};
#define c178 (TO_SPTR_C(P_WHNF, (sptr_t)&_c178))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 178],179) */
static const struct sCJhc_Prim_Prim_$x3a _c179 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c178};
#define c179 (TO_SPTR_C(P_WHNF, (sptr_t)&_c179))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 179],180) */
static const struct sCJhc_Prim_Prim_$x3a _c180 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c179};
#define c180 (TO_SPTR_C(P_WHNF, (sptr_t)&_c180))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 180],181) */
static const struct sCJhc_Prim_Prim_$x3a _c181 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c180};
#define c181 (TO_SPTR_C(P_WHNF, (sptr_t)&_c181))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 181],182) */
static const struct sCJhc_Prim_Prim_$x3a _c182 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c181};
#define c182 (TO_SPTR_C(P_WHNF, (sptr_t)&_c182))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 182],183) */
static const struct sCJhc_Prim_Prim_$x3a _c183 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c182};
#define c183 (TO_SPTR_C(P_WHNF, (sptr_t)&_c183))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 183],184) */
static const struct sCJhc_Prim_Prim_$x3a _c184 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c183};
#define c184 (TO_SPTR_C(P_WHNF, (sptr_t)&_c184))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 33),Right 2],197) */
static const struct sCJhc_Prim_Prim_$x3a _c197 = {.a1 = (sptr_t)RAW_SET_UF('!'), .a2 = c2};
#define c197 (TO_SPTR_C(P_WHNF, (sptr_t)&_c197))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 197],198) */
static const struct sCJhc_Prim_Prim_$x3a _c198 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c197};
#define c198 (TO_SPTR_C(P_WHNF, (sptr_t)&_c198))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 198],199) */
static const struct sCJhc_Prim_Prim_$x3a _c199 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c198};
#define c199 (TO_SPTR_C(P_WHNF, (sptr_t)&_c199))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 199],200) */
static const struct sCJhc_Prim_Prim_$x3a _c200 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c199};
#define c200 (TO_SPTR_C(P_WHNF, (sptr_t)&_c200))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 200],201) */
static const struct sCJhc_Prim_Prim_$x3a _c201 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c200};
#define c201 (TO_SPTR_C(P_WHNF, (sptr_t)&_c201))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 201],202) */
static const struct sCJhc_Prim_Prim_$x3a _c202 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c201};
#define c202 (TO_SPTR_C(P_WHNF, (sptr_t)&_c202))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 202],203) */
static const struct sCJhc_Prim_Prim_$x3a _c203 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c202};
#define c203 (TO_SPTR_C(P_WHNF, (sptr_t)&_c203))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 203],204) */
static const struct sCJhc_Prim_Prim_$x3a _c204 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c203};
#define c204 (TO_SPTR_C(P_WHNF, (sptr_t)&_c204))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 4],216) */
static const struct sCJhc_Prim_Prim_$x3a _c216 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c4};
#define c216 (TO_SPTR_C(P_WHNF, (sptr_t)&_c216))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 216],217) */
static const struct sCJhc_Prim_Prim_$x3a _c217 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c216};
#define c217 (TO_SPTR_C(P_WHNF, (sptr_t)&_c217))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 217],218) */
static const struct sCJhc_Prim_Prim_$x3a _c218 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c217};
#define c218 (TO_SPTR_C(P_WHNF, (sptr_t)&_c218))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 113),Right 4],229) */
static const struct sCJhc_Prim_Prim_$x3a _c229 = {.a1 = (sptr_t)RAW_SET_UF('q'), .a2 = c4};
#define c229 (TO_SPTR_C(P_WHNF, (sptr_t)&_c229))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 229],230) */
static const struct sCJhc_Prim_Prim_$x3a _c230 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c229};
#define c230 (TO_SPTR_C(P_WHNF, (sptr_t)&_c230))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 230],231) */
static const struct sCJhc_Prim_Prim_$x3a _c231 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c230};
#define c231 (TO_SPTR_C(P_WHNF, (sptr_t)&_c231))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 231],232) */
static const struct sCJhc_Prim_Prim_$x3a _c232 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c231};
#define c232 (TO_SPTR_C(P_WHNF, (sptr_t)&_c232))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 232],233) */
static const struct sCJhc_Prim_Prim_$x3a _c233 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c232};
#define c233 (TO_SPTR_C(P_WHNF, (sptr_t)&_c233))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 233],234) */
static const struct sCJhc_Prim_Prim_$x3a _c234 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c233};
#define c234 (TO_SPTR_C(P_WHNF, (sptr_t)&_c234))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 234],235) */
static const struct sCJhc_Prim_Prim_$x3a _c235 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c234};
#define c235 (TO_SPTR_C(P_WHNF, (sptr_t)&_c235))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 235],236) */
static const struct sCJhc_Prim_Prim_$x3a _c236 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c235};
#define c236 (TO_SPTR_C(P_WHNF, (sptr_t)&_c236))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 236],237) */
static const struct sCJhc_Prim_Prim_$x3a _c237 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c236};
#define c237 (TO_SPTR_C(P_WHNF, (sptr_t)&_c237))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 237],238) */
static const struct sCJhc_Prim_Prim_$x3a _c238 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c237};
#define c238 (TO_SPTR_C(P_WHNF, (sptr_t)&_c238))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 238],239) */
static const struct sCJhc_Prim_Prim_$x3a _c239 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c238};
#define c239 (TO_SPTR_C(P_WHNF, (sptr_t)&_c239))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 239],240) */
static const struct sCJhc_Prim_Prim_$x3a _c240 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c239};
#define c240 (TO_SPTR_C(P_WHNF, (sptr_t)&_c240))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 240],241) */
static const struct sCJhc_Prim_Prim_$x3a _c241 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c240};
#define c241 (TO_SPTR_C(P_WHNF, (sptr_t)&_c241))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 241],242) */
static const struct sCJhc_Prim_Prim_$x3a _c242 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c241};
#define c242 (TO_SPTR_C(P_WHNF, (sptr_t)&_c242))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 242],243) */
static const struct sCJhc_Prim_Prim_$x3a _c243 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c242};
#define c243 (TO_SPTR_C(P_WHNF, (sptr_t)&_c243))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 243],244) */
static const struct sCJhc_Prim_Prim_$x3a _c244 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c243};
#define c244 (TO_SPTR_C(P_WHNF, (sptr_t)&_c244))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 244],245) */
static const struct sCJhc_Prim_Prim_$x3a _c245 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c244};
#define c245 (TO_SPTR_C(P_WHNF, (sptr_t)&_c245))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 245],246) */
static const struct sCJhc_Prim_Prim_$x3a _c246 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c245};
#define c246 (TO_SPTR_C(P_WHNF, (sptr_t)&_c246))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 246],247) */
static const struct sCJhc_Prim_Prim_$x3a _c247 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c246};
#define c247 (TO_SPTR_C(P_WHNF, (sptr_t)&_c247))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 2],254) */
static const struct sCJhc_Prim_Prim_$x3a _c254 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c2};
#define c254 (TO_SPTR_C(P_WHNF, (sptr_t)&_c254))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 254],255) */
static const struct sCJhc_Prim_Prim_$x3a _c255 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c254};
#define c255 (TO_SPTR_C(P_WHNF, (sptr_t)&_c255))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 255],256) */
static const struct sCJhc_Prim_Prim_$x3a _c256 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c255};
#define c256 (TO_SPTR_C(P_WHNF, (sptr_t)&_c256))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 256],257) */
static const struct sCJhc_Prim_Prim_$x3a _c257 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c256};
#define c257 (TO_SPTR_C(P_WHNF, (sptr_t)&_c257))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 257],258) */
static const struct sCJhc_Prim_Prim_$x3a _c258 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c257};
#define c258 (TO_SPTR_C(P_WHNF, (sptr_t)&_c258))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 258],259) */
static const struct sCJhc_Prim_Prim_$x3a _c259 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c258};
#define c259 (TO_SPTR_C(P_WHNF, (sptr_t)&_c259))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 259],260) */
static const struct sCJhc_Prim_Prim_$x3a _c260 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c259};
#define c260 (TO_SPTR_C(P_WHNF, (sptr_t)&_c260))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 260],261) */
static const struct sCJhc_Prim_Prim_$x3a _c261 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c260};
#define c261 (TO_SPTR_C(P_WHNF, (sptr_t)&_c261))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 261],262) */
static const struct sCJhc_Prim_Prim_$x3a _c262 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c261};
#define c262 (TO_SPTR_C(P_WHNF, (sptr_t)&_c262))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 262],263) */
static const struct sCJhc_Prim_Prim_$x3a _c263 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c262};
#define c263 (TO_SPTR_C(P_WHNF, (sptr_t)&_c263))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 291],292) */
static const struct sCJhc_Prim_Prim_$x3a _c292 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c291};
#define c292 (TO_SPTR_C(P_WHNF, (sptr_t)&_c292))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 292],293) */
static const struct sCJhc_Prim_Prim_$x3a _c293 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c292};
#define c293 (TO_SPTR_C(P_WHNF, (sptr_t)&_c293))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 293],294) */
static const struct sCJhc_Prim_Prim_$x3a _c294 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c293};
#define c294 (TO_SPTR_C(P_WHNF, (sptr_t)&_c294))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 294],295) */
static const struct sCJhc_Prim_Prim_$x3a _c295 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c294};
#define c295 (TO_SPTR_C(P_WHNF, (sptr_t)&_c295))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 295],296) */
static const struct sCJhc_Prim_Prim_$x3a _c296 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c295};
#define c296 (TO_SPTR_C(P_WHNF, (sptr_t)&_c296))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 296],297) */
static const struct sCJhc_Prim_Prim_$x3a _c297 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c296};
#define c297 (TO_SPTR_C(P_WHNF, (sptr_t)&_c297))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 297],298) */
static const struct sCJhc_Prim_Prim_$x3a _c298 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c297};
#define c298 (TO_SPTR_C(P_WHNF, (sptr_t)&_c298))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 298],299) */
static const struct sCJhc_Prim_Prim_$x3a _c299 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c298};
#define c299 (TO_SPTR_C(P_WHNF, (sptr_t)&_c299))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 299],300) */
static const struct sCJhc_Prim_Prim_$x3a _c300 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c299};
#define c300 (TO_SPTR_C(P_WHNF, (sptr_t)&_c300))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 300],301) */
static const struct sCJhc_Prim_Prim_$x3a _c301 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c300};
#define c301 (TO_SPTR_C(P_WHNF, (sptr_t)&_c301))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 301],302) */
static const struct sCJhc_Prim_Prim_$x3a _c302 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c301};
#define c302 (TO_SPTR_C(P_WHNF, (sptr_t)&_c302))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 4],303) */
static const struct sCJhc_Prim_Prim_$x3a _c303 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c4};
#define c303 (TO_SPTR_C(P_WHNF, (sptr_t)&_c303))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 303],304) */
static const struct sCJhc_Prim_Prim_$x3a _c304 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c303};
#define c304 (TO_SPTR_C(P_WHNF, (sptr_t)&_c304))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 304],305) */
static const struct sCJhc_Prim_Prim_$x3a _c305 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c304};
#define c305 (TO_SPTR_C(P_WHNF, (sptr_t)&_c305))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 305],306) */
static const struct sCJhc_Prim_Prim_$x3a _c306 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c305};
#define c306 (TO_SPTR_C(P_WHNF, (sptr_t)&_c306))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 84),Right 306],307) */
static const struct sCJhc_Prim_Prim_$x3a _c307 = {.a1 = (sptr_t)RAW_SET_UF('T'), .a2 = c306};
#define c307 (TO_SPTR_C(P_WHNF, (sptr_t)&_c307))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 78),Right 307],308) */
static const struct sCJhc_Prim_Prim_$x3a _c308 = {.a1 = (sptr_t)RAW_SET_UF('N'), .a2 = c307};
#define c308 (TO_SPTR_C(P_WHNF, (sptr_t)&_c308))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 79),Right 308],309) */
static const struct sCJhc_Prim_Prim_$x3a _c309 = {.a1 = (sptr_t)RAW_SET_UF('O'), .a2 = c308};
#define c309 (TO_SPTR_C(P_WHNF, (sptr_t)&_c309))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 82),Right 309],310) */
static const struct sCJhc_Prim_Prim_$x3a _c310 = {.a1 = (sptr_t)RAW_SET_UF('R'), .a2 = c309};
#define c310 (TO_SPTR_C(P_WHNF, (sptr_t)&_c310))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 70),Right 310],311) */
static const struct sCJhc_Prim_Prim_$x3a _c311 = {.a1 = (sptr_t)RAW_SET_UF('F'), .a2 = c310};
#define c311 (TO_SPTR_C(P_WHNF, (sptr_t)&_c311))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 66),Right 311],312) */
static const struct sCJhc_Prim_Prim_$x3a _c312 = {.a1 = (sptr_t)RAW_SET_UF('B'), .a2 = c311};
#define c312 (TO_SPTR_C(P_WHNF, (sptr_t)&_c312))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 70),Right 312],313) */
static const struct sCJhc_Prim_Prim_$x3a _c313 = {.a1 = (sptr_t)RAW_SET_UF('F'), .a2 = c312};
#define c313 (TO_SPTR_C(P_WHNF, (sptr_t)&_c313))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 313],314) */
static const struct sCJhc_Prim_Prim_$x3a _c314 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c313};
#define c314 (TO_SPTR_C(P_WHNF, (sptr_t)&_c314))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Left &("CJhc.Prim.Prim.[]")],347) */
static const struct sCJhc_Prim_Prim_$x3a _c347 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c347 (TO_SPTR_C(P_WHNF, (sptr_t)&_c347))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 347],348) */
static const struct sCJhc_Prim_Prim_$x3a _c348 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c347};
#define c348 (TO_SPTR_C(P_WHNF, (sptr_t)&_c348))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 348],349) */
static const struct sCJhc_Prim_Prim_$x3a _c349 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c348};
#define c349 (TO_SPTR_C(P_WHNF, (sptr_t)&_c349))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 349],350) */
static const struct sCJhc_Prim_Prim_$x3a _c350 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c349};
#define c350 (TO_SPTR_C(P_WHNF, (sptr_t)&_c350))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 350],351) */
static const struct sCJhc_Prim_Prim_$x3a _c351 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c350};
#define c351 (TO_SPTR_C(P_WHNF, (sptr_t)&_c351))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 112),Right 351],352) */
static const struct sCJhc_Prim_Prim_$x3a _c352 = {.a1 = (sptr_t)RAW_SET_UF('p'), .a2 = c351};
#define c352 (TO_SPTR_C(P_WHNF, (sptr_t)&_c352))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 112),Right 352],353) */
static const struct sCJhc_Prim_Prim_$x3a _c353 = {.a1 = (sptr_t)RAW_SET_UF('p'), .a2 = c352};
#define c353 (TO_SPTR_C(P_WHNF, (sptr_t)&_c353))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 353],354) */
static const struct sCJhc_Prim_Prim_$x3a _c354 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c353};
#define c354 (TO_SPTR_C(P_WHNF, (sptr_t)&_c354))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 354],355) */
static const struct sCJhc_Prim_Prim_$x3a _c355 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c354};
#define c355 (TO_SPTR_C(P_WHNF, (sptr_t)&_c355))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 355],356) */
static const struct sCJhc_Prim_Prim_$x3a _c356 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c355};
#define c356 (TO_SPTR_C(P_WHNF, (sptr_t)&_c356))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 107),Right 2],369) */
static const struct sCJhc_Prim_Prim_$x3a _c369 = {.a1 = (sptr_t)RAW_SET_UF('k'), .a2 = c2};
#define c369 (TO_SPTR_C(P_WHNF, (sptr_t)&_c369))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 369],370) */
static const struct sCJhc_Prim_Prim_$x3a _c370 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c369};
#define c370 (TO_SPTR_C(P_WHNF, (sptr_t)&_c370))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 370],371) */
static const struct sCJhc_Prim_Prim_$x3a _c371 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c370};
#define c371 (TO_SPTR_C(P_WHNF, (sptr_t)&_c371))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 371],372) */
static const struct sCJhc_Prim_Prim_$x3a _c372 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c371};
#define c372 (TO_SPTR_C(P_WHNF, (sptr_t)&_c372))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 372],373) */
static const struct sCJhc_Prim_Prim_$x3a _c373 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c372};
#define c373 (TO_SPTR_C(P_WHNF, (sptr_t)&_c373))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 373],374) */
static const struct sCJhc_Prim_Prim_$x3a _c374 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c373};
#define c374 (TO_SPTR_C(P_WHNF, (sptr_t)&_c374))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 374],375) */
static const struct sCJhc_Prim_Prim_$x3a _c375 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c374};
#define c375 (TO_SPTR_C(P_WHNF, (sptr_t)&_c375))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 375],376) */
static const struct sCJhc_Prim_Prim_$x3a _c376 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c375};
#define c376 (TO_SPTR_C(P_WHNF, (sptr_t)&_c376))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 376],377) */
static const struct sCJhc_Prim_Prim_$x3a _c377 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c376};
#define c377 (TO_SPTR_C(P_WHNF, (sptr_t)&_c377))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 377],378) */
static const struct sCJhc_Prim_Prim_$x3a _c378 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c377};
#define c378 (TO_SPTR_C(P_WHNF, (sptr_t)&_c378))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 378],379) */
static const struct sCJhc_Prim_Prim_$x3a _c379 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c378};
#define c379 (TO_SPTR_C(P_WHNF, (sptr_t)&_c379))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 379],380) */
static const struct sCJhc_Prim_Prim_$x3a _c380 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c379};
#define c380 (TO_SPTR_C(P_WHNF, (sptr_t)&_c380))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 380],381) */
static const struct sCJhc_Prim_Prim_$x3a _c381 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c380};
#define c381 (TO_SPTR_C(P_WHNF, (sptr_t)&_c381))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 381],382) */
static const struct sCJhc_Prim_Prim_$x3a _c382 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c381};
#define c382 (TO_SPTR_C(P_WHNF, (sptr_t)&_c382))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 41),Right 382],383) */
static const struct sCJhc_Prim_Prim_$x3a _c383 = {.a1 = (sptr_t)RAW_SET_UF(')'), .a2 = c382};
#define c383 (TO_SPTR_C(P_WHNF, (sptr_t)&_c383))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 40),Right 383],384) */
static const struct sCJhc_Prim_Prim_$x3a _c384 = {.a1 = (sptr_t)RAW_SET_UF('('), .a2 = c383};
#define c384 (TO_SPTR_C(P_WHNF, (sptr_t)&_c384))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 384],385) */
static const struct sCJhc_Prim_Prim_$x3a _c385 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c384};
#define c385 (TO_SPTR_C(P_WHNF, (sptr_t)&_c385))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 385],386) */
static const struct sCJhc_Prim_Prim_$x3a _c386 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c385};
#define c386 (TO_SPTR_C(P_WHNF, (sptr_t)&_c386))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 386],387) */
static const struct sCJhc_Prim_Prim_$x3a _c387 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c386};
#define c387 (TO_SPTR_C(P_WHNF, (sptr_t)&_c387))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 387],388) */
static const struct sCJhc_Prim_Prim_$x3a _c388 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c387};
#define c388 (TO_SPTR_C(P_WHNF, (sptr_t)&_c388))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 388],389) */
static const struct sCJhc_Prim_Prim_$x3a _c389 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c388};
#define c389 (TO_SPTR_C(P_WHNF, (sptr_t)&_c389))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 389],390) */
static const struct sCJhc_Prim_Prim_$x3a _c390 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c389};
#define c390 (TO_SPTR_C(P_WHNF, (sptr_t)&_c390))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 390],391) */
static const struct sCJhc_Prim_Prim_$x3a _c391 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c390};
#define c391 (TO_SPTR_C(P_WHNF, (sptr_t)&_c391))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 391],392) */
static const struct sCJhc_Prim_Prim_$x3a _c392 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c391};
#define c392 (TO_SPTR_C(P_WHNF, (sptr_t)&_c392))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 392],393) */
static const struct sCJhc_Prim_Prim_$x3a _c393 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c392};
#define c393 (TO_SPTR_C(P_WHNF, (sptr_t)&_c393))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 393],394) */
static const struct sCJhc_Prim_Prim_$x3a _c394 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c393};
#define c394 (TO_SPTR_C(P_WHNF, (sptr_t)&_c394))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 394],395) */
static const struct sCJhc_Prim_Prim_$x3a _c395 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c394};
#define c395 (TO_SPTR_C(P_WHNF, (sptr_t)&_c395))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 395],396) */
static const struct sCJhc_Prim_Prim_$x3a _c396 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c395};
#define c396 (TO_SPTR_C(P_WHNF, (sptr_t)&_c396))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 396],397) */
static const struct sCJhc_Prim_Prim_$x3a _c397 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c396};
#define c397 (TO_SPTR_C(P_WHNF, (sptr_t)&_c397))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 397],398) */
static const struct sCJhc_Prim_Prim_$x3a _c398 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c397};
#define c398 (TO_SPTR_C(P_WHNF, (sptr_t)&_c398))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 398],399) */
static const struct sCJhc_Prim_Prim_$x3a _c399 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c398};
#define c399 (TO_SPTR_C(P_WHNF, (sptr_t)&_c399))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 399],400) */
static const struct sCJhc_Prim_Prim_$x3a _c400 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c399};
#define c400 (TO_SPTR_C(P_WHNF, (sptr_t)&_c400))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 400],401) */
static const struct sCJhc_Prim_Prim_$x3a _c401 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c400};
#define c401 (TO_SPTR_C(P_WHNF, (sptr_t)&_c401))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 401],402) */
static const struct sCJhc_Prim_Prim_$x3a _c402 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c401};
#define c402 (TO_SPTR_C(P_WHNF, (sptr_t)&_c402))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 2],407) */
static const struct sCJhc_Prim_Prim_$x3a _c407 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c2};
#define c407 (TO_SPTR_C(P_WHNF, (sptr_t)&_c407))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 407],408) */
static const struct sCJhc_Prim_Prim_$x3a _c408 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c407};
#define c408 (TO_SPTR_C(P_WHNF, (sptr_t)&_c408))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 408],409) */
static const struct sCJhc_Prim_Prim_$x3a _c409 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c408};
#define c409 (TO_SPTR_C(P_WHNF, (sptr_t)&_c409))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 409],410) */
static const struct sCJhc_Prim_Prim_$x3a _c410 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c409};
#define c410 (TO_SPTR_C(P_WHNF, (sptr_t)&_c410))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 410],411) */
static const struct sCJhc_Prim_Prim_$x3a _c411 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c410};
#define c411 (TO_SPTR_C(P_WHNF, (sptr_t)&_c411))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 411],412) */
static const struct sCJhc_Prim_Prim_$x3a _c412 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c411};
#define c412 (TO_SPTR_C(P_WHNF, (sptr_t)&_c412))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 412],413) */
static const struct sCJhc_Prim_Prim_$x3a _c413 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c412};
#define c413 (TO_SPTR_C(P_WHNF, (sptr_t)&_c413))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 413],414) */
static const struct sCJhc_Prim_Prim_$x3a _c414 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c413};
#define c414 (TO_SPTR_C(P_WHNF, (sptr_t)&_c414))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 414],415) */
static const struct sCJhc_Prim_Prim_$x3a _c415 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c414};
#define c415 (TO_SPTR_C(P_WHNF, (sptr_t)&_c415))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 415],416) */
static const struct sCJhc_Prim_Prim_$x3a _c416 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c415};
#define c416 (TO_SPTR_C(P_WHNF, (sptr_t)&_c416))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 81),Right 416],417) */
static const struct sCJhc_Prim_Prim_$x3a _c417 = {.a1 = (sptr_t)RAW_SET_UF('Q'), .a2 = c416};
#define c417 (TO_SPTR_C(P_WHNF, (sptr_t)&_c417))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 82),Right 417],418) */
static const struct sCJhc_Prim_Prim_$x3a _c418 = {.a1 = (sptr_t)RAW_SET_UF('R'), .a2 = c417};
#define c418 (TO_SPTR_C(P_WHNF, (sptr_t)&_c418))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 73),Right 418],419) */
static const struct sCJhc_Prim_Prim_$x3a _c419 = {.a1 = (sptr_t)RAW_SET_UF('I'), .a2 = c418};
#define c419 (TO_SPTR_C(P_WHNF, (sptr_t)&_c419))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 419],420) */
static const struct sCJhc_Prim_Prim_$x3a _c420 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c419};
#define c420 (TO_SPTR_C(P_WHNF, (sptr_t)&_c420))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 420],421) */
static const struct sCJhc_Prim_Prim_$x3a _c421 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c420};
#define c421 (TO_SPTR_C(P_WHNF, (sptr_t)&_c421))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 421],422) */
static const struct sCJhc_Prim_Prim_$x3a _c422 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c421};
#define c422 (TO_SPTR_C(P_WHNF, (sptr_t)&_c422))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 422],423) */
static const struct sCJhc_Prim_Prim_$x3a _c423 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c422};
#define c423 (TO_SPTR_C(P_WHNF, (sptr_t)&_c423))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 119),Right 423],424) */
static const struct sCJhc_Prim_Prim_$x3a _c424 = {.a1 = (sptr_t)RAW_SET_UF('w'), .a2 = c423};
#define c424 (TO_SPTR_C(P_WHNF, (sptr_t)&_c424))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 424],425) */
static const struct sCJhc_Prim_Prim_$x3a _c425 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c424};
#define c425 (TO_SPTR_C(P_WHNF, (sptr_t)&_c425))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 41),Right 425],426) */
static const struct sCJhc_Prim_Prim_$x3a _c426 = {.a1 = (sptr_t)RAW_SET_UF(')'), .a2 = c425};
#define c426 (TO_SPTR_C(P_WHNF, (sptr_t)&_c426))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 40),Right 426],427) */
static const struct sCJhc_Prim_Prim_$x3a _c427 = {.a1 = (sptr_t)RAW_SET_UF('('), .a2 = c426};
#define c427 (TO_SPTR_C(P_WHNF, (sptr_t)&_c427))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 427],428) */
static const struct sCJhc_Prim_Prim_$x3a _c428 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c427};
#define c428 (TO_SPTR_C(P_WHNF, (sptr_t)&_c428))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 428],429) */
static const struct sCJhc_Prim_Prim_$x3a _c429 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c428};
#define c429 (TO_SPTR_C(P_WHNF, (sptr_t)&_c429))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 429],430) */
static const struct sCJhc_Prim_Prim_$x3a _c430 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c429};
#define c430 (TO_SPTR_C(P_WHNF, (sptr_t)&_c430))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 430],431) */
static const struct sCJhc_Prim_Prim_$x3a _c431 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c430};
#define c431 (TO_SPTR_C(P_WHNF, (sptr_t)&_c431))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 431],432) */
static const struct sCJhc_Prim_Prim_$x3a _c432 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c431};
#define c432 (TO_SPTR_C(P_WHNF, (sptr_t)&_c432))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 104),Right 432],433) */
static const struct sCJhc_Prim_Prim_$x3a _c433 = {.a1 = (sptr_t)RAW_SET_UF('h'), .a2 = c432};
#define c433 (TO_SPTR_C(P_WHNF, (sptr_t)&_c433))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 433],434) */
static const struct sCJhc_Prim_Prim_$x3a _c434 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c433};
#define c434 (TO_SPTR_C(P_WHNF, (sptr_t)&_c434))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 434],435) */
static const struct sCJhc_Prim_Prim_$x3a _c435 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c434};
#define c435 (TO_SPTR_C(P_WHNF, (sptr_t)&_c435))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 435],436) */
static const struct sCJhc_Prim_Prim_$x3a _c436 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c435};
#define c436 (TO_SPTR_C(P_WHNF, (sptr_t)&_c436))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 436],437) */
static const struct sCJhc_Prim_Prim_$x3a _c437 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c436};
#define c437 (TO_SPTR_C(P_WHNF, (sptr_t)&_c437))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 437],438) */
static const struct sCJhc_Prim_Prim_$x3a _c438 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c437};
#define c438 (TO_SPTR_C(P_WHNF, (sptr_t)&_c438))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 438],439) */
static const struct sCJhc_Prim_Prim_$x3a _c439 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c438};
#define c439 (TO_SPTR_C(P_WHNF, (sptr_t)&_c439))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 439],440) */
static const struct sCJhc_Prim_Prim_$x3a _c440 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c439};
#define c440 (TO_SPTR_C(P_WHNF, (sptr_t)&_c440))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 440],441) */
static const struct sCJhc_Prim_Prim_$x3a _c441 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c440};
#define c441 (TO_SPTR_C(P_WHNF, (sptr_t)&_c441))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 441],442) */
static const struct sCJhc_Prim_Prim_$x3a _c442 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c441};
#define c442 (TO_SPTR_C(P_WHNF, (sptr_t)&_c442))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 442],443) */
static const struct sCJhc_Prim_Prim_$x3a _c443 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c442};
#define c443 (TO_SPTR_C(P_WHNF, (sptr_t)&_c443))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 443],444) */
static const struct sCJhc_Prim_Prim_$x3a _c444 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c443};
#define c444 (TO_SPTR_C(P_WHNF, (sptr_t)&_c444))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 32),Right 444],445) */
static const struct sCJhc_Prim_Prim_$x3a _c445 = {.a1 = (sptr_t)RAW_SET_UF(' '), .a2 = c444};
#define c445 (TO_SPTR_C(P_WHNF, (sptr_t)&_c445))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 314],315) */
static const struct sCJhc_Prim_Prim_$x3a _c315 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c314};
#define c315 (TO_SPTR_C(P_WHNF, (sptr_t)&_c315))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 315],316) */
static const struct sCJhc_Prim_Prim_$x3a _c316 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c315};
#define c316 (TO_SPTR_C(P_WHNF, (sptr_t)&_c316))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 316],317) */
static const struct sCJhc_Prim_Prim_$x3a _c317 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c316};
#define c317 (TO_SPTR_C(P_WHNF, (sptr_t)&_c317))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 317],318) */
static const struct sCJhc_Prim_Prim_$x3a _c318 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c317};
#define c318 (TO_SPTR_C(P_WHNF, (sptr_t)&_c318))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 318],319) */
static const struct sCJhc_Prim_Prim_$x3a _c319 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c318};
#define c319 (TO_SPTR_C(P_WHNF, (sptr_t)&_c319))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 319],320) */
static const struct sCJhc_Prim_Prim_$x3a _c320 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c319};
#define c320 (TO_SPTR_C(P_WHNF, (sptr_t)&_c320))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 320],321) */
static const struct sCJhc_Prim_Prim_$x3a _c321 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c320};
#define c321 (TO_SPTR_C(P_WHNF, (sptr_t)&_c321))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 321],322) */
static const struct sCJhc_Prim_Prim_$x3a _c322 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c321};
#define c322 (TO_SPTR_C(P_WHNF, (sptr_t)&_c322))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 322],323) */
static const struct sCJhc_Prim_Prim_$x3a _c323 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c322};
#define c323 (TO_SPTR_C(P_WHNF, (sptr_t)&_c323))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 323],324) */
static const struct sCJhc_Prim_Prim_$x3a _c324 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c323};
#define c324 (TO_SPTR_C(P_WHNF, (sptr_t)&_c324))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 324],325) */
static const struct sCJhc_Prim_Prim_$x3a _c325 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c324};
#define c325 (TO_SPTR_C(P_WHNF, (sptr_t)&_c325))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 325],326) */
static const struct sCJhc_Prim_Prim_$x3a _c326 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c325};
#define c326 (TO_SPTR_C(P_WHNF, (sptr_t)&_c326))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 326],327) */
static const struct sCJhc_Prim_Prim_$x3a _c327 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c326};
#define c327 (TO_SPTR_C(P_WHNF, (sptr_t)&_c327))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 327],328) */
static const struct sCJhc_Prim_Prim_$x3a _c328 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c327};
#define c328 (TO_SPTR_C(P_WHNF, (sptr_t)&_c328))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 328],329) */
static const struct sCJhc_Prim_Prim_$x3a _c329 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c328};
#define c329 (TO_SPTR_C(P_WHNF, (sptr_t)&_c329))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 329],330) */
static const struct sCJhc_Prim_Prim_$x3a _c330 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c329};
#define c330 (TO_SPTR_C(P_WHNF, (sptr_t)&_c330))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 330],331) */
static const struct sCJhc_Prim_Prim_$x3a _c331 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c330};
#define c331 (TO_SPTR_C(P_WHNF, (sptr_t)&_c331))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 331],332) */
static const struct sCJhc_Prim_Prim_$x3a _c332 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c331};
#define c332 (TO_SPTR_C(P_WHNF, (sptr_t)&_c332))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 42),Right 332],333) */
static const struct sCJhc_Prim_Prim_$x3a _c333 = {.a1 = (sptr_t)RAW_SET_UF('*'), .a2 = c332};
#define c333 (TO_SPTR_C(P_WHNF, (sptr_t)&_c333))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Left &("CJhc.Prim.Prim.[]")],334) */
static const struct sCJhc_Prim_Prim_$x3a _c334 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c334 (TO_SPTR_C(P_WHNF, (sptr_t)&_c334))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 334],335) */
static const struct sCJhc_Prim_Prim_$x3a _c335 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c334};
#define c335 (TO_SPTR_C(P_WHNF, (sptr_t)&_c335))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 45),Right 335],336) */
static const struct sCJhc_Prim_Prim_$x3a _c336 = {.a1 = (sptr_t)RAW_SET_UF('-'), .a2 = c335};
#define c336 (TO_SPTR_C(P_WHNF, (sptr_t)&_c336))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Left &("CJhc.Prim.Prim.[]")],29) */
static const struct sCJhc_Prim_Prim_$x3a _c29 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c29 (TO_SPTR_C(P_WHNF, (sptr_t)&_c29))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 29],30) */
static const struct sCJhc_Prim_Prim_$x3a _c30 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c29};
#define c30 (TO_SPTR_C(P_WHNF, (sptr_t)&_c30))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 30],31) */
static const struct sCJhc_Prim_Prim_$x3a _c31 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c30};
#define c31 (TO_SPTR_C(P_WHNF, (sptr_t)&_c31))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 31],32) */
static const struct sCJhc_Prim_Prim_$x3a _c32 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c31};
#define c32 (TO_SPTR_C(P_WHNF, (sptr_t)&_c32))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 32],33) */
static const struct sCJhc_Prim_Prim_$x3a _c33 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c32};
#define c33 (TO_SPTR_C(P_WHNF, (sptr_t)&_c33))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 33],34) */
static const struct sCJhc_Prim_Prim_$x3a _c34 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c33};
#define c34 (TO_SPTR_C(P_WHNF, (sptr_t)&_c34))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 34],35) */
static const struct sCJhc_Prim_Prim_$x3a _c35 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c34};
#define c35 (TO_SPTR_C(P_WHNF, (sptr_t)&_c35))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 47),Right 35],36) */
static const struct sCJhc_Prim_Prim_$x3a _c36 = {.a1 = (sptr_t)RAW_SET_UF('/'), .a2 = c35};
#define c36 (TO_SPTR_C(P_WHNF, (sptr_t)&_c36))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 48),Left &("CJhc.Prim.Prim.[]")],278) */
static const struct sCJhc_Prim_Prim_$x3a _c278 = {.a1 = (sptr_t)RAW_SET_UF('0'), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c278 (TO_SPTR_C(P_WHNF, (sptr_t)&_c278))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 47),Right 278],279) */
static const struct sCJhc_Prim_Prim_$x3a _c279 = {.a1 = (sptr_t)RAW_SET_UF('/'), .a2 = c278};
#define c279 (TO_SPTR_C(P_WHNF, (sptr_t)&_c279))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 279],280) */
static const struct sCJhc_Prim_Prim_$x3a _c280 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c279};
#define c280 (TO_SPTR_C(P_WHNF, (sptr_t)&_c280))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 280],281) */
static const struct sCJhc_Prim_Prim_$x3a _c281 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c280};
#define c281 (TO_SPTR_C(P_WHNF, (sptr_t)&_c281))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 118),Right 281],282) */
static const struct sCJhc_Prim_Prim_$x3a _c282 = {.a1 = (sptr_t)RAW_SET_UF('v'), .a2 = c281};
#define c282 (TO_SPTR_C(P_WHNF, (sptr_t)&_c282))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 47),Right 282],283) */
static const struct sCJhc_Prim_Prim_$x3a _c283 = {.a1 = (sptr_t)RAW_SET_UF('/'), .a2 = c282};
#define c283 (TO_SPTR_C(P_WHNF, (sptr_t)&_c283))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 336],337) */
static const struct sCJhc_Prim_Prim_$x3a _c337 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c336};
#define c337 (TO_SPTR_C(P_WHNF, (sptr_t)&_c337))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 337],338) */
static const struct sCJhc_Prim_Prim_$x3a _c338 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c337};
#define c338 (TO_SPTR_C(P_WHNF, (sptr_t)&_c338))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 338],339) */
static const struct sCJhc_Prim_Prim_$x3a _c339 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c338};
#define c339 (TO_SPTR_C(P_WHNF, (sptr_t)&_c339))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 107),Right 339],340) */
static const struct sCJhc_Prim_Prim_$x3a _c340 = {.a1 = (sptr_t)RAW_SET_UF('k'), .a2 = c339};
#define c340 (TO_SPTR_C(P_WHNF, (sptr_t)&_c340))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 340],341) */
static const struct sCJhc_Prim_Prim_$x3a _c341 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c340};
#define c341 (TO_SPTR_C(P_WHNF, (sptr_t)&_c341))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 341],342) */
static const struct sCJhc_Prim_Prim_$x3a _c342 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c341};
#define c342 (TO_SPTR_C(P_WHNF, (sptr_t)&_c342))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 342],343) */
static const struct sCJhc_Prim_Prim_$x3a _c343 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c342};
#define c343 (TO_SPTR_C(P_WHNF, (sptr_t)&_c343))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 47),Right 343],344) */
static const struct sCJhc_Prim_Prim_$x3a _c344 = {.a1 = (sptr_t)RAW_SET_UF('/'), .a2 = c343};
#define c344 (TO_SPTR_C(P_WHNF, (sptr_t)&_c344))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 58),Right 27],28) */
static const struct sCJhc_Prim_Prim_$x3a _c28 = {.a1 = (sptr_t)RAW_SET_UF(':'), .a2 = c27};
#define c28 (TO_SPTR_C(P_WHNF, (sptr_t)&_c28))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 58),Right 137],138) */
static const struct sCJhc_Prim_Prim_$x3a _c138 = {.a1 = (sptr_t)RAW_SET_UF(':'), .a2 = c137};
#define c138 (TO_SPTR_C(P_WHNF, (sptr_t)&_c138))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 71),Right 138],139) */
static const struct sCJhc_Prim_Prim_$x3a _c139 = {.a1 = (sptr_t)RAW_SET_UF('G'), .a2 = c138};
#define c139 (TO_SPTR_C(P_WHNF, (sptr_t)&_c139))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 85),Right 139],140) */
static const struct sCJhc_Prim_Prim_$x3a _c140 = {.a1 = (sptr_t)RAW_SET_UF('U'), .a2 = c139};
#define c140 (TO_SPTR_C(P_WHNF, (sptr_t)&_c140))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 66),Right 140],141) */
static const struct sCJhc_Prim_Prim_$x3a _c141 = {.a1 = (sptr_t)RAW_SET_UF('B'), .a2 = c140};
#define c141 (TO_SPTR_C(P_WHNF, (sptr_t)&_c141))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 78),Right 74],75) */
static const struct sCJhc_Prim_Prim_$x3a _c75 = {.a1 = (sptr_t)RAW_SET_UF('N'), .a2 = c74};
#define c75 (TO_SPTR_C(P_WHNF, (sptr_t)&_c75))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 69),Right 75],76) */
static const struct sCJhc_Prim_Prim_$x3a _c76 = {.a1 = (sptr_t)RAW_SET_UF('E'), .a2 = c75};
#define c76 (TO_SPTR_C(P_WHNF, (sptr_t)&_c76))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 103),Right 153],154) */
static const struct sCJhc_Prim_Prim_$x3a _c154 = {.a1 = (sptr_t)RAW_SET_UF('g'), .a2 = c153};
#define c154 (TO_SPTR_C(P_WHNF, (sptr_t)&_c154))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 154],155) */
static const struct sCJhc_Prim_Prim_$x3a _c155 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c154};
#define c155 (TO_SPTR_C(P_WHNF, (sptr_t)&_c155))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 155],156) */
static const struct sCJhc_Prim_Prim_$x3a _c156 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c155};
#define c156 (TO_SPTR_C(P_WHNF, (sptr_t)&_c156))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 156],157) */
static const struct sCJhc_Prim_Prim_$x3a _c157 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c156};
#define c157 (TO_SPTR_C(P_WHNF, (sptr_t)&_c157))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 157],158) */
static const struct sCJhc_Prim_Prim_$x3a _c158 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c157};
#define c158 (TO_SPTR_C(P_WHNF, (sptr_t)&_c158))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 158],159) */
static const struct sCJhc_Prim_Prim_$x3a _c159 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c158};
#define c159 (TO_SPTR_C(P_WHNF, (sptr_t)&_c159))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 159],160) */
static const struct sCJhc_Prim_Prim_$x3a _c160 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c159};
#define c160 (TO_SPTR_C(P_WHNF, (sptr_t)&_c160))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 160],161) */
static const struct sCJhc_Prim_Prim_$x3a _c161 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c160};
#define c161 (TO_SPTR_C(P_WHNF, (sptr_t)&_c161))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 161],162) */
static const struct sCJhc_Prim_Prim_$x3a _c162 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c161};
#define c162 (TO_SPTR_C(P_WHNF, (sptr_t)&_c162))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 162],163) */
static const struct sCJhc_Prim_Prim_$x3a _c163 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c162};
#define c163 (TO_SPTR_C(P_WHNF, (sptr_t)&_c163))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 163],164) */
static const struct sCJhc_Prim_Prim_$x3a _c164 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c163};
#define c164 (TO_SPTR_C(P_WHNF, (sptr_t)&_c164))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 73),Right 164],165) */
static const struct sCJhc_Prim_Prim_$x3a _c165 = {.a1 = (sptr_t)RAW_SET_UF('I'), .a2 = c164};
#define c165 (TO_SPTR_C(P_WHNF, (sptr_t)&_c165))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 103),Right 184],185) */
static const struct sCJhc_Prim_Prim_$x3a _c185 = {.a1 = (sptr_t)RAW_SET_UF('g'), .a2 = c184};
#define c185 (TO_SPTR_C(P_WHNF, (sptr_t)&_c185))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 185],186) */
static const struct sCJhc_Prim_Prim_$x3a _c186 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c185};
#define c186 (TO_SPTR_C(P_WHNF, (sptr_t)&_c186))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 186],187) */
static const struct sCJhc_Prim_Prim_$x3a _c187 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c186};
#define c187 (TO_SPTR_C(P_WHNF, (sptr_t)&_c187))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 187],188) */
static const struct sCJhc_Prim_Prim_$x3a _c188 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c187};
#define c188 (TO_SPTR_C(P_WHNF, (sptr_t)&_c188))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 188],189) */
static const struct sCJhc_Prim_Prim_$x3a _c189 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c188};
#define c189 (TO_SPTR_C(P_WHNF, (sptr_t)&_c189))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 189],190) */
static const struct sCJhc_Prim_Prim_$x3a _c190 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c189};
#define c190 (TO_SPTR_C(P_WHNF, (sptr_t)&_c190))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 190],191) */
static const struct sCJhc_Prim_Prim_$x3a _c191 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c190};
#define c191 (TO_SPTR_C(P_WHNF, (sptr_t)&_c191))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 191],192) */
static const struct sCJhc_Prim_Prim_$x3a _c192 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c191};
#define c192 (TO_SPTR_C(P_WHNF, (sptr_t)&_c192))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 192],193) */
static const struct sCJhc_Prim_Prim_$x3a _c193 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c192};
#define c193 (TO_SPTR_C(P_WHNF, (sptr_t)&_c193))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 193],194) */
static const struct sCJhc_Prim_Prim_$x3a _c194 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c193};
#define c194 (TO_SPTR_C(P_WHNF, (sptr_t)&_c194))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 194],195) */
static const struct sCJhc_Prim_Prim_$x3a _c195 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c194};
#define c195 (TO_SPTR_C(P_WHNF, (sptr_t)&_c195))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 73),Right 195],196) */
static const struct sCJhc_Prim_Prim_$x3a _c196 = {.a1 = (sptr_t)RAW_SET_UF('I'), .a2 = c195};
#define c196 (TO_SPTR_C(P_WHNF, (sptr_t)&_c196))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 103),Right 263],264) */
static const struct sCJhc_Prim_Prim_$x3a _c264 = {.a1 = (sptr_t)RAW_SET_UF('g'), .a2 = c263};
#define c264 (TO_SPTR_C(P_WHNF, (sptr_t)&_c264))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 264],265) */
static const struct sCJhc_Prim_Prim_$x3a _c265 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c264};
#define c265 (TO_SPTR_C(P_WHNF, (sptr_t)&_c265))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 265],266) */
static const struct sCJhc_Prim_Prim_$x3a _c266 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c265};
#define c266 (TO_SPTR_C(P_WHNF, (sptr_t)&_c266))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 266],267) */
static const struct sCJhc_Prim_Prim_$x3a _c267 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c266};
#define c267 (TO_SPTR_C(P_WHNF, (sptr_t)&_c267))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 267],268) */
static const struct sCJhc_Prim_Prim_$x3a _c268 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c267};
#define c268 (TO_SPTR_C(P_WHNF, (sptr_t)&_c268))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 268],269) */
static const struct sCJhc_Prim_Prim_$x3a _c269 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c268};
#define c269 (TO_SPTR_C(P_WHNF, (sptr_t)&_c269))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 269],270) */
static const struct sCJhc_Prim_Prim_$x3a _c270 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c269};
#define c270 (TO_SPTR_C(P_WHNF, (sptr_t)&_c270))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 270],271) */
static const struct sCJhc_Prim_Prim_$x3a _c271 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c270};
#define c271 (TO_SPTR_C(P_WHNF, (sptr_t)&_c271))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 271],272) */
static const struct sCJhc_Prim_Prim_$x3a _c272 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c271};
#define c272 (TO_SPTR_C(P_WHNF, (sptr_t)&_c272))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 272],273) */
static const struct sCJhc_Prim_Prim_$x3a _c273 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c272};
#define c273 (TO_SPTR_C(P_WHNF, (sptr_t)&_c273))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 273],274) */
static const struct sCJhc_Prim_Prim_$x3a _c274 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c273};
#define c274 (TO_SPTR_C(P_WHNF, (sptr_t)&_c274))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 73),Right 274],275) */
static const struct sCJhc_Prim_Prim_$x3a _c275 = {.a1 = (sptr_t)RAW_SET_UF('I'), .a2 = c274};
#define c275 (TO_SPTR_C(P_WHNF, (sptr_t)&_c275))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 30],276) */
static const struct sCJhc_Prim_Prim_$x3a _c276 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c30};
#define c276 (TO_SPTR_C(P_WHNF, (sptr_t)&_c276))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 73),Right 276],277) */
static const struct sCJhc_Prim_Prim_$x3a _c277 = {.a1 = (sptr_t)RAW_SET_UF('I'), .a2 = c276};
#define c277 (TO_SPTR_C(P_WHNF, (sptr_t)&_c277))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 402],403) */
static const struct sCJhc_Prim_Prim_$x3a _c403 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c402};
#define c403 (TO_SPTR_C(P_WHNF, (sptr_t)&_c403))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 403],404) */
static const struct sCJhc_Prim_Prim_$x3a _c404 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c403};
#define c404 (TO_SPTR_C(P_WHNF, (sptr_t)&_c404))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 404],405) */
static const struct sCJhc_Prim_Prim_$x3a _c405 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c404};
#define c405 (TO_SPTR_C(P_WHNF, (sptr_t)&_c405))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 77),Right 405],406) */
static const struct sCJhc_Prim_Prim_$x3a _c406 = {.a1 = (sptr_t)RAW_SET_UF('M'), .a2 = c405};
#define c406 (TO_SPTR_C(P_WHNF, (sptr_t)&_c406))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 445],446) */
static const struct sCJhc_Prim_Prim_$x3a _c446 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c445};
#define c446 (TO_SPTR_C(P_WHNF, (sptr_t)&_c446))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 446],447) */
static const struct sCJhc_Prim_Prim_$x3a _c447 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c446};
#define c447 (TO_SPTR_C(P_WHNF, (sptr_t)&_c447))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 447],448) */
static const struct sCJhc_Prim_Prim_$x3a _c448 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c447};
#define c448 (TO_SPTR_C(P_WHNF, (sptr_t)&_c448))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 77),Right 448],449) */
static const struct sCJhc_Prim_Prim_$x3a _c449 = {.a1 = (sptr_t)RAW_SET_UF('M'), .a2 = c448};
#define c449 (TO_SPTR_C(P_WHNF, (sptr_t)&_c449))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 88),Right 76],77) */
static const struct sCJhc_Prim_Prim_$x3a _c77 = {.a1 = (sptr_t)RAW_SET_UF('X'), .a2 = c76};
#define c77 (TO_SPTR_C(P_WHNF, (sptr_t)&_c77))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 204],205) */
static const struct sCJhc_Prim_Prim_$x3a _c205 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c204};
#define c205 (TO_SPTR_C(P_WHNF, (sptr_t)&_c205))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 205],206) */
static const struct sCJhc_Prim_Prim_$x3a _c206 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c205};
#define c206 (TO_SPTR_C(P_WHNF, (sptr_t)&_c206))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 206],207) */
static const struct sCJhc_Prim_Prim_$x3a _c207 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c206};
#define c207 (TO_SPTR_C(P_WHNF, (sptr_t)&_c207))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 207],208) */
static const struct sCJhc_Prim_Prim_$x3a _c208 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c207};
#define c208 (TO_SPTR_C(P_WHNF, (sptr_t)&_c208))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 208],209) */
static const struct sCJhc_Prim_Prim_$x3a _c209 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c208};
#define c209 (TO_SPTR_C(P_WHNF, (sptr_t)&_c209))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 120),Right 209],210) */
static const struct sCJhc_Prim_Prim_$x3a _c210 = {.a1 = (sptr_t)RAW_SET_UF('x'), .a2 = c209};
#define c210 (TO_SPTR_C(P_WHNF, (sptr_t)&_c210))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 95),Right 210],211) */
static const struct sCJhc_Prim_Prim_$x3a _c211 = {.a1 = (sptr_t)RAW_SET_UF('_'), .a2 = c210};
#define c211 (TO_SPTR_C(P_WHNF, (sptr_t)&_c211))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 356],357) */
static const struct sCJhc_Prim_Prim_$x3a _c357 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c356};
#define c357 (TO_SPTR_C(P_WHNF, (sptr_t)&_c357))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 357],358) */
static const struct sCJhc_Prim_Prim_$x3a _c358 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c357};
#define c358 (TO_SPTR_C(P_WHNF, (sptr_t)&_c358))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 358],359) */
static const struct sCJhc_Prim_Prim_$x3a _c359 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c358};
#define c359 (TO_SPTR_C(P_WHNF, (sptr_t)&_c359))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 359],360) */
static const struct sCJhc_Prim_Prim_$x3a _c360 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c359};
#define c360 (TO_SPTR_C(P_WHNF, (sptr_t)&_c360))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 360],361) */
static const struct sCJhc_Prim_Prim_$x3a _c361 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c360};
#define c361 (TO_SPTR_C(P_WHNF, (sptr_t)&_c361))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 95),Right 361],362) */
static const struct sCJhc_Prim_Prim_$x3a _c362 = {.a1 = (sptr_t)RAW_SET_UF('_'), .a2 = c361};
#define c362 (TO_SPTR_C(P_WHNF, (sptr_t)&_c362))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Left &("CJhc.Prim.Prim.[]")],8) */
static const struct sCJhc_Prim_Prim_$x3a _c8 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE)};
#define c8 (TO_SPTR_C(P_WHNF, (sptr_t)&_c8))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 8],9) */
static const struct sCJhc_Prim_Prim_$x3a _c9 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c8};
#define c9 (TO_SPTR_C(P_WHNF, (sptr_t)&_c9))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 9],10) */
static const struct sCJhc_Prim_Prim_$x3a _c10 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c9};
#define c10 (TO_SPTR_C(P_WHNF, (sptr_t)&_c10))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 108),Right 10],11) */
static const struct sCJhc_Prim_Prim_$x3a _c11 = {.a1 = (sptr_t)RAW_SET_UF('l'), .a2 = c10};
#define c11 (TO_SPTR_C(P_WHNF, (sptr_t)&_c11))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 11],12) */
static const struct sCJhc_Prim_Prim_$x3a _c12 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c11};
#define c12 (TO_SPTR_C(P_WHNF, (sptr_t)&_c12))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 362],363) */
static const struct sCJhc_Prim_Prim_$x3a _c363 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c362};
#define c363 (TO_SPTR_C(P_WHNF, (sptr_t)&_c363))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 97),Right 363],364) */
static const struct sCJhc_Prim_Prim_$x3a _c364 = {.a1 = (sptr_t)RAW_SET_UF('a'), .a2 = c363};
#define c364 (TO_SPTR_C(P_WHNF, (sptr_t)&_c364))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 218],219) */
static const struct sCJhc_Prim_Prim_$x3a _c219 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c218};
#define c219 (TO_SPTR_C(P_WHNF, (sptr_t)&_c219))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 219],220) */
static const struct sCJhc_Prim_Prim_$x3a _c220 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c219};
#define c220 (TO_SPTR_C(P_WHNF, (sptr_t)&_c220))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 220],221) */
static const struct sCJhc_Prim_Prim_$x3a _c221 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c220};
#define c221 (TO_SPTR_C(P_WHNF, (sptr_t)&_c221))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 247],248) */
static const struct sCJhc_Prim_Prim_$x3a _c248 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c247};
#define c248 (TO_SPTR_C(P_WHNF, (sptr_t)&_c248))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 117),Right 248],249) */
static const struct sCJhc_Prim_Prim_$x3a _c249 = {.a1 = (sptr_t)RAW_SET_UF('u'), .a2 = c248};
#define c249 (TO_SPTR_C(P_WHNF, (sptr_t)&_c249))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 98),Right 249],250) */
static const struct sCJhc_Prim_Prim_$x3a _c250 = {.a1 = (sptr_t)RAW_SET_UF('b'), .a2 = c249};
#define c250 (TO_SPTR_C(P_WHNF, (sptr_t)&_c250))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 36],37) */
static const struct sCJhc_Prim_Prim_$x3a _c37 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c36};
#define c37 (TO_SPTR_C(P_WHNF, (sptr_t)&_c37))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 37],38) */
static const struct sCJhc_Prim_Prim_$x3a _c38 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c37};
#define c38 (TO_SPTR_C(P_WHNF, (sptr_t)&_c38))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 283],284) */
static const struct sCJhc_Prim_Prim_$x3a _c284 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c283};
#define c284 (TO_SPTR_C(P_WHNF, (sptr_t)&_c284))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 99),Right 284],285) */
static const struct sCJhc_Prim_Prim_$x3a _c285 = {.a1 = (sptr_t)RAW_SET_UF('c'), .a2 = c284};
#define c285 (TO_SPTR_C(P_WHNF, (sptr_t)&_c285))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 38],39) */
static const struct sCJhc_Prim_Prim_$x3a _c39 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c38};
#define c39 (TO_SPTR_C(P_WHNF, (sptr_t)&_c39))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 118),Right 39],40) */
static const struct sCJhc_Prim_Prim_$x3a _c40 = {.a1 = (sptr_t)RAW_SET_UF('v'), .a2 = c39};
#define c40 (TO_SPTR_C(P_WHNF, (sptr_t)&_c40))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 40],41) */
static const struct sCJhc_Prim_Prim_$x3a _c41 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c40};
#define c41 (TO_SPTR_C(P_WHNF, (sptr_t)&_c41))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 41],42) */
static const struct sCJhc_Prim_Prim_$x3a _c42 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c41};
#define c42 (TO_SPTR_C(P_WHNF, (sptr_t)&_c42))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 166],167) */
static const struct sCJhc_Prim_Prim_$x3a _c167 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c166};
#define c167 (TO_SPTR_C(P_WHNF, (sptr_t)&_c167))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 167],168) */
static const struct sCJhc_Prim_Prim_$x3a _c168 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c167};
#define c168 (TO_SPTR_C(P_WHNF, (sptr_t)&_c168))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 168],169) */
static const struct sCJhc_Prim_Prim_$x3a _c169 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c168};
#define c169 (TO_SPTR_C(P_WHNF, (sptr_t)&_c169))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 285],286) */
static const struct sCJhc_Prim_Prim_$x3a _c286 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c285};
#define c286 (TO_SPTR_C(P_WHNF, (sptr_t)&_c286))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 118),Right 286],287) */
static const struct sCJhc_Prim_Prim_$x3a _c287 = {.a1 = (sptr_t)RAW_SET_UF('v'), .a2 = c286};
#define c287 (TO_SPTR_C(P_WHNF, (sptr_t)&_c287))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 287],288) */
static const struct sCJhc_Prim_Prim_$x3a _c288 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c287};
#define c288 (TO_SPTR_C(P_WHNF, (sptr_t)&_c288))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 100),Right 288],289) */
static const struct sCJhc_Prim_Prim_$x3a _c289 = {.a1 = (sptr_t)RAW_SET_UF('d'), .a2 = c288};
#define c289 (TO_SPTR_C(P_WHNF, (sptr_t)&_c289))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 114),Right 29],222) */
static const struct sCJhc_Prim_Prim_$x3a _c222 = {.a1 = (sptr_t)RAW_SET_UF('r'), .a2 = c29};
#define c222 (TO_SPTR_C(P_WHNF, (sptr_t)&_c222))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 111),Right 222],223) */
static const struct sCJhc_Prim_Prim_$x3a _c223 = {.a1 = (sptr_t)RAW_SET_UF('o'), .a2 = c222};
#define c223 (TO_SPTR_C(P_WHNF, (sptr_t)&_c223))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 223],224) */
static const struct sCJhc_Prim_Prim_$x3a _c224 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c223};
#define c224 (TO_SPTR_C(P_WHNF, (sptr_t)&_c224))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 115),Right 224],225) */
static const struct sCJhc_Prim_Prim_$x3a _c225 = {.a1 = (sptr_t)RAW_SET_UF('s'), .a2 = c224};
#define c225 (TO_SPTR_C(P_WHNF, (sptr_t)&_c225))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 225],226) */
static const struct sCJhc_Prim_Prim_$x3a _c226 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c225};
#define c226 (TO_SPTR_C(P_WHNF, (sptr_t)&_c226))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 226],227) */
static const struct sCJhc_Prim_Prim_$x3a _c227 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c226};
#define c227 (TO_SPTR_C(P_WHNF, (sptr_t)&_c227))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 250],251) */
static const struct sCJhc_Prim_Prim_$x3a _c251 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c250};
#define c251 (TO_SPTR_C(P_WHNF, (sptr_t)&_c251))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 101),Right 251],252) */
static const struct sCJhc_Prim_Prim_$x3a _c252 = {.a1 = (sptr_t)RAW_SET_UF('e'), .a2 = c251};
#define c252 (TO_SPTR_C(P_WHNF, (sptr_t)&_c252))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 4],5) */
static const struct sCJhc_Prim_Prim_$x3a _c5 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c4};
#define c5 (TO_SPTR_C(P_WHNF, (sptr_t)&_c5))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 102),Right 5],6) */
static const struct sCJhc_Prim_Prim_$x3a _c6 = {.a1 = (sptr_t)RAW_SET_UF('f'), .a2 = c5};
#define c6 (TO_SPTR_C(P_WHNF, (sptr_t)&_c6))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 364],365) */
static const struct sCJhc_Prim_Prim_$x3a _c365 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c364};
#define c365 (TO_SPTR_C(P_WHNF, (sptr_t)&_c365))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 365],366) */
static const struct sCJhc_Prim_Prim_$x3a _c366 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c365};
#define c366 (TO_SPTR_C(P_WHNF, (sptr_t)&_c366))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 366],367) */
static const struct sCJhc_Prim_Prim_$x3a _c367 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c366};
#define c367 (TO_SPTR_C(P_WHNF, (sptr_t)&_c367))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 103),Right 367],368) */
static const struct sCJhc_Prim_Prim_$x3a _c368 = {.a1 = (sptr_t)RAW_SET_UF('g'), .a2 = c367};
#define c368 (TO_SPTR_C(P_WHNF, (sptr_t)&_c368))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 116),Right 211],212) */
static const struct sCJhc_Prim_Prim_$x3a _c212 = {.a1 = (sptr_t)RAW_SET_UF('t'), .a2 = c211};
#define c212 (TO_SPTR_C(P_WHNF, (sptr_t)&_c212))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 212],213) */
static const struct sCJhc_Prim_Prim_$x3a _c213 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c212};
#define c213 (TO_SPTR_C(P_WHNF, (sptr_t)&_c213))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 110),Right 213],214) */
static const struct sCJhc_Prim_Prim_$x3a _c214 = {.a1 = (sptr_t)RAW_SET_UF('n'), .a2 = c213};
#define c214 (TO_SPTR_C(P_WHNF, (sptr_t)&_c214))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 105),Right 214],215) */
static const struct sCJhc_Prim_Prim_$x3a _c215 = {.a1 = (sptr_t)RAW_SET_UF('i'), .a2 = c214};
#define c215 (TO_SPTR_C(P_WHNF, (sptr_t)&_c215))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 6],7) */
static const struct sCJhc_Prim_Prim_$x3a _c7 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c6};
#define c7 (TO_SPTR_C(P_WHNF, (sptr_t)&_c7))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 109),Right 12],13) */
static const struct sCJhc_Prim_Prim_$x3a _c13 = {.a1 = (sptr_t)RAW_SET_UF('m'), .a2 = c12};
#define c13 (TO_SPTR_C(P_WHNF, (sptr_t)&_c13))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 120),Right 227],228) */
static const struct sCJhc_Prim_Prim_$x3a _c228 = {.a1 = (sptr_t)RAW_SET_UF('x'), .a2 = c227};
#define c228 (TO_SPTR_C(P_WHNF, (sptr_t)&_c228))
/* (HcNode CJhc.Prim.Prim.: [Left &("CJhc.Type.Basic.Char" 120),Right 252],253) */
static const struct sCJhc_Prim_Prim_$x3a _c253 = {.a1 = (sptr_t)RAW_SET_UF('x'), .a2 = c252};
#define c253 (TO_SPTR_C(P_WHNF, (sptr_t)&_c253))
/* (HcNode CJhc.Type.Ptr.Ptr [Left 0],78) */
static const struct sCJhc_Type_Ptr_Ptr _c78 = {.a1 = 0};
#define c78 (TO_SPTR_C(P_WHNF, (sptr_t)&_c78))
/* (HcNode CJhc.Type.Word.Int [Left 0],346) */
static const struct sCJhc_Type_Word_Int _c346 = {.a1 = 0};
#define c346 (TO_SPTR_C(P_WHNF, (sptr_t)&_c346))
/* (HcNode TJhc.Type.Ptr.Ptr [Left ("TJhc.Type.Word.Word64")],345) */
static const struct sTJhc_Type_Ptr_Ptr _c345 = {.what = (what_t)SET_RAW_TAG(TJhc_Type_Ptr_Ptr), .a1 = SET_RAW_TAG(TJhc_Type_Word_Word64)};
#define c345 (TO_SPTR_C(P_WHNF, (sptr_t)&_c345))
/* (HcNode CJhc.Type.Word.Word64 [Left 0],1) */
static const struct sCJhc_Type_Word_Word64 _c1 = {.a1 = 0};
#define c1 (TO_SPTR_C(P_WHNF, (sptr_t)&_c1))
const void * const nh_stuff[] = {
&_g88755245, &_g101600293, &_c1, &_c2, &_c3, &_c4, &_c5, &_c6,
&_c7, &_c8, &_c9, &_c10, &_c11, &_c12, &_c13, &_c14, &_c15, &_c16,
&_c17, &_c18, &_c19, &_c20, &_c21, &_c22, &_c23, &_c24, &_c25,
&_c26, &_c27, &_c28, &_c29, &_c30, &_c31, &_c32, &_c33, &_c34,
&_c35, &_c36, &_c37, &_c38, &_c39, &_c40, &_c41, &_c42, &_c43,
&_c44, &_c45, &_c46, &_c47, &_c48, &_c49, &_c50, &_c51, &_c52,
&_c53, &_c54, &_c55, &_c56, &_c57, &_c58, &_c59, &_c60, &_c61,
&_c62, &_c63, &_c64, &_c65, &_c66, &_c67, &_c68, &_c69, &_c70,
&_c71, &_c72, &_c73, &_c74, &_c75, &_c76, &_c77, &_c78, &_c79,
&_c80, &_c81, &_c82, &_c83, &_c84, &_c85, &_c86, &_c87, &_c88,
&_c89, &_c90, &_c91, &_c92, &_c93, &_c94, &_c95, &_c96, &_c97,
&_c98, &_c99, &_c100, &_c101, &_c102, &_c103, &_c104, &_c105,
&_c106, &_c107, &_c108, &_c109, &_c110, &_c111, &_c112, &_c113,
&_c114, &_c115, &_c116, &_c117, &_c118, &_c119, &_c120, &_c121,
&_c122, &_c123, &_c124, &_c125, &_c126, &_c127, &_c128, &_c129,
&_c130, &_c131, &_c132, &_c133, &_c134, &_c135, &_c136, &_c137,
&_c138, &_c139, &_c140, &_c141, &_c142, &_c143, &_c144, &_c145,
&_c146, &_c147, &_c148, &_c149, &_c150, &_c151, &_c152, &_c153,
&_c154, &_c155, &_c156, &_c157, &_c158, &_c159, &_c160, &_c161,
&_c162, &_c163, &_c164, &_c165, &_c166, &_c167, &_c168, &_c169,
&_c170, &_c171, &_c172, &_c173, &_c174, &_c175, &_c176, &_c177,
&_c178, &_c179, &_c180, &_c181, &_c182, &_c183, &_c184, &_c185,
&_c186, &_c187, &_c188, &_c189, &_c190, &_c191, &_c192, &_c193,
&_c194, &_c195, &_c196, &_c197, &_c198, &_c199, &_c200, &_c201,
&_c202, &_c203, &_c204, &_c205, &_c206, &_c207, &_c208, &_c209,
&_c210, &_c211, &_c212, &_c213, &_c214, &_c215, &_c216, &_c217,
&_c218, &_c219, &_c220, &_c221, &_c222, &_c223, &_c224, &_c225,
&_c226, &_c227, &_c228, &_c229, &_c230, &_c231, &_c232, &_c233,
&_c234, &_c235, &_c236, &_c237, &_c238, &_c239, &_c240, &_c241,
&_c242, &_c243, &_c244, &_c245, &_c246, &_c247, &_c248, &_c249,
&_c250, &_c251, &_c252, &_c253, &_c254, &_c255, &_c256, &_c257,
&_c258, &_c259, &_c260, &_c261, &_c262, &_c263, &_c264, &_c265,
&_c266, &_c267, &_c268, &_c269, &_c270, &_c271, &_c272, &_c273,
&_c274, &_c275, &_c276, &_c277, &_c278, &_c279, &_c280, &_c281,
&_c282, &_c283, &_c284, &_c285, &_c286, &_c287, &_c288, &_c289,
&_c290, &_c291, &_c292, &_c293, &_c294, &_c295, &_c296, &_c297,
&_c298, &_c299, &_c300, &_c301, &_c302, &_c303, &_c304, &_c305,
&_c306, &_c307, &_c308, &_c309, &_c310, &_c311, &_c312, &_c313,
&_c314, &_c315, &_c316, &_c317, &_c318, &_c319, &_c320, &_c321,
&_c322, &_c323, &_c324, &_c325, &_c326, &_c327, &_c328, &_c329,
&_c330, &_c331, &_c332, &_c333, &_c334, &_c335, &_c336, &_c337,
&_c338, &_c339, &_c340, &_c341, &_c342, &_c343, &_c344, &_c345,
&_c346, &_c347, &_c348, &_c349, &_c350, &_c351, &_c352, &_c353,
&_c354, &_c355, &_c356, &_c357, &_c358, &_c359, &_c360, &_c361,
&_c362, &_c363, &_c364, &_c365, &_c366, &_c367, &_c368, &_c369,
&_c370, &_c371, &_c372, &_c373, &_c374, &_c375, &_c376, &_c377,
&_c378, &_c379, &_c380, &_c381, &_c382, &_c383, &_c384, &_c385,
&_c386, &_c387, &_c388, &_c389, &_c390, &_c391, &_c392, &_c393,
&_c394, &_c395, &_c396, &_c397, &_c398, &_c399, &_c400, &_c401,
&_c402, &_c403, &_c404, &_c405, &_c406, &_c407, &_c408, &_c409,
&_c410, &_c411, &_c412, &_c413, &_c414, &_c415, &_c416, &_c417,
&_c418, &_c419, &_c420, &_c421, &_c422, &_c423, &_c424, &_c425,
&_c426, &_c427, &_c428, &_c429, &_c430, &_c431, &_c432, &_c433,
&_c434, &_c435, &_c436, &_c437, &_c438, &_c439, &_c440, &_c441,
&_c442, &_c443, &_c444, &_c445, &_c446, &_c447, &_c448, &_c449,
NULL
};
void
jhc_hs_init(gc_t gc,arena_t arena)
{
alloc_public_caches(arena,sizeof(struct s_caches_pub));
find_cache(&public_caches(arena)->cCJhc_Prim_Prim_$x3a,arena,TO_BLOCKS(sizeof(struct sCJhc_Prim_Prim_$x3a)),2);
find_cache(&public_caches(arena)->cCJhc_Type_Word_Int64,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Word_Int64)),0);
find_cache(&public_caches(arena)->cCJhc_Type_Ptr_Ptr,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Ptr_Ptr)),0);
find_cache(&public_caches(arena)->cCJhc_Type_Word_Word32,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Word_Word32)),0);
find_cache(&public_caches(arena)->cCJhc_Type_Word_Int,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Word_Int)),0);
find_cache(&public_caches(arena)->cFSched_schedule$d4,arena,TO_BLOCKS(sizeof(struct sFSched_schedule$d4)),2);
find_cache(&public_caches(arena)->cFSched_schedule$d3,arena,TO_BLOCKS(sizeof(struct sFSched_schedule$d3)),1);
find_cache(&public_caches(arena)->cFSched_schedule$d2,arena,TO_BLOCKS(sizeof(struct sFSched_schedule$d2)),2);
find_cache(&public_caches(arena)->cCJhc_Type_Basic_Right,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Basic_Right)),2);
find_cache(&public_caches(arena)->cCJhc_Type_Basic_Left,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Basic_Left)),2);
find_cache(&public_caches(arena)->cP2__Xenbus_thread$d2,arena,TO_BLOCKS(sizeof(struct sP2__Xenbus_thread$d2)),2);
find_cache(&public_caches(arena)->cFFE$__CCall_init__gnttab$d2,arena,TO_BLOCKS(sizeof(struct sFFE$__CCall_init__gnttab$d2)),1);
find_cache(&public_caches(arena)->cFJhc_Basics_$pp,arena,TO_BLOCKS(sizeof(struct sFJhc_Basics_$pp)),3);
find_cache(&public_caches(arena)->cFW$__fJhc_Inst_Show_showWord,arena,TO_BLOCKS(sizeof(struct sFW$__fJhc_Inst_Show_showWord)),2);
find_cache(&public_caches(arena)->cFFE$__CCall_init__gnttab$d3,arena,TO_BLOCKS(sizeof(struct sFFE$__CCall_init__gnttab$d3)),1);
find_cache(&public_caches(arena)->cFFE$__CCall_init__xenbus$d2,arena,TO_BLOCKS(sizeof(struct sFFE$__CCall_init__xenbus$d2)),1);
find_cache(&public_caches(arena)->cFFE$__CCall_init__xenbus$d3,arena,TO_BLOCKS(sizeof(struct sFFE$__CCall_init__xenbus$d3)),1);
find_cache(&public_caches(arena)->cFXenconsRing_xenconsRingInit$d2,arena,TO_BLOCKS(sizeof(struct sFXenconsRing_xenconsRingInit$d2)),1);
find_cache(&public_caches(arena)->cFR$__fJhc_Basics_$pp,arena,TO_BLOCKS(sizeof(struct sFR$__fJhc_Basics_$pp)),3);
find_cache(&public_caches(arena)->cFFE$__CCall_init__xenbus$d4,arena,TO_BLOCKS(sizeof(struct sFFE$__CCall_init__xenbus$d4)),1);
find_cache(&public_caches(arena)->cFXenbus_thread$d3,arena,TO_BLOCKS(sizeof(struct sFXenbus_thread$d3)),3);
find_cache(&public_caches(arena)->cFControl_Monad_filterM$d2,arena,TO_BLOCKS(sizeof(struct sFControl_Monad_filterM$d2)),4);
find_cache(&public_caches(arena)->cCJhc_Type_Word_Int32,arena,TO_BLOCKS(sizeof(struct sCJhc_Type_Word_Int32)),0);
find_cache(&public_caches(arena)->cP1__FE$__CCall_init__sched$d2,arena,TO_BLOCKS(sizeof(struct sP1__FE$__CCall_init__sched$d2)),2);
find_cache(&public_caches(arena)->cP1__Xenbus_thread$d2,arena,TO_BLOCKS(sizeof(struct sP1__Xenbus_thread$d2)),3);
find_cache(&public_caches(arena)->cP1__Util_rawPrintk,arena,TO_BLOCKS(sizeof(struct sP1__Util_rawPrintk)),2);
find_cache(&public_caches(arena)->cP1__Xenbus_xenbusReadInteger,arena,TO_BLOCKS(sizeof(struct sP1__Xenbus_xenbusReadInteger)),2);
}
static wptr_t A_STD A_FALIGNED
E__fControl_Monad_filterM$d2(gc_t gc,arena_t arena,struct sFControl_Monad_filterM$d2* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fControl_Monad_filterM$d2(gc,arena,arg->a1,arg->a2,arg->a3);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fFE$__CCall_init__gnttab$d2(gc_t gc,arena_t arena,struct sFFE$__CCall_init__gnttab$d2* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fFE$__CCall_init__gnttab$d2(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fFE$__CCall_init__gnttab$d3(gc_t gc,arena_t arena,struct sFFE$__CCall_init__gnttab$d3* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fFE$__CCall_init__gnttab$d3(gc,arena,arg->a1);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fFE$__CCall_init__xenbus$d2(gc_t gc,arena_t arena,struct sFFE$__CCall_init__xenbus$d2* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fFE$__CCall_init__xenbus$d2(gc,arena,arg->a1);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fFE$__CCall_init__xenbus$d3(gc_t gc,arena_t arena,struct sFFE$__CCall_init__xenbus$d3* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fFE$__CCall_init__xenbus$d3(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fFE$__CCall_init__xenbus$d4(gc_t gc,arena_t arena,struct sFFE$__CCall_init__xenbus$d4* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fFE$__CCall_init__xenbus$d4(gc,arena,arg->a1);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fFbfront_pageCount(gc_t gc,arena_t arena,struct sFFbfront_pageCount* arg)
{
wptr_t r;
r = fFbfront_pageCount(gc,arena);
update(arg,r);
gc_add_root(gc,arena,(sptr_t)r);
return r;
}
static wptr_t A_STD A_FALIGNED
E__fGnttab_nrGrantEntries(gc_t gc,arena_t arena,struct sFGnttab_nrGrantEntries* arg)
{
wptr_t r;
r = fGnttab_nrGrantEntries(gc,arena);
update(arg,r);
gc_add_root(gc,arena,(sptr_t)r);
return r;
}
static wptr_t A_STD A_FALIGNED
E__fJhc_Basics_$pp(gc_t gc,arena_t arena,struct sFJhc_Basics_$pp* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fJhc_Basics_$pp(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fR$__fJhc_Basics_$pp(gc_t gc,arena_t arena,struct sFR$__fJhc_Basics_$pp* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fR$__fJhc_Basics_$pp(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fSched_schedule$d2(gc_t gc,arena_t arena,struct sFSched_schedule$d2* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fSched_schedule$d2(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fSched_schedule$d3(gc_t gc,arena_t arena,struct sFSched_schedule$d3* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fSched_schedule$d3(gc,arena,arg->a1);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fSched_schedule$d4(gc_t gc,arena_t arena,struct sFSched_schedule$d4* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fSched_schedule$d4(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fW$__fJhc_Inst_Show_showWord(gc_t gc,arena_t arena,struct sFW$__fJhc_Inst_Show_showWord* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fW$__fJhc_Inst_Show_showWord(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fXenbus_thread$d3(gc_t gc,arena_t arena,struct sFXenbus_thread$d3* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fXenbus_thread$d3(gc,arena,arg->a1,arg->a2);
update(arg,r);
return r;
}
}
static wptr_t A_STD A_FALIGNED
E__fXenconsRing_xenconsRingInit$d2(gc_t gc,arena_t arena,struct sFXenconsRing_xenconsRingInit$d2* arg)
{
{ wptr_t r;
gc_frame0(gc,1,MKLAZY(arg));
r = fXenconsRing_xenconsRingInit$d2(gc,arena,arg->a1);
update(arg,r);
return r;
}
}
void
_amain(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
b__main(gc,arena);
jhc_alloc_fini(gc,arena);
}
HsPtr
_nit_fbfront(char* x87,uint64_t* x88,int32_t x89,int32_t x90,int32_t x91,int32_t x92,uint32_t x93)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
HsPtr x94 = ((HsPtr)fFE$__CCall___nit__fbfront(gc,arena,(uintptr_t)x87,(uintptr_t)x88,(uint32_t)x89,(uint32_t)x90,(uint32_t)x91,(uint32_t)x92,(uint32_t)x93));
jhc_alloc_fini(gc,arena);
return x94;
}
static void A_STD
b__main(gc_t gc,arena_t arena)
{
return ftheMain(gc,arena);
}
static wptr_t A_STD A_MALLOC
bapply__46029(gc_t gc,arena_t arena,wptr_t v1,sptr_t v2)
{
switch (FETCH_TAG(v1)) {
case P2__Util_rawPrintk:
{ { gc_frame0(gc,1,v2);
wptr_t x12 = s_alloc(gc,arena,public_caches(arena)->cP1__Util_rawPrintk);
SET_MEM_TAG((struct sP1__Util_rawPrintk*)x12,P1__Util_rawPrintk);
((struct sP1__Util_rawPrintk*)x12)->a1 = v2;
return x12;
}
}
break;
case P2__FE$__CCall_init__sched$d2:
{ { gc_frame0(gc,1,v2);
wptr_t x13 = s_alloc(gc,arena,public_caches(arena)->cP1__FE$__CCall_init__sched$d2);
SET_MEM_TAG((struct sP1__FE$__CCall_init__sched$d2*)x13,P1__FE$__CCall_init__sched$d2);
((struct sP1__FE$__CCall_init__sched$d2*)x13)->a1 = v2;
return x13;
}
}
break;
case P2__Xenbus_xenbusReadInteger:
{ { gc_frame0(gc,1,v2);
wptr_t x14 = s_alloc(gc,arena,public_caches(arena)->cP1__Xenbus_xenbusReadInteger);
SET_MEM_TAG((struct sP1__Xenbus_xenbusReadInteger*)x14,P1__Xenbus_xenbusReadInteger);
((struct sP1__Xenbus_xenbusReadInteger*)x14)->a1 = v2;
return x14;
}
}
break;
case P2__Xenbus_thread$d2:
{ sptr_t v3;
v3 = ((struct sP2__Xenbus_thread$d2*)v1)->a1;
{ gc_frame0(gc,2,v2,v3);
wptr_t x15 = s_alloc(gc,arena,public_caches(arena)->cP1__Xenbus_thread$d2);
SET_MEM_TAG((struct sP1__Xenbus_thread$d2*)x15,P1__Xenbus_thread$d2);
((struct sP1__Xenbus_thread$d2*)x15)->a1 = v3;
((struct sP1__Xenbus_thread$d2*)x15)->a2 = v2;
return x15;
}
}
break;
default: jhc_case_fell_off(__LINE__);
}
}
static sptr_t A_STD A_MALLOC
bapply__46030(gc_t gc,arena_t arena,wptr_t v5)
{
switch (FETCH_TAG(v5)) {
case P1__Xenbus_xenbusReadInteger:
{ sptr_t v8;
v8 = ((struct sP1__Xenbus_xenbusReadInteger*)v5)->a1;
return fXenbus_xenbusReadInteger(gc,arena,v8);
}
break;
case P1__Util_rawPrintk:
{ sptr_t v9;
v9 = ((struct sP1__Util_rawPrintk*)v5)->a1;
return fUtil_rawPrintk(gc,arena,v9);
}
break;
case P1__Xenbus_thread$d2:
{ sptr_t v10;
sptr_t v4;
v10 = ((struct sP1__Xenbus_thread$d2*)v5)->a1;
v4 = ((struct sP1__Xenbus_thread$d2*)v5)->a2;
return fXenbus_thread$d2(gc,arena,v10,v4);
}
break;
case P1__FE$__CCall_init__sched$d2:
{ sptr_t v12;
v12 = ((struct sP1__FE$__CCall_init__sched$d2*)v5)->a1;
return fFE$__CCall_init__sched$d2(gc,arena,v12);
}
break;
default: jhc_case_fell_off(__LINE__);
}
}
static sptr_t A_STD A_MALLOC
fControl_Monad_filterM(gc_t gc,arena_t arena,wptr_t v242443333,wptr_t v232373566)
{
sptr_t v232374575 = demote(v232373566);
return fR$__fControl_Monad_filterM(gc,arena,v232374575,v242443333);
}
static wptr_t A_STD A_MALLOC
fControl_Monad_filterM$d2(gc_t gc,arena_t arena,sptr_t v136306588,sptr_t v153480262,sptr_t v194635136)
{
{ uint16_t v42766586;
gc_frame0(gc,2,v136306588,v194635136);
wptr_t v100220 = eval(gc,arena,v153480262);
v42766586 = ((uint16_t)RAW_GET_UF(v100220));
if (0 == v42766586) {
return eval(gc,arena,v194635136);
} else {
/* 1 */
assert(1 == v42766586);
wptr_t x22 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x22)->a1 = v136306588;
((struct sCJhc_Prim_Prim_$x3a*)x22)->a2 = v194635136;
return x22;
}
}
}
static uintptr_t A_STD
fFE$__CCall___nit__fbfront(gc_t gc,arena_t arena,uintptr_t v120328970,uintptr_t u2,uint32_t v209077200,uint32_t v111018026,uint32_t v228163042,uint32_t v122214794,uint32_t v45031398)
{
wptr_t v259;
if (0 == v120328970) {
v259 = PROMOTE(c289);
} else {
v259 = fW$__fForeign_C_String_peekCAString(gc,arena,v120328970);
}
{ gc_frame0(gc,1,v259);
sptr_t x78 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x78)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x78)->a1 = v259;
((struct sFJhc_Basics_$pp*)x78)->a2 = c302;
sptr_t v139338096 = MKLAZY(x78);
{ wptr_t v100062;
wptr_t v100078;
wptr_t v100082;
wptr_t v23319750;
sptr_t v462;
sptr_t v86428116;
wptr_t v877;
uintptr_t v1008;
uint32_t v102695672;
gc_frame0(gc,1,v139338096);
sptr_t x79 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x79)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x79)->a1 = PROMOTE(c333);
((struct sFJhc_Basics_$pp*)x79)->a2 = v139338096;
sptr_t v425 = MKLAZY(x79);
fUtil_printk(gc,arena,v425);
uintptr_t v902 = ((uintptr_t)hs_new_fbfront_dev());
v877 = fForeign_C_String_newCAString(gc,arena,v259);
v1008 = ((struct sCJhc_Type_Ptr_Ptr*)v877)->a1;
hs_set_fbfront_dev_nodename((HsPtr)v902,(char*)v1008);
v100062 = fJhc_Basics_$pp(gc,arena,v259,c344);
sptr_t v671616545 = demote(v100062);
v86428116 = fForeign_C_String_withCString(gc,arena,v671616545,SET_RAW_TAG(P2__Xenbus_xenbusReadInteger));
wptr_t v100066 = eval(gc,arena,v86428116);
v102695672 = ((struct sCJhc_Type_Word_Int*)v100066)->a1;
uintmax_t v48036060 = ((intmax_t)((int32_t)v102695672));
uint16_t v209100920 = ((uint16_t)v48036060);
hs_set_fbfront_dev_dom((HsPtr)v902,(uint16_t)v209100920);
uintptr_t v221518978 = ((uintptr_t)hs_get_fbfront_handler());
uintptr_t v40405748 = ((uintptr_t)hs_get_fbfront_dev_evtchn_ptr((HsPtr)v902));
uintmax_t v152966620 = ((intmax_t)((int32_t)v102695672));
uint16_t v169473700 = ((uint16_t)v152966620);
(uint32_t)evtchn_alloc_unbound((uint16_t)v169473700,(HsFunPtr)v221518978,(uint8_t*)v902,(uint32_t*)v40405748);
uintptr_t v253020998 = ((uintptr_t)alloc_pages((int)0));
hs_set_fbfront_dev_page((HsPtr)v902,(HsPtr)v253020998);
memset((HsPtr)v253020998,(uint8_t)0,(uint32_t)PAGE_SIZE);
hs_set_xenfb_page_in_cons((HsPtr)v253020998,(uint32_t)0);
hs_set_xenfb_page_in_prod((HsPtr)v253020998,(uint32_t)0);
hs_set_xenfb_page_out_cons((HsPtr)v253020998,(uint32_t)0);
hs_set_xenfb_page_out_prod((HsPtr)v253020998,(uint32_t)0);
hs_set_fbfront_dev_width((HsPtr)v902,(int32_t)v209077200);
hs_set_xenfb_page_width((HsPtr)v253020998,(int32_t)v209077200);
hs_set_fbfront_dev_height((HsPtr)v902,(int32_t)v111018026);
hs_set_xenfb_page_height((HsPtr)v253020998,(int32_t)v111018026);
hs_set_fbfront_dev_depth((HsPtr)v902,(int32_t)v228163042);
uintmax_t v160824794 = ((intmax_t)((int32_t)v228163042));
uint8_t v139519348 = ((uint8_t)v160824794);
hs_set_xenfb_page_depth((HsPtr)v253020998,(uint8_t)v139519348);
hs_set_fbfront_dev_stride((HsPtr)v902,(int32_t)v122214794);
uintmax_t v21208656 = ((intmax_t)((int32_t)v122214794));
uint32_t v226286982 = ((uint32_t)v21208656);
hs_set_xenfb_page_line_length((HsPtr)v253020998,(uint32_t)v226286982);
uint32_t v41049682 = (v45031398 * PAGE_SIZE);
uintmax_t v124940232 = ((uintmax_t)v41049682);
uint32_t v127754096 = ((uint32_t)v124940232);
hs_set_fbfront_dev_mem_length((HsPtr)v902,(int32_t)v127754096);
uint32_t v23565128 = (v45031398 * PAGE_SIZE);
hs_set_xenfb_page_mem_length((HsPtr)v253020998,(uint32_t)v23565128);
hs_set_fbfront_dev_offset((HsPtr)v902,(int32_t)0);
hs_set_fbfront_dev_events((HsPtr)v902,(HsPtr)0);
uint32_t v105553380 = ((uint32_t)hs_get_max_pd((HsPtr)v253020998));
uint16_t v100068 = (((int32_t)0) > ((int32_t)v105553380));
if (0 == v100068) {
wptr_t v100070;
uintmax_t v11751994 = ((intmax_t)((int32_t)v105553380));
uint32_t v230320880 = ((uint32_t)v11751994);
v100070 = fFE$__CCall___nit__fbfront$d2(gc,arena,v230320880);
v462 = demote(v100070);
} else {
/* 1 */
assert(1 == v100068);
uint32_t v91249600 = (-((int32_t)v105553380));
uintmax_t v218886264 = ((intmax_t)((int32_t)v91249600));
uint32_t v141244516 = ((uint32_t)v218886264);
sptr_t x80 = s_alloc(gc,arena,public_caches(arena)->cFW$__fJhc_Inst_Show_showWord);
((struct sFW$__fJhc_Inst_Show_showWord*)x80)->head = TO_FPTR(&E__fW$__fJhc_Inst_Show_showWord);
((struct sFW$__fJhc_Inst_Show_showWord*)x80)->a1 = v141244516;
((struct sFW$__fJhc_Inst_Show_showWord*)x80)->a2 = SET_RAW_TAG(CJhc_Prim_Prim_$BE);
sptr_t v94296830 = MKLAZY(x80);
{ gc_frame0(gc,1,v94296830);
wptr_t x81 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x81)->a1 = ((sptr_t)RAW_SET_UF('-'));
((struct sCJhc_Prim_Prim_$x3a*)x81)->a2 = v94296830;
wptr_t v1104 = x81;
{ gc_frame0(gc,1,v1104);
sptr_t x82 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x82)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x82)->a1 = v1104;
((struct sFJhc_Basics_$pp*)x82)->a2 = c2;
v462 = MKLAZY(x82);
}
}
}
wptr_t v100074 = eval(gc,arena,v462);
sptr_t v224819220 = demote(v100074);
fUtil_printk(gc,arena,v224819220);
v100078 = fW$__fJhc_Inst_Show_showWord(gc,arena,(uint32_t)((uintmax_t)PAGE_SIZE),SET_RAW_TAG(CJhc_Prim_Prim_$BE));
v100082 = fJhc_Basics_$pp(gc,arena,v100078,c2);
sptr_t v75144256 = demote(v100082);
fUtil_printk(gc,arena,v75144256);
uintmax_t v3576054 = ((uintmax_t)v45031398);
uint32_t v244853750 = ((uint32_t)v3576054);
uintmax_t v97496860 = ((intmax_t)((int32_t)v105553380));
uint32_t v81502694 = ((uint32_t)v97496860);
v23319750 = PROMOTE(c346);
fR$__fFbfront_setupPageDirectory__83:;
{ sptr_t v412;
sptr_t v23320131 = demote(v23319750);
uint16_t v100086 = (((int32_t)0) < ((int32_t)v244853750));
if (0 == v100086) {
v412 = v23320131;
} else {
uint32_t v128578930;
/* 1 */
assert(1 == v100086);
v128578930 = ((struct sCJhc_Type_Word_Int*)v23319750)->a1;
uint16_t v100090 = (((int32_t)v128578930) < ((int32_t)v81502694));
if (0 == v100090) {
v412 = v23320131;
} else {
wptr_t v411;
/* 1 */
assert(1 == v100090);
uintptr_t v76020826 = ((uintptr_t)alloc_pages((int)0));
wptr_t x84 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x84)->a1 = v76020826;
wptr_t v1788 = x84;
fW$__fFbfront_zeroFill(gc,arena,v1788,0);
uintptr_t v890 = ((uintptr_t)hs_get_xenfb_page_pd((HsPtr)v253020998));
uint32_t v27187220 = (v128578930 * ((uint32_t)((uintmax_t)sizeof(unsigned long))));
uintptr_t v596 = ((uintptr_t)virt_to_mfn((HsPtr)v76020826));
wptr_t x85 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x85)->a1 = v596;
wptr_t v1173 = x85;
fW$__fInstance$__iForeign_Storable_pokeByteOff_default(gc,arena,PROMOTE(c345),v890,v27187220,v1173);
uint32_t v206413092 = (1 + v128578930);
wptr_t x86 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int);
((struct sCJhc_Type_Word_Int*)x86)->a1 = v206413092;
wptr_t v542 = x86;
v23319750 = v542;
goto fR$__fFbfront_setupPageDirectory__83;
}
}
promote(v412);
}
return v902;
}
}
}
static wptr_t A_STD A_MALLOC
fFE$__CCall___nit__fbfront$d2(gc_t gc,arena_t arena,uint32_t v15858618)
{
wptr_t v100158;
v100158 = fW$__fJhc_Inst_Show_showWord(gc,arena,v15858618,SET_RAW_TAG(CJhc_Prim_Prim_$BE));
return fJhc_Basics_$pp(gc,arena,v100158,c2);
}
static void A_STD
fFE$__CCall_get__time__values__from__xen(gc_t gc,arena_t arena)
{
fTime_getTimeValuesFromXen(gc,arena);
return;
}
static void A_STD
fFE$__CCall_hs____handle__input(gc_t gc,arena_t arena,uint32_t u1,uintptr_t v197291872,uintptr_t v194635138)
{
wptr_t v166168418;
uint32_t v73786442;
uint32_t v98167662;
uint64_t v44963748 = ((uint64_t)hs_get_mfn());
uintptr_t v806 = ((uintptr_t)hs_mfn_to_virt((uint64_t)v44963748));
uint32_t v292 = ((uint32_t)hs_get_xencons_interface_in_cons((HsPtr)v806));
uint32_t v322 = ((uint32_t)hs_get_xencons_interface_in_prod((HsPtr)v806));
hs_mb();
wptr_t x38 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x38)->a1 = v806;
wptr_t v815 = x38;
v73786442 = v292;
v98167662 = v322;
v166168418 = v815;
fW$__fXenconsRing_11__loop__39:;
{ uint16_t v100178 = (v73786442 == v98167662);
if (0 == v100178) {
uintptr_t v1042;
v1042 = ((struct sCJhc_Type_Ptr_Ptr*)v166168418)->a1;
uintptr_t v232 = ((uintptr_t)hs_get_xencons_interface_in((HsPtr)v1042));
uint32_t v208569442 = (1 + v73786442);
uint32_t v243957158 = ((uint32_t)MASK_XENCONS_IDX((uint32_t)v73786442,(HsPtr)v232));
uintmax_t v170030616 = ((uintmax_t)v243957158);
uint32_t v225564906 = ((uint32_t)v170030616);
uintptr_t v193446728 = ((intptr_t)((int32_t)v225564906));
uintptr_t v71383250 = (v232 + v193446728);
xencons_rx((char*)v71383250,(uint32_t)1,(uint8_t*)v197291872);
v73786442 = v208569442;
v98167662 = v98167662;
v166168418 = v166168418;
goto fW$__fXenconsRing_11__loop__39;
} else {
/* 1 */
assert(1 == v100178);
SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
}
hs_mb();
hs_set_xencons_interface_in_cons((HsPtr)v806,(uint32_t)v322);
hs_notify_daemon((HsPtr)v194635138);
return xencons_tx();
}
static void A_STD
fFE$__CCall_hs__block(gc_t gc,arena_t arena,uintptr_t v984)
{
hs_set_thread_wakeup_time((HsPtr)v984,(int64_t)0);
uint32_t v110947988 = ((uint32_t)hs_get_thread_flags((HsPtr)v984));
uint32_t v29534748 = (v110947988 & (~RUNNABLE_FLAG));
return hs_set_thread_flags((HsPtr)v984,(uint32_t)v29534748);
}
static uintptr_t A_STD
fFE$__CCall_hs__create__thread(gc_t gc,arena_t arena,uintptr_t v130625164,uintptr_t v44119796,uintptr_t v160959526)
{
wptr_t v474;
uintptr_t v75828518;
v474 = fW$__fSched_createThread(gc,arena,v130625164,v44119796,v160959526);
v75828518 = ((struct sCJhc_Type_Ptr_Ptr*)v474)->a1;
return v75828518;
}
static void A_STD
fFE$__CCall_hs__idle__thread(gc_t gc,arena_t arena,uintptr_t u1)
{
hs_set_threads_started((int)1);
fR$__fSched_37__loop__122:;
{ uintptr_t v82 = ((uintptr_t)get_current());
hs_set_thread_wakeup_time((HsPtr)v82,(int64_t)0);
uint32_t v122891998 = ((uint32_t)hs_get_thread_flags((HsPtr)v82));
uint32_t v264841572 = (v122891998 & (~RUNNABLE_FLAG));
hs_set_thread_flags((HsPtr)v82,(uint32_t)v264841572);
fSched_schedule(gc,arena);
goto fR$__fSched_37__loop__122;
}
return;
}
static void A_STD
fFE$__CCall_hs__xenbus__thread(gc_t gc,arena_t arena,uintptr_t u1)
{
uintptr_t v202526706 = ((uintptr_t)hs_new_xsd_sockmsg());
fR$__fControl_Monad_forever__104:;
{ hs_wait_event();
wptr_t x105 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x105)->a1 = v202526706;
wptr_t v669 = x105;
fXenbus_thread(gc,arena,v669);
goto fR$__fControl_Monad_forever__104;
}
return;
}
static uintptr_t A_STD
fFE$__CCall_hs__xencons__ring__init(gc_t gc,arena_t arena)
{
wptr_t v494;
uintptr_t v52493074;
v494 = fXenconsRing_xenconsRingInit(gc,arena);
v52493074 = ((struct sCJhc_Type_Ptr_Ptr*)v494)->a1;
return v52493074;
}
static void A_STD
fFE$__CCall_init__console(gc_t gc,arena_t arena)
{
fUtil_printk(gc,arena,c165);
fXenconsRing_xenconsRingInit(gc,arena);
hs_set_console_initialised((int)1);
fUtil_printk(gc,arena,c169);
return;
}
static void A_STD
fFE$__CCall_init__gnttab(gc_t gc,arena_t arena)
{
wptr_t v249;
v249 = fW$__fForeign_Marshal_Alloc_mallocBytes(gc,arena,4 * sizeof(uint32_t));
{ wptr_t v100096;
sptr_t v227676688;
uint32_t v110947990;
uintptr_t v78382140;
gc_frame0(gc,1,v249);
wptr_t v100094 = eval(gc,arena,g88755245);
v110947990 = ((struct sCJhc_Type_Word_Word32*)v100094)->a1;
uint32_t v40313382 = (v110947990 - 1);
v100096 = fFE$__CCall_init__gnttab$d2(gc,arena,v40313382,8);
sptr_t v87687694 = demote(v100096);
v227676688 = v87687694;
fJhc_Monad_72__go__98:;
{ wptr_t v100102 = eval(gc,arena,v227676688);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100102) {
SET_RAW_TAG(CJhc_Prim_Prim_$LR);
} else {
sptr_t v134677014;
sptr_t v98508472;
/* ("CJhc.Prim.Prim.:" ni134677014 ni98508472) */
v134677014 = ((struct sCJhc_Prim_Prim_$x3a*)v100102)->a1;
v98508472 = ((struct sCJhc_Prim_Prim_$x3a*)v100102)->a2;
{ uint32_t v108955766;
gc_frame0(gc,1,v98508472);
wptr_t v100104 = eval(gc,arena,v134677014);
v108955766 = ((struct sCJhc_Type_Word_Word32*)v100104)->a1;
uintmax_t v14348048 = ((uintmax_t)v108955766);
uint32_t v71121692 = ((uint32_t)v14348048);
fW$__fGnttab_putFreeEntry(gc,arena,v71121692);
v227676688 = v98508472;
goto fJhc_Monad_72__go__98;
}
}
}
uintptr_t v117600218 = ((uintptr_t)hs_new_gnttab_setup_table());
hs_set_gnttab_setup_table_dom((HsPtr)v117600218,(uint16_t)DOMID_SELF);
hs_set_gnttab_setup_table_nr_frames((HsPtr)v117600218,(uint32_t)4);
hs_set_gnttab_setup_table_status((HsPtr)v117600218,(int16_t)0);
v78382140 = ((struct sCJhc_Type_Ptr_Ptr*)v249)->a1;
hs_set_xen_guest_handle((HsPtr)v117600218,(uint32_t*)v78382140);
HYPERVISOR_grant_table_op((uint32_t)GNTTABOP_setup_table,(HsPtr)v117600218,(uint32_t)1);
uintptr_t v515 = ((uintptr_t)map_frames((uint64_t*)v78382140,(uint64_t)4));
hs_set_gnttab_table((HsPtr)v515);
sptr_t x99 = s_alloc(gc,arena,public_caches(arena)->cFFE$__CCall_init__gnttab$d3);
((struct sFFE$__CCall_init__gnttab$d3*)x99)->head = TO_FPTR(&E__fFE$__CCall_init__gnttab$d3);
((struct sFFE$__CCall_init__gnttab$d3*)x99)->a1 = v515;
sptr_t v51081722 = MKLAZY(x99);
{ gc_frame0(gc,1,v51081722);
sptr_t x100 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x100)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x100)->a1 = PROMOTE(c368);
((struct sFJhc_Basics_$pp*)x100)->a2 = v51081722;
sptr_t v84008138 = MKLAZY(x100);
fUtil_printk(gc,arena,v84008138);
return;
}
}
}
static wptr_t A_STD A_MALLOC
fFE$__CCall_init__gnttab$d2(gc_t gc,arena_t arena,uint32_t v194346572,uint32_t v205779220)
{
wptr_t x95 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Word32);
((struct sCJhc_Type_Word_Word32*)x95)->a1 = v205779220;
wptr_t v1091 = x95;
sptr_t v46454712 = demote(v1091);
uint16_t v100058 = (v205779220 > v194346572);
if (0 == v100058) {
uint32_t v44725406 = (1 + v205779220);
{ gc_frame0(gc,1,v46454712);
sptr_t x96 = s_alloc(gc,arena,public_caches(arena)->cFFE$__CCall_init__gnttab$d2);
((struct sFFE$__CCall_init__gnttab$d2*)x96)->head = TO_FPTR(&E__fFE$__CCall_init__gnttab$d2);
((struct sFFE$__CCall_init__gnttab$d2*)x96)->a1 = v194346572;
((struct sFFE$__CCall_init__gnttab$d2*)x96)->a2 = v44725406;
sptr_t v118802444 = MKLAZY(x96);
{ gc_frame0(gc,1,v118802444);
wptr_t x97 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x97)->a1 = v46454712;
((struct sCJhc_Prim_Prim_$x3a*)x97)->a2 = v118802444;
return x97;
}
}
} else {
/* 1 */
assert(1 == v100058);
return SET_RAW_TAG(CJhc_Prim_Prim_$BE);
}
}
static wptr_t A_STD A_MALLOC
fFE$__CCall_init__gnttab$d3(gc_t gc,arena_t arena,uintptr_t v152)
{
wptr_t v100142;
uintmax_t v22 = ((uintmax_t)v152);
v100142 = fW$__fJhc_Inst_Show_showWordMax(gc,arena,v22,SET_RAW_TAG(CJhc_Prim_Prim_$BE));
return fJhc_Basics_$pp(gc,arena,v100142,c3);
}
static void A_STD
fFE$__CCall_init__sched(gc_t gc,arena_t arena)
{
sptr_t v263650746;
uintptr_t v549;
fUtil_printk(gc,arena,c275);
v263650746 = fForeign_C_String_withCString(gc,arena,c277,SET_RAW_TAG(P2__FE$__CCall_init__sched$d2));
wptr_t v100092 = eval(gc,arena,v263650746);
v549 = ((struct sCJhc_Type_Ptr_Ptr*)v100092)->a1;
hs_set_idle_thread((HsPtr)v549);
uintptr_t v244592736 = ((uintptr_t)hs_get_thread_list((HsPtr)v549));
return hs_minios_init_list_head((HsPtr)v244592736);
}
static sptr_t A_STD A_MALLOC
fFE$__CCall_init__sched$d2(gc_t gc,arena_t arena,sptr_t v969)
{
wptr_t v921;
uintptr_t v75583682;
wptr_t v100108 = eval(gc,arena,v969);
v75583682 = ((struct sCJhc_Type_Ptr_Ptr*)v100108)->a1;
v921 = fW$__fx22233080(gc,arena,v75583682);
return demote(v921);
}
static void A_STD
fFE$__CCall_init__time(gc_t gc,arena_t arena)
{
fUtil_printk(gc,arena,c196);
uint32_t v188192944 = ((uint32_t)bind_virq((uint32_t)0,(HsFunPtr)((uintptr_t)&timer_handler),(uint8_t*)0));
hs_set_port((uint32_t)v188192944);
return unmask_evtchn((uint32_t)v188192944);
}
static void A_STD
fFE$__CCall_init__xenbus(gc_t gc,arena_t arena)
{
fUtil_printk(gc,arena,c215);
uint64_t v52590392 = ((uint64_t)hs_get_store_mfn());
uintptr_t v119514822 = ((uintptr_t)hs_mfn_to_virt((uint64_t)v52590392));
hs_set_xenstore_buf((HsPtr)v119514822);
sptr_t x72 = s_alloc(gc,arena,public_caches(arena)->cFFE$__CCall_init__xenbus$d2);
((struct sFFE$__CCall_init__xenbus$d2*)x72)->head = TO_FPTR(&E__fFE$__CCall_init__xenbus$d2);
((struct sFFE$__CCall_init__xenbus$d2*)x72)->a1 = v119514822;
sptr_t v224371662 = MKLAZY(x72);
{ wptr_t v432;
uintptr_t v10527820;
gc_frame0(gc,1,v224371662);
sptr_t x73 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x73)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x73)->a1 = PROMOTE(c221);
((struct sFJhc_Basics_$pp*)x73)->a2 = v224371662;
sptr_t v199109178 = MKLAZY(x73);
fUtil_printk(gc,arena,v199109178);
v432 = fForeign_C_String_newCAString(gc,arena,PROMOTE(c228));
v10527820 = ((struct sCJhc_Type_Ptr_Ptr*)v432)->a1;
fW$__fSched_createThread(gc,arena,v10527820,(uintptr_t)&hs_xenbus_thread,0);
uint32_t v196335310 = ((uint32_t)hs_get_store_evtchn());
uintptr_t v137248438 = ((uintptr_t)hs_xenbus_evtchn_handler());
uint32_t v1674610 = ((uint32_t)bind_evtchn((uint32_t)v196335310,(HsFunPtr)v137248438,(uint8_t*)0));
unmask_evtchn((uint32_t)v196335310);
sptr_t x74 = s_alloc(gc,arena,public_caches(arena)->cFFE$__CCall_init__xenbus$d3);
((struct sFFE$__CCall_init__xenbus$d3*)x74)->head = TO_FPTR(&E__fFE$__CCall_init__xenbus$d3);
((struct sFFE$__CCall_init__xenbus$d3*)x74)->a1 = v52590392;
((struct sFFE$__CCall_init__xenbus$d3*)x74)->a2 = v1674610;
sptr_t v109060828 = MKLAZY(x74);
{ gc_frame0(gc,1,v109060828);
sptr_t x75 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x75)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x75)->a1 = PROMOTE(c253);
((struct sFJhc_Basics_$pp*)x75)->a2 = v109060828;
sptr_t v219876440 = MKLAZY(x75);
fUtil_printk(gc,arena,v219876440);
return;
}
}
}
static wptr_t A_STD A_MALLOC
fFE$__CCall_init__xenbus$d2(gc_t gc,arena_t arena,uintptr_t v154318376)
{
wptr_t v100154;
uintmax_t v59642630 = ((uintmax_t)v154318376);
v100154 = fW$__fJhc_Inst_Show_showWordMax(gc,arena,v59642630,SET_RAW_TAG(CJhc_Prim_Prim_$BE));
return fJhc_Basics_$pp(gc,arena,v100154,c2);
}
static wptr_t A_STD A_MALLOC
fFE$__CCall_init__xenbus$d3(gc_t gc,arena_t arena,uint64_t v62470112,uint32_t v234830352)
{
wptr_t v100146;
uintmax_t v59150088 = ((uintmax_t)v234830352);
uint32_t v29821316 = ((uint32_t)v59150088);
v100146 = fW$__fJhc_Inst_Show_showWord(gc,arena,v29821316,SET_RAW_TAG(CJhc_Prim_Prim_$BE));
{ gc_frame0(gc,1,v100146);
sptr_t x53 = s_alloc(gc,arena,public_caches(arena)->cFFE$__CCall_init__xenbus$d4);
((struct sFFE$__CCall_init__xenbus$d4*)x53)->head = TO_FPTR(&E__fFE$__CCall_init__xenbus$d4);
((struct sFFE$__CCall_init__xenbus$d4*)x53)->a1 = v62470112;
sptr_t v264572900 = MKLAZY(x53);
{ gc_frame0(gc,1,v264572900);
sptr_t x54 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x54)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x54)->a1 = PROMOTE(c7);
((struct sFJhc_Basics_$pp*)x54)->a2 = v264572900;
sptr_t v116245500 = MKLAZY(x54);
return fJhc_Basics_$pp(gc,arena,v100146,v116245500);
}
}
}
static wptr_t A_STD A_MALLOC
fFE$__CCall_init__xenbus$d4(gc_t gc,arena_t arena,uint64_t v79607516)
{
wptr_t v100150;
uintmax_t v1674612 = ((uintmax_t)v79607516);
v100150 = fW$__fJhc_Inst_Show_showWordMax(gc,arena,v1674612,SET_RAW_TAG(CJhc_Prim_Prim_$BE));
return fJhc_Basics_$pp(gc,arena,v100150,c2);
}
static void A_STD
fFE$__CCall_put__free__entry(gc_t gc,arena_t arena,uint32_t v1078)
{
fW$__fGnttab_putFreeEntry(gc,arena,v1078);
return;
}
static void A_STD
fFE$__CCall_schedule(gc_t gc,arena_t arena)
{
fSched_schedule(gc,arena);
return;
}
static void A_STD
fFE$__CCall_timer__handler(gc_t gc,arena_t arena,uint32_t u1,uintptr_t u2,uintptr_t u3)
{
fTime_getTimeValuesFromXen(gc,arena);
fR$__fTime_updateWallclock__45:;
{ uintptr_t v110947986 = ((uintptr_t)hs_get_shared_info());
uint32_t v59642628 = ((uint32_t)hs_get_shared_info_wc_version((HsPtr)v110947986));
uint32_t v68216826 = ((uint32_t)hs_get_shadow_ts_version());
fTime_1__main(gc,arena);
uint32_t v59150084 = (1 & v59642628);
uint32_t v215350916 = (v68216826 ^ v59642628);
uint32_t v100174 = (v59150084 | v215350916);
if (0 == v100174) {
SET_RAW_TAG(CJhc_Prim_Prim_$LR);
} else {
fTime_1__main(gc,arena);
goto fR$__fTime_updateWallclock__45;
}
}
return;
}
static wptr_t A_STD A_MALLOC
fFbfront_pageCount(gc_t gc,arena_t arena)
{
uint32_t v169337066 = (PAGE_SIZE / sizeof(unsigned long));
uintmax_t v186011614 = ((uintmax_t)v169337066);
uint32_t v9731406 = ((uint32_t)v186011614);
wptr_t x127 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int);
((struct sCJhc_Type_Word_Int*)x127)->a1 = v9731406;
return x127;
}
static wptr_t A_STD A_MALLOC
fForeign_C_String_newCAString(gc_t gc,arena_t arena,wptr_t v253629489)
{
sptr_t v253630056 = demote(v253629489);
{ wptr_t v572;
uint32_t v179975984;
gc_frame0(gc,1,v253630056);
v179975984 = fW$__fJhc_List_length(gc,arena,v253630056);
uint32_t v235511032 = (1 + v179975984);
uint32_t v242479192 = (v235511032 * sizeof(uint8_t));
v572 = fW$__fForeign_Marshal_Alloc_mallocBytes(gc,arena,v242479192);
{ sptr_t v217301940;
uint32_t v235511038;
gc_frame0(gc,1,v572);
v217301940 = v253630056;
v235511038 = 0;
fW$__fForeign_C_String_22__go__59:;
{ wptr_t v100128 = eval(gc,arena,v217301940);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100128) {
uintptr_t v61147614;
v61147614 = ((struct sCJhc_Type_Ptr_Ptr*)v572)->a1;
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_C_CChar),v61147614,v235511038,RAW_SET_UF(0));
} else {
sptr_t v38980066;
sptr_t v78435394;
uintptr_t v146105890;
/* ("CJhc.Prim.Prim.:" ni38980066 ni78435394) */
v38980066 = ((struct sCJhc_Prim_Prim_$x3a*)v100128)->a1;
v78435394 = ((struct sCJhc_Prim_Prim_$x3a*)v100128)->a2;
v146105890 = ((struct sCJhc_Type_Ptr_Ptr*)v572)->a1;
{ uint32_t v211631428;
gc_frame0(gc,1,v78435394);
wptr_t v100132 = eval(gc,arena,v38980066);
v211631428 = ((uint32_t)RAW_GET_UF(v100132));
uint8_t v88824878 = ((uint8_t)v211631428);
wptr_t v762 = RAW_SET_UF(v88824878);
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_C_CChar),v146105890,v235511038,v762);
uint32_t v238065896 = (1 + v235511038);
v217301940 = v78435394;
v235511038 = v238065896;
goto fW$__fForeign_C_String_22__go__59;
}
}
}
return v572;
}
}
}
static sptr_t A_STD A_MALLOC
fForeign_C_String_withCString(gc_t gc,arena_t arena,sptr_t v104616766,wptr_t v258748512)
{
{ wptr_t v100122;
sptr_t v115295012;
sptr_t v52590398;
wptr_t v526;
uint32_t v119514824;
uintptr_t v139273904;
uint32_t v171089050;
gc_frame0(gc,2,v104616766,v258748512);
v171089050 = fW$__fJhc_List_length(gc,arena,v104616766);
uint32_t v82003540 = (1 + v171089050);
uint32_t v176586372 = (v82003540 * sizeof(uint8_t));
v526 = fW$__fForeign_Marshal_Alloc_mallocBytes(gc,arena,v176586372);
v139273904 = ((struct sCJhc_Type_Ptr_Ptr*)v526)->a1;
v52590398 = v104616766;
v119514824 = 0;
fW$__fForeign_C_String_40__go__60:;
{ wptr_t v100124 = eval(gc,arena,v52590398);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100124) {
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_C_CChar),v139273904,v119514824,RAW_SET_UF(0));
} else {
sptr_t v159335784;
sptr_t v49838042;
/* ("CJhc.Prim.Prim.:" ni159335784 ni49838042) */
v159335784 = ((struct sCJhc_Prim_Prim_$x3a*)v100124)->a1;
v49838042 = ((struct sCJhc_Prim_Prim_$x3a*)v100124)->a2;
{ uint32_t v98670510;
gc_frame0(gc,1,v49838042);
wptr_t v100126 = eval(gc,arena,v159335784);
v98670510 = ((uint32_t)RAW_GET_UF(v100126));
uint8_t v244429590 = ((uint8_t)v98670510);
wptr_t v381 = RAW_SET_UF(v244429590);
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_C_CChar),v139273904,v119514824,v381);
uint32_t v24943992 = (1 + v119514824);
v52590398 = v49838042;
v119514824 = v24943992;
goto fW$__fForeign_C_String_40__go__60;
}
}
}
wptr_t x61 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x61)->a1 = v139273904;
wptr_t v365 = x61;
sptr_t v168170545 = demote(v365);
v100122 = bapply__46029(gc,arena,v258748512,v168170545);
v115295012 = bapply__46030(gc,arena,v100122);
free((HsPtr)v139273904);
return v115295012;
}
}
static wptr_t A_STD A_MALLOC
fGnttab_nrGrantEntries(gc_t gc,arena_t arena)
{
uint32_t v155216336 = ((4 * PAGE_SIZE) / sizeof(grant_entry_t));
wptr_t x128 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Word32);
((struct sCJhc_Type_Word_Word32*)x128)->a1 = v155216336;
return x128;
}
static wptr_t A_STD A_MALLOC
fJhc_Basics_$pp(gc_t gc,arena_t arena,wptr_t v132,sptr_t v134)
{
sptr_t v849 = demote(v132);
return fR$__fJhc_Basics_$pp(gc,arena,v849,v134);
}
static wptr_t A_STD A_MALLOC
fJhc_Monad_60__go(gc_t gc,arena_t arena,sptr_t v163322718)
{
wptr_t v100054 = eval(gc,arena,v163322718);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100054) {
return v100054;
} else {
sptr_t v225040670;
sptr_t v90955818;
/* ("CJhc.Prim.Prim.:" ni90955818 ni225040670) */
v90955818 = ((struct sCJhc_Prim_Prim_$x3a*)v100054)->a1;
v225040670 = ((struct sCJhc_Prim_Prim_$x3a*)v100054)->a2;
{ uintptr_t v228;
gc_frame0(gc,1,v225040670);
wptr_t v100056 = eval(gc,arena,v90955818);
v228 = ((struct sCJhc_Type_Ptr_Ptr*)v100056)->a1;
uintptr_t v53399310 = ((uintptr_t)hs_get_watch_events((HsPtr)v228));
wptr_t x8 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x8)->a1 = v53399310;
wptr_t v649 = x8;
sptr_t v29534756 = demote(v649);
{ wptr_t v210;
gc_frame0(gc,1,v29534756);
v210 = fJhc_Monad_60__go(gc,arena,v225040670);
sptr_t v124940240 = demote(v210);
{ gc_frame0(gc,1,v124940240);
wptr_t x9 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x9)->a1 = v29534756;
((struct sCJhc_Prim_Prim_$x3a*)x9)->a2 = v124940240;
return x9;
}
}
}
}
}
static sptr_t A_STD A_MALLOC
fR$__fControl_Monad_filterM(gc_t gc,arena_t arena,sptr_t v10461222,wptr_t v242443208)
{
{ gc_frame0(gc,1,v242443208);
wptr_t v100214 = eval(gc,arena,v10461222);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100214) {
return (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$BE);
} else {
sptr_t v196335304;
sptr_t v74909130;
sptr_t v76;
/* ("CJhc.Prim.Prim.:" ni196335304 ni74909130) */
v196335304 = ((struct sCJhc_Prim_Prim_$x3a*)v100214)->a1;
v74909130 = ((struct sCJhc_Prim_Prim_$x3a*)v100214)->a2;
v76 = ((struct sP2__Xenbus_thread$d2*)v242443208)->a1;
{ sptr_t v153480252;
gc_frame0(gc,2,v74909130,v196335304);
v153480252 = fXenbus_thread$d2(gc,arena,v76,v196335304);
{ sptr_t v10527830;
gc_frame0(gc,1,v153480252);
v10527830 = fR$__fControl_Monad_filterM(gc,arena,v74909130,v242443208);
{ gc_frame0(gc,1,v10527830);
sptr_t x2 = s_alloc(gc,arena,public_caches(arena)->cFControl_Monad_filterM$d2);
((struct sFControl_Monad_filterM$d2*)x2)->head = TO_FPTR(&E__fControl_Monad_filterM$d2);
((struct sFControl_Monad_filterM$d2*)x2)->a1 = v196335304;
((struct sFControl_Monad_filterM$d2*)x2)->a2 = v153480252;
((struct sFControl_Monad_filterM$d2*)x2)->a3 = v10527830;
return MKLAZY(x2);
}
}
}
}
}
}
static wptr_t A_STD A_MALLOC
fR$__fJhc_Basics_$pp(gc_t gc,arena_t arena,sptr_t v23565126,sptr_t v132127018)
{
{ gc_frame0(gc,1,v132127018);
wptr_t v100140 = eval(gc,arena,v23565126);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100140) {
return eval(gc,arena,v132127018);
} else {
sptr_t v136;
sptr_t v138;
/* ("CJhc.Prim.Prim.:" ni136 ni138) */
v136 = ((struct sCJhc_Prim_Prim_$x3a*)v100140)->a1;
v138 = ((struct sCJhc_Prim_Prim_$x3a*)v100140)->a2;
{ gc_frame0(gc,2,v136,v138);
sptr_t x51 = s_alloc(gc,arena,public_caches(arena)->cFR$__fJhc_Basics_$pp);
((struct sFR$__fJhc_Basics_$pp*)x51)->head = TO_FPTR(&E__fR$__fJhc_Basics_$pp);
((struct sFR$__fJhc_Basics_$pp*)x51)->a1 = v138;
((struct sFR$__fJhc_Basics_$pp*)x51)->a2 = v132127018;
sptr_t v242129340 = MKLAZY(x51);
{ gc_frame0(gc,1,v242129340);
wptr_t x52 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x52)->a1 = v136;
((struct sCJhc_Prim_Prim_$x3a*)x52)->a2 = v242129340;
return x52;
}
}
}
}
}
static wptr_t A_STD A_MALLOC
fSched_schedule(gc_t gc,arena_t arena)
{
wptr_t v100010;
sptr_t v217301934;
sptr_t v220263220;
wptr_t v77;
wptr_t v938;
uintptr_t v260952208;
uintptr_t v115160446 = ((uintptr_t)get_current());
uint32_t v212 = ((uint32_t)hs_local_irq_save((uint32_t)0));
uint32_t v253236986 = ((uint32_t)hs_get_in_callback());
if (0 == v253236986) {
} else {
fUtil_printk(gc,arena,c406);
hs_bug();
}
if (0 == v212) {
} else {
fUtil_printk(gc,arena,c449);
hs_bug();
}
fSched_9__getRunnableThread__113:;
{ wptr_t v31;
uint64_t v109152422 = ((uint64_t)NOW());
uintptr_t v246982872 = ((uintptr_t)hs_get_idle_thread());
uintptr_t v94629386 = ((uintptr_t)hs_get_thread_list((HsPtr)v246982872));
v31 = fW$__fList_toList(gc,arena,v94629386);
sptr_t v178901586 = demote(v31);
{ sptr_t v102289898;
sptr_t v124235158;
wptr_t v36;
gc_frame0(gc,1,v178901586);
sptr_t x114 = s_alloc(gc,arena,public_caches(arena)->cFSched_schedule$d3);
((struct sFSched_schedule$d3*)x114)->head = TO_FPTR(&E__fSched_schedule$d3);
((struct sFSched_schedule$d3*)x114)->a1 = v109152422;
sptr_t v1918765615 = MKLAZY(x114);
v124235158 = v1918765615;
v102289898 = v178901586;
fR$__fSched_10__getRunnableThread$tu115:;
{ { gc_frame0(gc,1,v124235158);
wptr_t v100026 = eval(gc,arena,v102289898);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100026) {
wptr_t x116 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Basic_Left);
SET_MEM_TAG((struct sCJhc_Type_Basic_Left*)x116,CJhc_Type_Basic_Left);
((struct sCJhc_Type_Basic_Left*)x116)->a1 = v124235158;
v36 = x116;
} else {
sptr_t v170248830;
sptr_t v37774492;
/* ("CJhc.Prim.Prim.:" ni37774492 ni170248830) */
v37774492 = ((struct sCJhc_Prim_Prim_$x3a*)v100026)->a1;
v170248830 = ((struct sCJhc_Prim_Prim_$x3a*)v100026)->a2;
{ uintptr_t v30707550;
gc_frame0(gc,1,v170248830);
wptr_t v100028 = eval(gc,arena,v37774492);
v30707550 = ((struct sCJhc_Type_Ptr_Ptr*)v100028)->a1;
uintptr_t v82716436 = ((uintptr_t)hs_get_entry((HsPtr)v30707550));
uint32_t v185818834 = ((uint32_t)hs_get_thread_flags((HsPtr)v82716436));
uint32_t v100030 = (v185818834 & RUNNABLE_FLAG);
if (0 == v100030) {
uint64_t v110207572 = ((uint64_t)hs_get_thread_wakeup_time((HsPtr)v82716436));
uint16_t v100032 = (((int64_t)0) < ((int64_t)v110207572));
if (0 == v100032) {
} else {
/* 1 */
assert(1 == v100032);
uint16_t v100034 = (((int64_t)v110207572) <= ((int64_t)v109152422));
if (0 == v100034) {
} else {
/* 1 */
assert(1 == v100034);
wake((HsPtr)v82716436);
}
}
sptr_t x117 = s_alloc(gc,arena,public_caches(arena)->cFSched_schedule$d2);
((struct sFSched_schedule$d2*)x117)->head = TO_FPTR(&E__fSched_schedule$d2);
((struct sFSched_schedule$d2*)x117)->a1 = v110207572;
((struct sFSched_schedule$d2*)x117)->a2 = v124235158;
sptr_t v1962543665 = MKLAZY(x117);
v124235158 = v1962543665;
v102289898 = v170248830;
goto fR$__fSched_10__getRunnableThread$tu115;
} else {
uintptr_t v224871424 = ((uintptr_t)hs_get_thread_list((HsPtr)v82716436));
minios_list_del((HsPtr)v224871424);
uintptr_t v130 = ((uintptr_t)hs_get_idle_thread());
uintptr_t v108 = ((uintptr_t)hs_get_thread_list((HsPtr)v130));
minios_list_add_tail((HsPtr)v224871424,(HsPtr)v108);
wptr_t x118 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x118)->a1 = v82716436;
wptr_t v771 = x118;
sptr_t v182200302 = demote(v771);
{ gc_frame0(gc,1,v182200302);
wptr_t x119 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Basic_Right);
SET_MEM_TAG((struct sCJhc_Type_Basic_Right*)x119,CJhc_Type_Basic_Right);
((struct sCJhc_Type_Basic_Right*)x119)->a1 = v182200302;
v36 = x119;
}
}
}
}
}
}
if (CJhc_Type_Basic_Left == FETCH_TAG(v36)) {
sptr_t v56;
uint64_t v124449676;
v56 = ((struct sCJhc_Type_Basic_Left*)v36)->a1;
wptr_t v100024 = eval(gc,arena,v56);
v124449676 = ((struct sCJhc_Type_Word_Int64*)v100024)->a1;
block_domain((int64_t)v124449676);
force_evtchn_callback();
goto fSched_9__getRunnableThread__113;
} else {
sptr_t v240673846;
/* ("CJhc.Type.Basic.Right" ni240673846) */
v240673846 = ((struct sCJhc_Type_Basic_Right*)v36)->a1;
v217301934 = v240673846;
}
}
}
(uint32_t)hs_local_irq_restore((uint32_t)v212);
wptr_t v100006 = eval(gc,arena,v217301934);
v260952208 = ((struct sCJhc_Type_Ptr_Ptr*)v100006)->a1;
uint16_t v100008 = (v115160446 != v260952208);
if (0 == v100008) {
} else {
/* 1 */
assert(1 == v100008);
hs_switch_threads((HsPtr)v115160446,(HsPtr)v260952208);
}
uintptr_t v170 = ((uintptr_t)hs_exited_threads());
v77 = fW$__fList_toList(gc,arena,v170);
sptr_t v2998636 = demote(v77);
v938 = fx57580220(gc,arena,v2998636);
sptr_t v1980458 = demote(v938);
v100010 = fSched_schedule$d4(gc,arena,v115160446,v1980458);
sptr_t v131690228 = demote(v100010);
v220263220 = v131690228;
fx126734484__120:;
{ wptr_t v100014 = eval(gc,arena,v220263220);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100014) {
SET_RAW_TAG(CJhc_Prim_Prim_$LR);
} else {
sptr_t v105553382;
sptr_t v61835124;
/* ("CJhc.Prim.Prim.:" ni105553382 ni61835124) */
v105553382 = ((struct sCJhc_Prim_Prim_$x3a*)v100014)->a1;
v61835124 = ((struct sCJhc_Prim_Prim_$x3a*)v100014)->a2;
{ uintptr_t v137643142;
gc_frame0(gc,1,v61835124);
wptr_t v100016 = eval(gc,arena,v105553382);
v137643142 = ((struct sCJhc_Type_Ptr_Ptr*)v100016)->a1;
uintptr_t v168604004 = ((uintptr_t)hs_get_thread_list((HsPtr)v137643142));
minios_list_del((HsPtr)v168604004);
uintptr_t v119285246 = ((uintptr_t)hs_get_thread_stack((HsPtr)v137643142));
free_pages((HsPtr)v119285246,(int)STACK_SIZE_PAGE_ORDER );
v220263220 = v61835124;
goto fx126734484__120;
}
}
}
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
static wptr_t A_STD A_MALLOC
fSched_schedule$d2(gc_t gc,arena_t arena,uint64_t v206133680,sptr_t v230599642)
{
uint16_t v100036 = (((int64_t)0) >= ((int64_t)v206133680));
if (0 == v100036) {
uint64_t v196335318;
uint64_t v617;
wptr_t v100038 = eval(gc,arena,v230599642);
v196335318 = ((struct sCJhc_Type_Word_Int64*)v100038)->a1;
uint16_t v100040 = (((int64_t)v196335318) <= ((int64_t)v206133680));
if (0 == v100040) {
v617 = v206133680;
} else {
/* 1 */
assert(1 == v100040);
v617 = v196335318;
}
wptr_t x108 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int64);
((struct sCJhc_Type_Word_Int64*)x108)->a1 = v617;
return x108;
} else {
/* 1 */
assert(1 == v100036);
return eval(gc,arena,v230599642);
}
}
static wptr_t A_STD A_MALLOC
fSched_schedule$d3(gc_t gc,arena_t arena,uint64_t v127975176)
{
uint64_t v188 = ((uint64_t)SECONDS((int)10));
uint64_t v54837742 = (v127975176 + v188);
wptr_t x109 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int64);
((struct sCJhc_Type_Word_Int64*)x109)->a1 = v54837742;
return x109;
}
static wptr_t A_STD A_MALLOC
fSched_schedule$d4(gc_t gc,arena_t arena,uintptr_t v130564412,sptr_t v146226744)
{
sptr_t v146227417;
uintptr_t v130565084;
v130565084 = v130564412;
v146227417 = v146226744;
bRfSched_schedule$d4u110:;
{ wptr_t v100000 = eval(gc,arena,v146227417);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100000) {
return v100000;
} else {
sptr_t v68;
sptr_t v70;
/* ("CJhc.Prim.Prim.:" ni68 ni70) */
v68 = ((struct sCJhc_Prim_Prim_$x3a*)v100000)->a1;
v70 = ((struct sCJhc_Prim_Prim_$x3a*)v100000)->a2;
{ uintptr_t v127754100;
gc_frame0(gc,2,v68,v70);
wptr_t v100002 = eval(gc,arena,v68);
v127754100 = ((struct sCJhc_Type_Ptr_Ptr*)v100002)->a1;
uint16_t v100004 = (v127754100 != v130565084);
if (0 == v100004) {
v130565084 = v130565084;
v146227417 = v70;
goto bRfSched_schedule$d4u110;
} else {
/* 1 */
assert(1 == v100004);
sptr_t x111 = s_alloc(gc,arena,public_caches(arena)->cFSched_schedule$d4);
((struct sFSched_schedule$d4*)x111)->head = TO_FPTR(&E__fSched_schedule$d4);
((struct sFSched_schedule$d4*)x111)->a1 = v130565084;
((struct sFSched_schedule$d4*)x111)->a2 = v70;
sptr_t v188856088 = MKLAZY(x111);
{ gc_frame0(gc,1,v188856088);
wptr_t x112 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x112)->a1 = v68;
((struct sCJhc_Prim_Prim_$x3a*)x112)->a2 = v188856088;
return x112;
}
}
}
}
}
}
static wptr_t A_STD A_MALLOC
fTime_1__main(gc_t gc,arena_t arena)
{
uintptr_t v196335306 = ((uintptr_t)hs_get_shared_info());
uint32_t v117740408 = ((uint32_t)hs_get_shared_info_wc_version((HsPtr)v196335306));
hs_set_shadow_ts_version((uint32_t)v117740408);
hs_rmb();
uintptr_t v209623814 = ((uintptr_t)hs_get_shadow_ts());
uint32_t v264446468 = ((uint32_t)hs_get_shared_info_wc_sec((HsPtr)v196335306));
uintmax_t v153480250 = ((uintmax_t)v264446468);
uint64_t v253468956 = ((uint64_t)v153480250);
hs_set_timespec_tv_sec((HsPtr)v209623814,(int64_t)v253468956);
uint32_t v52590396 = ((uint32_t)hs_get_shared_info_wc_nsec((HsPtr)v196335306));
uintmax_t v119549090 = ((uintmax_t)v52590396);
uint32_t v194635132 = ((uint32_t)v119549090);
hs_set_timespec_tv_nsec((HsPtr)v209623814,(int32_t)v194635132);
hs_rmb();
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
static wptr_t A_STD A_MALLOC
fTime_8__main(gc_t gc,arena_t arena)
{
uintptr_t v135370992 = ((uintptr_t)hs_get_vcpu_time_info());
uintptr_t v215884490 = ((uintptr_t)hs_get_shadow());
uint32_t v166168410 = ((uint32_t)hs_get_vcpu_time_info_version((HsPtr)v135370992));
hs_set_shadow_time_info_version((HsPtr)v215884490,(uint32_t)v166168410);
hs_rmb();
uint64_t v614 = ((uint64_t)hs_get_vcpu_time_info_tsc_timestamp((HsPtr)v135370992));
hs_set_shadow_time_info_tsc_timestamp((HsPtr)v215884490,(uint64_t)v614);
uint64_t v1423 = ((uint64_t)hs_get_vcpu_time_info_system_time((HsPtr)v135370992));
hs_set_shadow_time_info_system_timestamp((HsPtr)v215884490,(uint64_t)v1423);
uint32_t v1454 = ((uint32_t)hs_get_vcpu_time_info_tsc_to_system_mul((HsPtr)v135370992));
hs_set_shadow_time_info_tsc_to_nsec_mul((HsPtr)v215884490,(uint32_t)v1454);
uint8_t v209623812 = ((uint8_t)hs_get_vcpu_time_info_tsc_shift((HsPtr)v135370992));
uintmax_t v227981058 = ((intmax_t)((int8_t)v209623812));
uint32_t v105553374 = ((uint32_t)v227981058);
hs_set_shadow_time_info_tsc_shift((HsPtr)v215884490,(int32_t)v105553374);
hs_rmb();
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
static wptr_t A_STD A_MALLOC
fTime_getTimeValuesFromXen(gc_t gc,arena_t arena)
{
fR$__fTime_getTimeValuesFromXen__44:;
{ uintptr_t v61835122 = ((uintptr_t)hs_get_vcpu_time_info());
uint32_t v584 = ((uint32_t)hs_get_vcpu_time_info_version((HsPtr)v61835122));
uintptr_t v182639124 = ((uintptr_t)hs_get_shadow());
uint32_t v546 = ((uint32_t)hs_get_shadow_time_info_version((HsPtr)v182639124));
fTime_8__main(gc,arena);
uint32_t v194508206 = (1 & v584);
uint32_t v160512924 = (v546 ^ v584);
uint32_t v100176 = (v194508206 | v160512924);
if (0 == v100176) {
uint32_t v46454710 = ((uint32_t)hs_get_vcpu_time_info_tsc_to_system_mul((HsPtr)v61835122));
uint32_t v132679392 = (v46454710 / 1000);
hs_set_shadow_time_info_tsc_to_usec_mul((HsPtr)v182639124,(uint32_t)v132679392);
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
} else {
fTime_8__main(gc,arena);
goto fR$__fTime_getTimeValuesFromXen__44;
}
}
}
static sptr_t A_STD A_MALLOC
fUtil_printk(gc_t gc,arena_t arena,sptr_t v85433876)
{
return fForeign_C_String_withCString(gc,arena,v85433876,SET_RAW_TAG(P2__Util_rawPrintk));
}
static sptr_t A_STD A_MALLOC
fUtil_rawPrintk(gc_t gc,arena_t arena,sptr_t v321)
{
uintptr_t v75583678;
wptr_t v100182 = eval(gc,arena,v321);
v75583678 = ((struct sCJhc_Type_Ptr_Ptr*)v100182)->a1;
printk((char*)v75583678);
return (sptr_t)SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
static wptr_t A_STD A_MALLOC
fW$__fFbfront_zeroFill(gc_t gc,arena_t arena,wptr_t v619318813,uint32_t v1708802087)
{
uint32_t v222848748;
v222848748 = v1708802087;
fW$__fR$__fFbfront_zeroFill__23:;
{ { uint32_t v136941090;
gc_frame0(gc,1,v619318813);
wptr_t v100208 = eval(gc,arena,g101600293);
v136941090 = ((struct sCJhc_Type_Word_Int*)v100208)->a1;
uint16_t v100210 = (((int32_t)v222848748) < ((int32_t)v136941090));
if (0 == v100210) {
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
} else {
uintptr_t v13113190;
/* 1 */
assert(1 == v100210);
uint32_t v100335388 = (1 + v222848748);
v13113190 = ((struct sCJhc_Type_Ptr_Ptr*)v619318813)->a1;
uint32_t v265053594 = (v222848748 * ((uint32_t)((uintmax_t)sizeof(unsigned long))));
fW$__fInstance$__iForeign_Storable_pokeByteOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_Word_Word64),v13113190,v265053594,PROMOTE(c1));
v222848748 = v100335388;
goto fW$__fR$__fFbfront_zeroFill__23;
}
}
}
}
static wptr_t A_STD A_MALLOC
fW$__fForeign_C_String_peekCAString(gc_t gc,arena_t arena,uintptr_t v1412436537)
{
wptr_t v882;
uint32_t v146793348;
uint32_t v34769204;
v146793348 = 0;
fW$__fForeign_Marshal_Array_139__loop__26:;
{ sptr_t v893;
wptr_t x27 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int);
((struct sCJhc_Type_Word_Int*)x27)->a1 = v146793348;
wptr_t v1033 = x27;
sptr_t v135243418 = demote(v1033);
uint32_t v61835126 = (v146793348 * sizeof(uint8_t));
uintptr_t v264254034 = ((intptr_t)((int32_t)v61835126));
uintptr_t v44725404 = (v1412436537 + v264254034);
uint8_t v40405756 = *((uint8_t *)(v44725404));
if (0 == v40405756) {
v893 = v135243418;
} else {
wptr_t v892;
uint32_t v181439968 = (1 + v146793348);
v146793348 = v181439968;
goto fW$__fForeign_Marshal_Array_139__loop__26;
}
v882 = promote(v893);
}
v34769204 = ((struct sCJhc_Type_Word_Int*)v882)->a1;
uint16_t v100188 = (((int32_t)0) >= ((int32_t)v34769204));
if (0 == v100188) {
wptr_t v258411588;
uint32_t v42056684;
uint32_t v122630788 = (v34769204 - 1);
v258411588 = SET_RAW_TAG(CJhc_Prim_Prim_$BE);
v42056684 = v122630788;
fW$__fForeign_C_String_7__loop__28:;
{ sptr_t v258412492 = demote(v258411588);
uint32_t v124940242 = (v42056684 * sizeof(uint8_t));
uintptr_t v216085104 = ((intptr_t)((int32_t)v124940242));
uintptr_t v110948002 = (v1412436537 + v216085104);
uint8_t v68216842 = *((uint8_t *)(v110948002));
uint32_t v120703928 = ((uint32_t)v68216842);
{ gc_frame0(gc,1,v258412492);
wptr_t v1052 = RAW_SET_UF(v120703928);
sptr_t v134814548 = demote(v1052);
uint16_t v100190 = (((int32_t)0) >= ((int32_t)v42056684));
if (0 == v100190) {
uint32_t v98664016 = (v42056684 - 1);
{ gc_frame0(gc,1,v134814548);
wptr_t x29 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x29)->a1 = v134814548;
((struct sCJhc_Prim_Prim_$x3a*)x29)->a2 = v258412492;
wptr_t v147 = x29;
v258411588 = v147;
v42056684 = v98664016;
goto fW$__fForeign_C_String_7__loop__28;
}
} else {
/* 1 */
assert(1 == v100190);
{ gc_frame0(gc,1,v134814548);
wptr_t x30 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x30)->a1 = v134814548;
((struct sCJhc_Prim_Prim_$x3a*)x30)->a2 = v258412492;
return x30;
}
}
}
}
} else {
/* 1 */
assert(1 == v100188);
return SET_RAW_TAG(CJhc_Prim_Prim_$BE);
}
}
static wptr_t A_STD A_MALLOC
fW$__fForeign_Marshal_Alloc_mallocBytes(gc_t gc,arena_t arena,uint32_t v289412169)
{
sptr_t v648;
uintptr_t v156390956 = ((intptr_t)((int32_t)v289412169));
uintptr_t v1076 = ((uintptr_t)malloc((size_t)v156390956));
wptr_t x55 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x55)->a1 = v1076;
wptr_t v929 = x55;
sptr_t v1169168957 = demote(v929);
if (0 == v1076) {
wptr_t v100166;
sptr_t v40405742;
v100166 = fJhc_Basics_$pp(gc,arena,PROMOTE(c13),c28);
sptr_t v23503988 = demote(v100166);
v40405742 = v23503988;
fR$__fJhc_IO_putErrLn__56:;
{ wptr_t v100170 = eval(gc,arena,v40405742);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100170) {
jhc_utf8_putchar((int)10);
SET_RAW_TAG(CJhc_Prim_Prim_$LR);
} else {
sptr_t v110947992;
sptr_t v29534750;
/* ("CJhc.Prim.Prim.:" ni110947992 ni29534750) */
v110947992 = ((struct sCJhc_Prim_Prim_$x3a*)v100170)->a1;
v29534750 = ((struct sCJhc_Prim_Prim_$x3a*)v100170)->a2;
{ uint32_t v68216832;
gc_frame0(gc,1,v29534750);
wptr_t v100172 = eval(gc,arena,v110947992);
v68216832 = ((uint32_t)RAW_GET_UF(v100172));
uint32_t v194635140 = v68216832;
jhc_utf8_putchar((int)v194635140);
v40405742 = v29534750;
goto fR$__fJhc_IO_putErrLn__56;
}
}
}
jhc_exit(255);
} else {
v648 = v1169168957;
}
return promote(v648);
}
static wptr_t A_STD A_MALLOC
fW$__fForeign_Storable_poke(gc_t gc,arena_t arena,wptr_t v289932845,uintptr_t v540822049,wptr_t v148154794)
{
switch (FETCH_TAG(v289932845)) {
case TJhc_Type_Ptr_Ptr:
{ uintptr_t v119514828;
v119514828 = ((struct sCJhc_Type_Ptr_Ptr*)v148154794)->a1;
*((uintptr_t *)(v540822049)) = v119514828;
}
break;
case TJhc_Type_Word_Int32:
{ uint32_t v99988808;
v99988808 = ((struct sCJhc_Type_Word_Int32*)v148154794)->a1;
*((uint32_t *)(v540822049)) = v99988808;
}
break;
case TJhc_Type_Word_Word64:
{ uint64_t v194508210;
v194508210 = ((struct sCJhc_Type_Word_Word64*)v148154794)->a1;
*((uint64_t *)(v540822049)) = v194508210;
}
break;
case TJhc_Type_C_CChar:
{ uint8_t v181754696;
v181754696 = ((uint8_t)RAW_GET_UF(v148154794));
*((uint8_t *)(v540822049)) = v181754696;
}
break;
default: jhc_case_fell_off(__LINE__);
}
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
static wptr_t A_STD A_MALLOC
fW$__fGnttab_putFreeEntry(gc_t gc,arena_t arena,uint32_t v231097895)
{
uint32_t v1896400 = ((uint32_t)hs_local_irq_save((uint32_t)0));
uintptr_t v5691634 = ((uintptr_t)hs_get_gnttab_list());
uint32_t v124940236 = *((uint32_t *)(v5691634));
wptr_t x18 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int32);
((struct sCJhc_Type_Word_Int32*)x18)->a1 = v124940236;
wptr_t v44 = x18;
uintmax_t v223322624 = ((intmax_t)((int32_t)v231097895));
uint32_t v36820130 = ((uint32_t)v223322624);
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_Word_Int32),v5691634,v36820130,v44);
wptr_t x19 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int32);
((struct sCJhc_Type_Word_Int32*)x19)->a1 = v231097895;
wptr_t v711 = x19;
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc,arena,SET_RAW_TAG(TJhc_Type_Word_Int32),v5691634,0,v711);
(uint32_t)hs_local_irq_restore((uint32_t)v1896400);
uintptr_t v98167658 = ((uintptr_t)hs_get_gnttab_sem());
up((HsPtr)v98167658);
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
static wptr_t A_STD A_MALLOC
fW$__fInstance$__iForeign_Storable_pokeByteOff_default(gc_t gc,arena_t arena,wptr_t v1334319657,uintptr_t v1327372863,uint32_t v1336941117,wptr_t v1331436077)
{
uintptr_t v244785092 = ((intptr_t)((int32_t)v1336941117));
uintptr_t v130284332 = (v1327372863 + v244785092);
return fW$__fForeign_Storable_poke(gc,arena,v1334319657,v130284332,v1331436077);
}
static wptr_t A_STD A_MALLOC
fW$__fInstance$__iForeign_Storable_pokeElemOff_default(gc_t gc,arena_t arena,wptr_t v1354635821,uintptr_t v1347689023,uint32_t v1357519421,wptr_t v1351752237)
{
wptr_t v1070;
sptr_t v1074;
uintptr_t v2142;
struct tup1 x17;
sptr_t v1351753296 = demote(v1351752237);
switch (FETCH_TAG(v1354635821)) {
case TJhc_Type_Word_Int32:
{ uint32_t v254814740 = (v1357519421 * sizeof(uint32_t));
uintptr_t v27090756 = ((intptr_t)((int32_t)v254814740));
uintptr_t v2754012 = (v1347689023 + v27090756);
x17.t0 = v1354635821;
x17.t1 = v2754012;
x17.t2 = v1351753296;
}
break;
case TJhc_Type_Word_Word32:
{ uint32_t v80100084 = (v1357519421 * sizeof(uint32_t));
uintptr_t v196335322 = ((intptr_t)((int32_t)v80100084));
uintptr_t v153480260 = (v1347689023 + v196335322);
x17.t0 = v1354635821;
x17.t1 = v153480260;
x17.t2 = v1351753296;
}
break;
case TJhc_Type_C_CChar:
{ uint32_t v10527828 = (v1357519421 * sizeof(uint8_t));
uintptr_t v137248450 = ((intptr_t)((int32_t)v10527828));
uintptr_t v253468966 = (v1347689023 + v137248450);
x17.t0 = v1354635821;
x17.t1 = v253468966;
x17.t2 = v1351753296;
}
break;
default: jhc_case_fell_off(__LINE__);
}
v1070 = x17.t0;
v2142 = x17.t1;
v1074 = x17.t2;
wptr_t v2153 = promote(v1074);
return fW$__fForeign_Storable_poke(gc,arena,v1070,v2142,v2153);
}
static uint16_t A_STD
fW$__fInstance$__iJhc_Class_Ord_$ee_$hc_Prim_Prim_$BE(gc_t gc,arena_t arena,wptr_t v220594016,wptr_t v172)
{
sptr_t v2998634;
sptr_t v89450794;
sptr_t v220594950 = demote(v220594016);
sptr_t v1107 = demote(v172);
v89450794 = v220594950;
v2998634 = v1107;
fW$__fR$__fInstance$__iJhc_Class_Ord_$ee_$hc_Prim_Prim_$BEu25:;
{ { gc_frame0(gc,1,v2998634);
wptr_t v100192 = eval(gc,arena,v89450794);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100192) {
wptr_t v100202 = eval(gc,arena,v2998634);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100202) {
return 1;
} else {
/* ("CJhc.Prim.Prim.:" ni0 ni0) */
return 0;
}
} else {
sptr_t v178;
sptr_t v180;
/* ("CJhc.Prim.Prim.:" ni178 ni180) */
v178 = ((struct sCJhc_Prim_Prim_$x3a*)v100192)->a1;
v180 = ((struct sCJhc_Prim_Prim_$x3a*)v100192)->a2;
{ gc_frame0(gc,2,v178,v180);
wptr_t v100194 = eval(gc,arena,v2998634);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100194) {
return 0;
} else {
sptr_t v182;
sptr_t v184;
/* ("CJhc.Prim.Prim.:" ni182 ni184) */
v182 = ((struct sCJhc_Prim_Prim_$x3a*)v100194)->a1;
v184 = ((struct sCJhc_Prim_Prim_$x3a*)v100194)->a2;
{ uint32_t v228308048;
uint32_t v44725408;
gc_frame0(gc,2,v182,v184);
wptr_t v100196 = eval(gc,arena,v178);
v44725408 = ((uint32_t)RAW_GET_UF(v100196));
wptr_t v100198 = eval(gc,arena,v182);
v228308048 = ((uint32_t)RAW_GET_UF(v100198));
uint16_t v100200 = (v44725408 == v228308048);
if (0 == v100200) {
return 0;
} else {
/* 1 */
assert(1 == v100200);
v89450794 = v180;
v2998634 = v184;
goto fW$__fR$__fInstance$__iJhc_Class_Ord_$ee_$hc_Prim_Prim_$BEu25;
}
}
}
}
}
}
}
}
static wptr_t A_STD A_MALLOC
fW$__fJhc_Inst_Show_showWord(gc_t gc,arena_t arena,uint32_t v1849961523,wptr_t v1402744365)
{
wptr_t v135170744;
uint32_t v178407644;
v178407644 = v1849961523;
v135170744 = v1402744365;
fW$__fR$__fJhc_Inst_Show_showWord__35:;
{ sptr_t v135171576 = demote(v135170744);
uint32_t v253468964 = (v178407644 / 10);
uint32_t v110947994 = (v178407644 % 10);
uintmax_t v56741148 = ((uintmax_t)v110947994);
uint32_t v264446472 = ((uint32_t)v56741148);
uint32_t v606386 = (48 + v264446472);
uint32_t v27511322 = v606386;
{ gc_frame0(gc,1,v135171576);
wptr_t v1028 = RAW_SET_UF(v27511322);
sptr_t v234052570 = demote(v1028);
if (0 == v253468964) {
{ gc_frame0(gc,1,v234052570);
wptr_t x36 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x36)->a1 = v234052570;
((struct sCJhc_Prim_Prim_$x3a*)x36)->a2 = v135171576;
return x36;
}
} else {
{ gc_frame0(gc,1,v234052570);
wptr_t x37 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x37)->a1 = v234052570;
((struct sCJhc_Prim_Prim_$x3a*)x37)->a2 = v135171576;
wptr_t v192 = x37;
v178407644 = v253468964;
v135170744 = v192;
goto fW$__fR$__fJhc_Inst_Show_showWord__35;
}
}
}
}
}
static wptr_t A_STD A_MALLOC
fW$__fJhc_Inst_Show_showWordMax(gc_t gc,arena_t arena,uintmax_t v1643260979,wptr_t v1259220525)
{
wptr_t v124235154;
uintmax_t v109152424;
v109152424 = v1643260979;
v124235154 = v1259220525;
fW$__fR$__fJhc_Inst_Show_showWordMax__32:;
{ sptr_t v124236009 = demote(v124235154);
uintmax_t v61835128 = (v109152424 / 10);
uintmax_t v80100070 = (v109152424 % 10);
uint32_t v52590402 = ((uint32_t)v80100070);
uint32_t v131995446 = (48 + v52590402);
uint32_t v181999694 = v131995446;
{ gc_frame0(gc,1,v124236009);
wptr_t v370 = RAW_SET_UF(v181999694);
sptr_t v45480360 = demote(v370);
if (0 == v61835128) {
{ gc_frame0(gc,1,v45480360);
wptr_t x33 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x33)->a1 = v45480360;
((struct sCJhc_Prim_Prim_$x3a*)x33)->a2 = v124236009;
return x33;
}
} else {
{ gc_frame0(gc,1,v45480360);
wptr_t x34 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x34)->a1 = v45480360;
((struct sCJhc_Prim_Prim_$x3a*)x34)->a2 = v124236009;
wptr_t v177 = x34;
v109152424 = v61835128;
v124235154 = v177;
goto fW$__fR$__fJhc_Inst_Show_showWordMax__32;
}
}
}
}
}
static uint32_t A_STD
fW$__fJhc_List_length(gc_t gc,arena_t arena,sptr_t v893005345)
{
sptr_t v10527824;
uint32_t v137248442;
v10527824 = v893005345;
v137248442 = 0;
fW$__fR$__fJhc_List_253__f__58:;
{ wptr_t v100136 = eval(gc,arena,v10527824);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100136) {
return v137248442;
} else {
sptr_t v477;
/* ("CJhc.Prim.Prim.:" ni0 ni477) */
v477 = ((struct sCJhc_Prim_Prim_$x3a*)v100136)->a2;
uint32_t v78002918 = (1 + v137248442);
v10527824 = v477;
v137248442 = v78002918;
goto fW$__fR$__fJhc_List_253__f__58;
}
}
}
static wptr_t A_STD A_MALLOC
fW$__fList_2__loop(gc_t gc,arena_t arena,uintptr_t v266208116,wptr_t v124940228,uintptr_t v506608159)
{
{ gc_frame0(gc,1,v124940228);
wptr_t x3 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x3)->a1 = v266208116;
wptr_t v194 = x3;
sptr_t v110947984 = demote(v194);
uint16_t v100204 = (v266208116 == v506608159);
if (0 == v100204) {
uintptr_t v67338510;
v67338510 = ((struct sCJhc_Type_Ptr_Ptr*)v124940228)->a1;
uintptr_t v137248436 = ((uintptr_t)hs_list_next((HsPtr)v67338510));
{ wptr_t v1959;
gc_frame0(gc,1,v110947984);
wptr_t x4 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x4)->a1 = v137248436;
wptr_t v1072 = x4;
v1959 = fW$__fList_2__loop(gc,arena,v67338510,v1072,v506608159);
sptr_t v68153296 = demote(v1959);
{ gc_frame0(gc,1,v68153296);
wptr_t x5 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x5)->a1 = v110947984;
((struct sCJhc_Prim_Prim_$x3a*)x5)->a2 = v68153296;
return x5;
}
}
} else {
/* 1 */
assert(1 == v100204);
return SET_RAW_TAG(CJhc_Prim_Prim_$BE);
}
}
}
static wptr_t A_STD A_MALLOC
fW$__fList_toList(gc_t gc,arena_t arena,uintptr_t v506608297)
{
uintptr_t v113838346 = ((uintptr_t)hs_list_next((HsPtr)v506608297));
uintptr_t v267751050 = ((uintptr_t)hs_list_next((HsPtr)v113838346));
wptr_t x24 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x24)->a1 = v267751050;
wptr_t v87 = x24;
return fW$__fList_2__loop(gc,arena,v113838346,v87,v506608297);
}
static wptr_t A_STD A_MALLOC
fW$__fR$__fXenbus_toList(gc_t gc,arena_t arena,uintptr_t v115160438)
{
wptr_t x6 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x6)->a1 = v115160438;
wptr_t v580 = x6;
sptr_t v216085090 = demote(v580);
if (0 == v115160438) {
return SET_RAW_TAG(CJhc_Prim_Prim_$BE);
} else {
uintptr_t v254 = ((uintptr_t)hs_get_watch_next((HsPtr)v115160438));
{ wptr_t v244;
gc_frame0(gc,1,v216085090);
v244 = fW$__fR$__fXenbus_toList(gc,arena,v254);
sptr_t v216085088 = demote(v244);
{ gc_frame0(gc,1,v216085088);
wptr_t x7 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x7)->a1 = v216085090;
((struct sCJhc_Prim_Prim_$x3a*)x7)->a2 = v216085088;
return x7;
}
}
}
}
static wptr_t A_STD A_MALLOC
fW$__fSched_createThread(gc_t gc,arena_t arena,uintptr_t v359939625,uintptr_t v367279665,uintptr_t v370425383)
{
uintptr_t v264585908 = ((uintptr_t)arch_create_thread((char*)v359939625,(HsFunPtr)v367279665,(HsPtr)v370425383));
hs_set_thread_flags((HsPtr)v264585908,(uint32_t)0);
hs_set_thread_wakeup_time((HsPtr)v264585908,(int64_t)0);
uint32_t v151155888 = ((uint32_t)hs_get_thread_flags((HsPtr)v264585908));
uint32_t v239029636 = (v151155888 | RUNNABLE_FLAG);
hs_set_thread_flags((HsPtr)v264585908,(uint32_t)v239029636);
uint32_t v226124062 = ((uint32_t)hs_local_irq_save((uint32_t)0));
uintptr_t v126148286 = ((uintptr_t)hs_get_idle_thread());
if (0 == v126148286) {
uint16_t v100112 = (v367279665 == ((uintptr_t)&hs_idle_thread));
if (0 == v100112) {
fUtil_printk(gc,arena,c141);
hs_bug();
} else {
/* 1 */
assert(1 == v100112);
}
} else {
uintptr_t v256943494 = ((uintptr_t)hs_get_thread_list((HsPtr)v264585908));
uintptr_t v221385240 = ((uintptr_t)hs_get_thread_list((HsPtr)v126148286));
minios_list_add_tail((HsPtr)v256943494,(HsPtr)v221385240);
}
(uint32_t)hs_local_irq_restore((uint32_t)v226124062);
wptr_t x65 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x65)->a1 = v264585908;
return x65;
}
static wptr_t A_STD A_MALLOC
fW$__fx22233080(gc_t gc,arena_t arena,uintptr_t v550128169)
{
return fW$__fSched_createThread(gc,arena,v550128169,(uintptr_t)&hs_idle_thread,0);
}
static wptr_t A_STD A_MALLOC
fXenbus_thread(gc_t gc,arena_t arena,wptr_t v1857293341)
{
fR$__fXenbus_thread__102:;
{ uintptr_t v209623820 = ((uintptr_t)hs_get_xenstore_buf());
uint32_t v102549690 = ((uint32_t)hs_get_xenstore_domain_interface_rsp_prod((HsPtr)v209623820));
uint32_t v92909418 = ((uint32_t)hs_get_xenstore_domain_interface_rsp_cons((HsPtr)v209623820));
uint32_t v215884492 = (v102549690 - v92909418);
uint16_t v100042 = (v215884492 < sizeof(struct xsd_sockmsg));
if (0 == v100042) {
uintptr_t v40099008;
hs_rmb();
uintptr_t v118138956 = ((uintptr_t)hs_get_xenstore_domain_interface_rsp((HsPtr)v209623820));
uint32_t v280 = ((uint32_t)hs_get_xenstore_domain_interface_rsp_cons((HsPtr)v209623820));
uint32_t v1334 = ((uint32_t)MASK_XENSTORE_IDX((uint32_t)v280));
v40099008 = ((struct sCJhc_Type_Ptr_Ptr*)v1857293341)->a1;
uintmax_t v58231586 = ((uintmax_t)v1334);
uint32_t v264841570 = ((uint32_t)v58231586);
memcpy_from_ring((uint8_t*)v118138956,(uint8_t*)v40099008,(int)v264841570,(int)((uint32_t)((uintmax_t)sizeof(struct xsd_sockmsg))));
uint32_t v120087508 = ((uint32_t)hs_get_xsd_sockmsg_len((HsPtr)v40099008));
uint32_t v209623816 = (v102549690 - v92909418);
uint32_t v154420602 = (sizeof(struct xsd_sockmsg) + v120087508);
uint16_t v100046 = (v209623816 < v154420602);
if (0 == v100046) {
uint32_t v1053 = ((uint32_t)hs_get_xsd_sockmsg_type((HsPtr)v40099008));
uint16_t v100048 = (v1053 == XS_WATCH_EVENT);
if (0 == v100048) {
uint32_t v266208114 = ((uint32_t)hs_get_xsd_sockmsg_req_id((HsPtr)v40099008));
uintptr_t v196335312 = ((uintptr_t)hs_get_req_info((uint32_t)v266208114));
uintptr_t v108955764 = ((uintptr_t)hs_make_msg((uint32_t)v120087508));
hs_set_xenbus_req_info_reply((HsPtr)v196335312,(uint8_t*)v108955764);
uint32_t v103925138 = ((uint32_t)MASK_XENSTORE_IDX((uint32_t)v92909418));
uint32_t v167886982 = (v120087508 + sizeof(struct xsd_sockmsg));
uintmax_t v235480816 = ((uintmax_t)v167886982);
uint32_t v264192726 = ((uint32_t)v235480816);
uintmax_t v218886262 = ((uintmax_t)v103925138);
uint32_t v174020696 = ((uint32_t)v218886262);
memcpy_from_ring((uint8_t*)v118138956,(uint8_t*)v108955764,(int)v174020696,(int)v264192726);
uint32_t v108823170 = (v92909418 + v120087508);
uint32_t v135594734 = (v108823170 + sizeof(struct xsd_sockmsg));
hs_set_xenstore_domain_interface_rsp_cons((HsPtr)v209623820,(uint32_t)v135594734);
uint32_t v88032706 = ((uint32_t)hs_get_xsd_sockmsg_req_id((HsPtr)v40099008));
uintptr_t v983 = ((uintptr_t)hs_get_waitq((uint32_t)v88032706));
wake_up((uint8_t*)v983);
} else {
wptr_t v916;
/* 1 */
assert(1 == v100048);
uintmax_t v220594014 = ((uintmax_t)v120087508);
uint32_t v128764926 = ((uint32_t)v220594014);
uintptr_t v117740412 = ((uintptr_t)hs_make_event((int)v128764926));
uint32_t v187526658 = (v92909418 + sizeof(struct xsd_sockmsg));
uint32_t v260952212 = ((uint32_t)MASK_XENSTORE_IDX((uint32_t)v187526658));
uintmax_t v1780406 = ((uintmax_t)v120087508);
uint32_t v206629274 = ((uint32_t)v1780406);
uintptr_t v166168412 = (v117740412 + ((intptr_t)((int32_t)sizeof(struct xenbus_event))));
uintmax_t v124235152 = ((uintmax_t)v260952212);
uint32_t v192968706 = ((uint32_t)v124235152);
memcpy_from_ring((uint8_t*)v118138956,(uint8_t*)v166168412,(int)v192968706,(int)v206629274);
uintptr_t v142194672 = (v117740412 + ((intptr_t)((int32_t)sizeof(struct xenbus_event))));
hs_set_xenbus_event_path((HsPtr)v117740412,(char*)v142194672);
uintptr_t v103925144 = (v117740412 + ((intptr_t)((int32_t)sizeof(struct xenbus_event))));
uint32_t v264446466 = ((uint32_t)strlen((char*)v103925144));
uintptr_t v239029634 = (v117740412 + ((intptr_t)((int32_t)sizeof(struct xenbus_event))));
uintptr_t v116463170 = ((intptr_t)((int32_t)v264446466));
uintptr_t v29375122 = (v239029634 + v116463170);
uintptr_t v154420600 = (1 + v29375122);
hs_set_xenbus_event_token((HsPtr)v117740412,(char*)v154420600);
uint32_t v108955762 = (v92909418 + v120087508);
uint32_t v103925136 = (v108955762 + sizeof(struct xsd_sockmsg));
hs_set_xenstore_domain_interface_rsp_cons((HsPtr)v209623820,(uint32_t)v103925136);
uintptr_t v59642622 = ((uintptr_t)hs_get_xenbus_event_token((HsPtr)v117740412));
v916 = fW$__fForeign_C_String_peekCAString(gc,arena,v59642622);
sptr_t v90861648 = demote(v916);
{ wptr_t v191;
gc_frame0(gc,1,v90861648);
v191 = fXenbus_watchList(gc,arena);
{ sptr_t v110207576;
wptr_t v200;
gc_frame0(gc,1,v191);
wptr_t x103 = s_alloc(gc,arena,public_caches(arena)->cP2__Xenbus_thread$d2);
SET_MEM_TAG((struct sP2__Xenbus_thread$d2*)x103,P2__Xenbus_thread$d2);
((struct sP2__Xenbus_thread$d2*)x103)->a1 = v90861648;
wptr_t v628 = x103;
v110207576 = fControl_Monad_filterM(gc,arena,v628,v191);
v200 = fJhc_Monad_60__go(gc,arena,v110207576);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v200) {
} else {
sptr_t v136238522;
uintptr_t v136238518;
/* ("CJhc.Prim.Prim.:" ni136238522 ni0) */
v136238522 = ((struct sCJhc_Prim_Prim_$x3a*)v200)->a1;
wptr_t v100052 = eval(gc,arena,v136238522);
v136238518 = ((struct sCJhc_Type_Ptr_Ptr*)v100052)->a1;
hs_add_head((HsPtr)v117740412,(HsPtr*)v136238518);
uintptr_t v196 = ((uintptr_t)hs_get_watch_queue());
wake_up((uint8_t*)v196);
}
}
}
}
goto fR$__fXenbus_thread__102;
} else {
/* 1 */
assert(1 == v100046);
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
} else {
/* 1 */
assert(1 == v100042);
return SET_RAW_TAG(CJhc_Prim_Prim_$LR);
}
}
}
static sptr_t A_STD A_MALLOC
fXenbus_thread$d2(gc_t gc,arena_t arena,sptr_t v228308040,sptr_t v1906576409)
{
{ wptr_t v875;
uintptr_t v198;
gc_frame0(gc,1,v228308040);
wptr_t v100184 = eval(gc,arena,v1906576409);
v198 = ((struct sCJhc_Type_Ptr_Ptr*)v100184)->a1;
uintptr_t v264446464 = ((uintptr_t)hs_get_watch_token((HsPtr)v198));
v875 = fW$__fForeign_C_String_peekCAString(gc,arena,v264446464);
wptr_t v881 = promote(v228308040);
{ gc_frame0(gc,2,v875,v881);
sptr_t x31 = s_alloc(gc,arena,public_caches(arena)->cFXenbus_thread$d3);
((struct sFXenbus_thread$d3*)x31)->head = TO_FPTR(&E__fXenbus_thread$d3);
((struct sFXenbus_thread$d3*)x31)->a1 = v875;
((struct sFXenbus_thread$d3*)x31)->a2 = v881;
return MKLAZY(x31);
}
}
}
static wptr_t A_STD A_MALLOC
fXenbus_thread$d3(gc_t gc,arena_t arena,wptr_t v59642626,wptr_t v136238520)
{
uint16_t v239029638;
v239029638 = fW$__fInstance$__iJhc_Class_Ord_$ee_$hc_Prim_Prim_$BE(gc,arena,v136238520,v59642626);
return RAW_SET_UF(v239029638);
}
static wptr_t A_STD A_MALLOC
fXenbus_watchList(gc_t gc,arena_t arena)
{
uintptr_t v115160444 = ((uintptr_t)hs_get_watches());
return fW$__fR$__fXenbus_toList(gc,arena,v115160444);
}
static sptr_t A_STD A_MALLOC
fXenbus_xenbusReadInteger(gc_t gc,arena_t arena,sptr_t v716)
{
uintptr_t v209623818;
wptr_t v100138 = eval(gc,arena,v716);
v209623818 = ((struct sCJhc_Type_Ptr_Ptr*)v100138)->a1;
uint32_t v717 = ((uint32_t)xenbus_read_integer((char*)v209623818));
wptr_t x57 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Word_Int);
((struct sCJhc_Type_Word_Int*)x57)->a1 = v717;
wptr_t v945 = x57;
return demote(v945);
}
static wptr_t A_STD A_MALLOC
fXenconsRing_xenconsRingInit(gc_t gc,arena_t arena)
{
uint32_t v237919336 = ((uint32_t)hs_get_evtch());
if (0 == v237919336) {
} else {
wptr_t v501;
uintptr_t v131605198;
v501 = fForeign_C_String_newCAString(gc,arena,PROMOTE(c42));
uint64_t v216085096 = ((uint64_t)hs_get_mfn());
uintptr_t v194635142 = ((uintptr_t)hs_mfn_to_virt((uint64_t)v216085096));
v131605198 = ((struct sCJhc_Type_Ptr_Ptr*)v501)->a1;
uintptr_t v230320878 = ((uintptr_t)hs_new_consfront_dev());
hs_set_consfront_dev_dom((HsPtr)v230320878,(uint16_t)0);
hs_set_consfront_dev_ring((HsPtr)v230320878,(HsPtr)v194635142);
hs_set_consfront_dev_ring_ref((HsPtr)v230320878,(uint32_t)0);
hs_set_consfront_dev_evtchn((HsPtr)v230320878,(uint32_t)v237919336);
hs_set_consfront_dev_nodename((HsPtr)v230320878,(char*)v131605198);
hs_set_consfront_dev_backend((HsPtr)v230320878,(char*)0);
hs_set_consfront_dev_events((HsPtr)v230320878,(HsPtr)0);
uint32_t v59642632 = ((uint32_t)bind_evtchn((uint32_t)v237919336,(HsFunPtr)((uintptr_t)&hs__handle_input),(uint8_t*)v230320878));
if (0 == v59642632) {
sptr_t x62 = s_alloc(gc,arena,public_caches(arena)->cFXenconsRing_xenconsRingInit$d2);
((struct sFXenconsRing_xenconsRingInit$d2*)x62)->head = TO_FPTR(&E__fXenconsRing_xenconsRingInit$d2);
((struct sFXenconsRing_xenconsRingInit$d2*)x62)->a1 = v59642632;
sptr_t v163205522 = MKLAZY(x62);
{ gc_frame0(gc,1,v163205522);
sptr_t x63 = s_alloc(gc,arena,public_caches(arena)->cFJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x63)->head = TO_FPTR(&E__fJhc_Basics_$pp);
((struct sFJhc_Basics_$pp*)x63)->a1 = PROMOTE(c77);
((struct sFJhc_Basics_$pp*)x63)->a2 = v163205522;
sptr_t v166548768 = MKLAZY(x63);
fUtil_printk(gc,arena,v166548768);
}
} else {
unmask_evtchn((uint32_t)v237919336);
hs_notify_daemon((HsPtr)v230320878);
}
}
return PROMOTE(c78);
}
static wptr_t A_STD A_MALLOC
fXenconsRing_xenconsRingInit$d2(gc_t gc,arena_t arena,uint32_t v76483310)
{
wptr_t v100162;
uintmax_t v132127020 = ((uintmax_t)v76483310);
uint32_t v118721818 = ((uint32_t)v132127020);
v100162 = fW$__fJhc_Inst_Show_showWord(gc,arena,v118721818,SET_RAW_TAG(CJhc_Prim_Prim_$BE));
return fJhc_Basics_$pp(gc,arena,v100162,c2);
}
static void A_STD
ftheMain(gc_t gc,arena_t arena)
{
return;
}
static wptr_t A_STD A_MALLOC
fx57580220(gc_t gc,arena_t arena,sptr_t v124940244)
{
wptr_t v100018 = eval(gc,arena,v124940244);
if (SET_RAW_TAG(CJhc_Prim_Prim_$BE) == v100018) {
return v100018;
} else {
sptr_t v29534752;
sptr_t v40405754;
/* ("CJhc.Prim.Prim.:" ni29534752 ni40405754) */
v29534752 = ((struct sCJhc_Prim_Prim_$x3a*)v100018)->a1;
v40405754 = ((struct sCJhc_Prim_Prim_$x3a*)v100018)->a2;
{ uintptr_t v162;
gc_frame0(gc,1,v40405754);
wptr_t v100020 = eval(gc,arena,v29534752);
v162 = ((struct sCJhc_Type_Ptr_Ptr*)v100020)->a1;
uintptr_t v158 = ((uintptr_t)hs_get_entry((HsPtr)v162));
wptr_t x10 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Type_Ptr_Ptr);
((struct sCJhc_Type_Ptr_Ptr*)x10)->a1 = v158;
wptr_t v1589 = x10;
sptr_t v80100072 = demote(v1589);
{ wptr_t v89;
gc_frame0(gc,1,v80100072);
v89 = fx57580220(gc,arena,v40405754);
sptr_t v10527826 = demote(v89);
{ gc_frame0(gc,1,v10527826);
wptr_t x11 = s_alloc(gc,arena,public_caches(arena)->cCJhc_Prim_Prim_$x3a);
((struct sCJhc_Prim_Prim_$x3a*)x11)->a1 = v80100072;
((struct sCJhc_Prim_Prim_$x3a*)x11)->a2 = v10527826;
return x11;
}
}
}
}
}
void
get_time_values_from_xen(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_get__time__values__from__xen(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
hs__handle_input(uint32_t x40,uint8_t* x41,uint8_t* x42)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_hs____handle__input(gc,arena,(uint32_t)x40,(uintptr_t)x41,(uintptr_t)x42);
jhc_alloc_fini(gc,arena);
}
void
hs_block(HsPtr x125)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_hs__block(gc,arena,(uintptr_t)x125);
jhc_alloc_fini(gc,arena);
}
HsPtr
hs_create_thread(char* x66,HsFunPtr x67,uint8_t* x68)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
HsPtr x69 = ((HsPtr)fFE$__CCall_hs__create__thread(gc,arena,(uintptr_t)x66,(uintptr_t)x67,(uintptr_t)x68));
jhc_alloc_fini(gc,arena);
return x69;
}
void
hs_idle_thread(uint8_t* x123)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_hs__idle__thread(gc,arena,(uintptr_t)x123);
jhc_alloc_fini(gc,arena);
}
void
hs_xenbus_thread(uint8_t* x106)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_hs__xenbus__thread(gc,arena,(uintptr_t)x106);
jhc_alloc_fini(gc,arena);
}
uint8_t*
hs_xencons_ring_init(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
uint8_t* x64 = ((uint8_t*)fFE$__CCall_hs__xencons__ring__init(gc,arena));
jhc_alloc_fini(gc,arena);
return x64;
}
void
init_console(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_init__console(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
init_gnttab(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_init__gnttab(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
init_sched(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_init__sched(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
init_time(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_init__time(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
init_xenbus(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_init__xenbus(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
put_free_entry(int32_t x20)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_put__free__entry(gc,arena,(uint32_t)x20);
jhc_alloc_fini(gc,arena);
}
void
schedule(void)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_schedule(gc,arena);
jhc_alloc_fini(gc,arena);
}
void
timer_handler(uint32_t x46,uint8_t* x47,uint8_t* x48)
{
arena_t arena;
gc_t gc;
gc = NULL;
arena = NULL;
jhc_alloc_init(&gc,&arena);
jhc_hs_init(gc,arena);
fFE$__CCall_timer__handler(gc,arena,(uint32_t)x46,(uintptr_t)x47,(uintptr_t)x48);
jhc_alloc_fini(gc,arena);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment