=> Bootstrap dependency digest>=20211023: found digest-20220214 WARNING: [license.mk] Every package should define a LICENSE. ===> Building for nhc98-1.22nb2 cd src/runtime; /opt/pkg/bin/gmake all nhc98heap gmake[1]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime' cd Kernel; /opt/pkg/bin/gmake links gmake[2]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Kernel' gmake[2]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Kernel' cd Integer; /opt/pkg/bin/gmake links gmake[2]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Integer' /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gmake[2]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Integer' cd Builtin; /opt/pkg/bin/gmake links gmake[2]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Builtin' /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gmake[2]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Builtin' cd Mk; /opt/pkg/bin/gmake links gmake[2]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Mk' gmake[2]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Mk' mkdir -p /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime mkdir -p /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel || /usr/bin/true mkdir -p /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Mk || /usr/bin/true mkdir -p /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Builtin || /usr/bin/true mkdir -p /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer || /usr/bin/true cd Kernel; /opt/pkg/bin/gmake all gmake[2]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Kernel' Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/bytecode.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/mutlib.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/newmacros.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/node.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/stableptr.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/newbytecode.h already exists. Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/bytecode_o.h already exists. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/mutator.o mutator.c mutator.c:184:27: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEEDHEAP_I32): { HEAP_CHECK_VAP(32); } Break; ^~~~~~~~~~~~~~~~~~ ./mutlib.h:67:57: note: expanded from macro 'HEAP_CHECK_VAP' #define HEAP_CHECK_VAP(c) if(hp+(c)+BUFFER>(NodePtr)sp){FORCE_GC(c);} ^~~~~~~~~~~ ./mutlib.h:50:2: note: expanded from macro 'FORCE_GC' POP_STATE(0); \ ^~~~~~~~~~~~ ./mutlib.h:40:58: note: expanded from macro 'POP_STATE' sp+=d;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:185:47: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEEDHEAP_P1): { Int i = *ip++; HEAP_CHECK_VAP(i); } Break; ^~~~~~~~~~~~~~~~~ ./mutlib.h:67:57: note: expanded from macro 'HEAP_CHECK_VAP' #define HEAP_CHECK_VAP(c) if(hp+(c)+BUFFER>(NodePtr)sp){FORCE_GC(c);} ^~~~~~~~~~~ ./mutlib.h:50:2: note: expanded from macro 'FORCE_GC' POP_STATE(0); \ ^~~~~~~~~~~~ ./mutlib.h:40:58: note: expanded from macro 'POP_STATE' sp+=d;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:186:86: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEEDHEAP_P2): { Int i = HEAPOFFSET(ip[0]) + (HEAPOFFSET(ip[1])<<8); ip+=2; HEAP_CHECK_VAP(i);} Break; ^~~~~~~~~~~~~~~~~ ./mutlib.h:67:57: note: expanded from macro 'HEAP_CHECK_VAP' #define HEAP_CHECK_VAP(c) if(hp+(c)+BUFFER>(NodePtr)sp){FORCE_GC(c);} ^~~~~~~~~~~ ./mutlib.h:50:2: note: expanded from macro 'FORCE_GC' POP_STATE(0); \ ^~~~~~~~~~~~ ./mutlib.h:40:58: note: expanded from macro 'POP_STATE' sp+=d;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:188:29: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEEDSTACK_I16): { HEAP_CHECK_VAP(16); TPROF_NEEDSTACK_I16; } Break; ^~~~~~~~~~~~~~~~~~ ./mutlib.h:67:57: note: expanded from macro 'HEAP_CHECK_VAP' #define HEAP_CHECK_VAP(c) if(hp+(c)+BUFFER>(NodePtr)sp){FORCE_GC(c);} ^~~~~~~~~~~ ./mutlib.h:50:2: note: expanded from macro 'FORCE_GC' POP_STATE(0); \ ^~~~~~~~~~~~ ./mutlib.h:40:58: note: expanded from macro 'POP_STATE' sp+=d;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:189:48: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEEDSTACK_P1): { Int i = *ip++; HEAP_CHECK_VAP(i); } Break; ^~~~~~~~~~~~~~~~~ ./mutlib.h:67:57: note: expanded from macro 'HEAP_CHECK_VAP' #define HEAP_CHECK_VAP(c) if(hp+(c)+BUFFER>(NodePtr)sp){FORCE_GC(c);} ^~~~~~~~~~~ ./mutlib.h:50:2: note: expanded from macro 'FORCE_GC' POP_STATE(0); \ ^~~~~~~~~~~~ ./mutlib.h:40:58: note: expanded from macro 'POP_STATE' sp+=d;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:190:86: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEEDSTACK_P2): { Int i = HEAPOFFSET(ip[0]) + (HEAPOFFSET(ip[1])<<8); ip+=2; HEAP_CHECK_VAP(i); } Break; ^~~~~~~~~~~~~~~~~ ./mutlib.h:67:57: note: expanded from macro 'HEAP_CHECK_VAP' #define HEAP_CHECK_VAP(c) if(hp+(c)+BUFFER>(NodePtr)sp){FORCE_GC(c);} ^~~~~~~~~~~ ./mutlib.h:50:2: note: expanded from macro 'FORCE_GC' POP_STATE(0); \ ^~~~~~~~~~~~ ./mutlib.h:40:58: note: expanded from macro 'POP_STATE' sp+=d;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:194:26: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] { nodeptr = *sp++; IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:247:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:251:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:255:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:259:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:264:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:269:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:274:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:279:24: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:297:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:334:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:349:7: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:416:7: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:424:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:476:5: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] POP_STATEVP; ^~~~~~~~~~~ ./mutlib.h:38:70: note: expanded from macro 'POP_STATEVP' sp=fp;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++; *sp=vapptr;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:483:5: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] POP_STATEVP; ^~~~~~~~~~~ ./mutlib.h:38:70: note: expanded from macro 'POP_STATEVP' sp=fp;ip=(CodePtr)*sp++;fp=(NodePtr*)*sp++; *sp=vapptr;vapptr=fp[2];IND_REMOVE(vapptr);constptr=VAP_CONST(vapptr); ^~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:542:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ADD_W): PRIM_OP2_INT(+); ^~~~~~~~~~~~~~~ mutator.c:534:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:542:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ADD_W): PRIM_OP2_INT(+); ^~~~~~~~~~~~~~~ mutator.c:536:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:543:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SUB_W): PRIM_OP2_INT(-); ^~~~~~~~~~~~~~~ mutator.c:534:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:543:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SUB_W): PRIM_OP2_INT(-); ^~~~~~~~~~~~~~~ mutator.c:536:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:544:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(MUL_W): PRIM_OP2_INT(*); ^~~~~~~~~~~~~~~ mutator.c:534:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:544:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(MUL_W): PRIM_OP2_INT(*); ^~~~~~~~~~~~~~~ mutator.c:536:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:545:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(QUOT): PRIM_OP2_INT(/); ^~~~~~~~~~~~~~~ mutator.c:534:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:545:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(QUOT): PRIM_OP2_INT(/); ^~~~~~~~~~~~~~~ mutator.c:536:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:546:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(REM): PRIM_OP2_INT(%); ^~~~~~~~~~~~~~~ mutator.c:534:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:546:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(REM): PRIM_OP2_INT(%); ^~~~~~~~~~~~~~~ mutator.c:536:2: note: expanded from macro 'PRIM_OP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:551:7: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:560:7: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:573:7: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:594:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EQ_W): PRIM_CMP2_INT(==); ^~~~~~~~~~~~~~~~~ mutator.c:588:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:594:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EQ_W): PRIM_CMP2_INT(==); ^~~~~~~~~~~~~~~~~ mutator.c:590:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:595:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NE_W): PRIM_CMP2_INT(!=); ^~~~~~~~~~~~~~~~~ mutator.c:588:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:595:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NE_W): PRIM_CMP2_INT(!=); ^~~~~~~~~~~~~~~~~ mutator.c:590:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:596:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LT_W): PRIM_CMP2_INT(<); ^~~~~~~~~~~~~~~~ mutator.c:588:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:596:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LT_W): PRIM_CMP2_INT(<); ^~~~~~~~~~~~~~~~ mutator.c:590:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:597:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LE_W): PRIM_CMP2_INT(<=); ^~~~~~~~~~~~~~~~~ mutator.c:588:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:597:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LE_W): PRIM_CMP2_INT(<=); ^~~~~~~~~~~~~~~~~ mutator.c:590:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:598:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GT_W): PRIM_CMP2_INT(>); ^~~~~~~~~~~~~~~~ mutator.c:588:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:598:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GT_W): PRIM_CMP2_INT(>); ^~~~~~~~~~~~~~~~ mutator.c:590:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:599:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GE_W): PRIM_CMP2_INT(>=); ^~~~~~~~~~~~~~~~~ mutator.c:588:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:599:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GE_W): PRIM_CMP2_INT(>=); ^~~~~~~~~~~~~~~~~ mutator.c:590:5: note: expanded from macro 'PRIM_CMP2_INT' IND_REMOVE(nodeptr); ASSERT_W(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = GET_INT_VALUE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:613:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ADD_F): PRIM_OP2_FLOAT(+); ^~~~~~~~~~~~~~~~~ mutator.c:605:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:613:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ADD_F): PRIM_OP2_FLOAT(+); ^~~~~~~~~~~~~~~~~ mutator.c:607:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:614:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SUB_F): PRIM_OP2_FLOAT(-); ^~~~~~~~~~~~~~~~~ mutator.c:605:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:614:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SUB_F): PRIM_OP2_FLOAT(-); ^~~~~~~~~~~~~~~~~ mutator.c:607:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:615:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(MUL_F): PRIM_OP2_FLOAT(*); ^~~~~~~~~~~~~~~~~ mutator.c:605:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:615:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(MUL_F): PRIM_OP2_FLOAT(*); ^~~~~~~~~~~~~~~~~ mutator.c:607:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:616:18: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SLASH_F): PRIM_OP2_FLOAT(/); ^~~~~~~~~~~~~~~~~ mutator.c:605:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:616:18: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SLASH_F): PRIM_OP2_FLOAT(/); ^~~~~~~~~~~~~~~~~ mutator.c:607:2: note: expanded from macro 'PRIM_OP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:621:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:623:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:638:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEG_F): PRIM_OP1_FLOAT(-a); ^~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:639:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ABS_F): PRIM_OP1_FLOAT((a<0?-a:a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:640:19: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SIGNUM_F): PRIM_OP1_FLOAT((a<0?-1.0:(a==0?0.0:1.0))); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:641:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EXP_F): PRIM_OP1_FLOAT((float)exp((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:642:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LOG_F):PRIM_OP1_FLOAT((float)log((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:643:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SQRT_F):PRIM_OP1_FLOAT((float)sqrt((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:644:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SIN_F):PRIM_OP1_FLOAT((float)sin((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:645:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(COS_F):PRIM_OP1_FLOAT((float)cos((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:646:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(TAN_F):PRIM_OP1_FLOAT((float)tan((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:647:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ASIN_F):PRIM_OP1_FLOAT((float)asin((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:648:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ACOS_F):PRIM_OP1_FLOAT((float)acos((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:649:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ATAN_F):PRIM_OP1_FLOAT((float)atan((double)a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:632:2: note: expanded from macro 'PRIM_OP1_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:660:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EQ_F): PRIM_CMP2_FLOAT(==); ^~~~~~~~~~~~~~~~~~~ mutator.c:654:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:660:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EQ_F): PRIM_CMP2_FLOAT(==); ^~~~~~~~~~~~~~~~~~~ mutator.c:656:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:661:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NE_F): PRIM_CMP2_FLOAT(!=); ^~~~~~~~~~~~~~~~~~~ mutator.c:654:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:661:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NE_F): PRIM_CMP2_FLOAT(!=); ^~~~~~~~~~~~~~~~~~~ mutator.c:656:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:662:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LT_F): PRIM_CMP2_FLOAT(<); ^~~~~~~~~~~~~~~~~~ mutator.c:654:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:662:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LT_F): PRIM_CMP2_FLOAT(<); ^~~~~~~~~~~~~~~~~~ mutator.c:656:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:663:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LE_F): PRIM_CMP2_FLOAT(<=); ^~~~~~~~~~~~~~~~~~~ mutator.c:654:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:663:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LE_F): PRIM_CMP2_FLOAT(<=); ^~~~~~~~~~~~~~~~~~~ mutator.c:656:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:664:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GT_F): PRIM_CMP2_FLOAT(>); ^~~~~~~~~~~~~~~~~~ mutator.c:654:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:664:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GT_F): PRIM_CMP2_FLOAT(>); ^~~~~~~~~~~~~~~~~~ mutator.c:656:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:665:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GE_F): PRIM_CMP2_FLOAT(>=); ^~~~~~~~~~~~~~~~~~~ mutator.c:654:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:665:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GE_F): PRIM_CMP2_FLOAT(>=); ^~~~~~~~~~~~~~~~~~~ mutator.c:656:5: note: expanded from macro 'PRIM_CMP2_FLOAT' IND_REMOVE(nodeptr); ASSERT_F(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_float_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:680:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ADD_D): PRIM_OP2_DOUBLE(+); ^~~~~~~~~~~~~~~~~~ mutator.c:672:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:680:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ADD_D): PRIM_OP2_DOUBLE(+); ^~~~~~~~~~~~~~~~~~ mutator.c:674:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:681:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SUB_D): PRIM_OP2_DOUBLE(-); ^~~~~~~~~~~~~~~~~~ mutator.c:672:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:681:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SUB_D): PRIM_OP2_DOUBLE(-); ^~~~~~~~~~~~~~~~~~ mutator.c:674:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:682:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(MUL_D): PRIM_OP2_DOUBLE(*); ^~~~~~~~~~~~~~~~~~ mutator.c:672:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:682:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(MUL_D): PRIM_OP2_DOUBLE(*); ^~~~~~~~~~~~~~~~~~ mutator.c:674:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:683:18: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SLASH_D): PRIM_OP2_DOUBLE(/); ^~~~~~~~~~~~~~~~~~ mutator.c:672:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:683:18: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SLASH_D): PRIM_OP2_DOUBLE(/); ^~~~~~~~~~~~~~~~~~ mutator.c:674:2: note: expanded from macro 'PRIM_OP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:688:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:690:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:705:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NEG_D): PRIM_OP1_DOUBLE(-a); ^~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:706:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ABS_D): PRIM_OP1_DOUBLE((a<0?-a:a)); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:707:19: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SIGNUM_D): PRIM_OP1_DOUBLE((a<0?-1.0:(a==0?0.0:1.0))); ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:708:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EXP_D): PRIM_OP1_DOUBLE(exp(a)); ^~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:709:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LOG_D):PRIM_OP1_DOUBLE(log(a)); ^~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:710:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SQRT_D):PRIM_OP1_DOUBLE(sqrt(a)); ^~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:711:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(SIN_D):PRIM_OP1_DOUBLE(sin(a)); ^~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:712:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(COS_D):PRIM_OP1_DOUBLE(cos(a)); ^~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:713:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(TAN_D):PRIM_OP1_DOUBLE(tan(a)); ^~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:714:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ASIN_D):PRIM_OP1_DOUBLE(asin(a)); ^~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:715:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ACOS_D):PRIM_OP1_DOUBLE(acos(a)); ^~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:716:16: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(ATAN_D):PRIM_OP1_DOUBLE(atan(a)); ^~~~~~~~~~~~~~~~~~~~~~~~ mutator.c:699:2: note: expanded from macro 'PRIM_OP1_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:727:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EQ_D): PRIM_CMP2_DOUBLE(==); ^~~~~~~~~~~~~~~~~~~~ mutator.c:721:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:727:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(EQ_D): PRIM_CMP2_DOUBLE(==); ^~~~~~~~~~~~~~~~~~~~ mutator.c:723:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:728:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NE_D): PRIM_CMP2_DOUBLE(!=); ^~~~~~~~~~~~~~~~~~~~ mutator.c:721:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:728:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(NE_D): PRIM_CMP2_DOUBLE(!=); ^~~~~~~~~~~~~~~~~~~~ mutator.c:723:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:729:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LT_D): PRIM_CMP2_DOUBLE(<); ^~~~~~~~~~~~~~~~~~~ mutator.c:721:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:729:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LT_D): PRIM_CMP2_DOUBLE(<); ^~~~~~~~~~~~~~~~~~~ mutator.c:723:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:730:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LE_D): PRIM_CMP2_DOUBLE(<=); ^~~~~~~~~~~~~~~~~~~~ mutator.c:721:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:730:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(LE_D): PRIM_CMP2_DOUBLE(<=); ^~~~~~~~~~~~~~~~~~~~ mutator.c:723:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:731:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GT_D): PRIM_CMP2_DOUBLE(>); ^~~~~~~~~~~~~~~~~~~ mutator.c:721:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:731:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GT_D): PRIM_CMP2_DOUBLE(>); ^~~~~~~~~~~~~~~~~~~ mutator.c:723:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:732:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GE_D): PRIM_CMP2_DOUBLE(>=); ^~~~~~~~~~~~~~~~~~~~ mutator.c:721:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) a = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:732:15: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] Case(GE_D): PRIM_CMP2_DOUBLE(>=); ^~~~~~~~~~~~~~~~~~~~ mutator.c:723:5: note: expanded from macro 'PRIM_CMP2_DOUBLE' IND_REMOVE(nodeptr); ASSERT_D(ip,nodeptr) UPDATE_PROFINFO(nodeptr) b = get_double_value(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:737:7: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:748:5: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:761:6: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:800:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:860:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:893:2: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:897:9: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:913:11: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:932:35: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] ip += *(((short*) ip) + (int) nodeptr); ^~~~~~~~~~~~~ mutator.c:940:11: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mutator.c:947:20: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] if (((int) nodeptr) == *t) { ^~~~~~~~~~~~~ 126 warnings generated. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/mutlib.o mutlib.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/main.o main.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/haskellInit.o haskellInit.c haskellInit.c:70:48: warning: expression result unused [-Wunused-value] case 'b': case 'B': s++; assign(i,i*prefix)/sizeof(Node); break; ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~ haskellInit.c:72:32: warning: expression result unused [-Wunused-value] default: assign(i,i*prefix)/sizeof(Node); break; ~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~ 2 warnings generated. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/dump.o dump.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/inscount.o inscount.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/collector.o collector.c collector.c:75:51: warning: format specifies type 'unsigned int' but the argument has type 'NodePtr' (aka 'unsigned long *') [-Wformat] fprintf(stderr," hpStart=0x%x, hpEnd=0x%x\n",hpStart,hpEnd); ~~ ^~~~~~~ collector.c:75:59: warning: format specifies type 'unsigned int' but the argument has type 'NodePtr' (aka 'unsigned long *') [-Wformat] fprintf(stderr," hpStart=0x%x, hpEnd=0x%x\n",hpStart,hpEnd); ~~ ^~~~~ collector.c:126:45: warning: format specifies type 'int' but the argument has type 'long' [-Wformat] fprintf(stderr,"%d words to next gc.\n",hpLimit-hp); ~~ ^~~~~~~~~~ %ld collector.c:628:58: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] fprintf(stderr," (Current heapsize is %d bytes.)\n",hpSize*sizeof(int)); ~~ ^~~~~~~~~~~~~~~~~~ %lu collector.c:633:59: warning: format specifies type 'int' but the argument has type 'long' [-Wformat] ,(NodePtr)sp-hp,size); ^~~~~~~~~~~~~~ collector.c:636:45: warning: format specifies type 'int' but the argument has type 'long' [-Wformat] fprintf(stderr," %d words to next gc.",(NodePtr)sp-hp); ~~ ^~~~~~~~~~~~~~ %ld collector.c:643:42: warning: format specifies type 'int' but the argument has type 'long' [-Wformat] fprintf(stderr,"\n",nogc,hp-&hpLowLimit[GCEXTRA]); ~~~ ^~~~~~~~~~~~~~~~~~~~~~~ %8ld 7 warnings generated. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/mark.o mark.c mark.c:156:5: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(node); ^~~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mark.c:229:4: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(arg); ^~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mark.c:242:8: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(arg); ^~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mark.c:283:6: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(arg); ^~~~~~~~~~~~~~~ ./runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 4 warnings generated. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/cdata.o cdata.c cdata.c:210:21: warning: cast to smaller integer type 'int' from 'ForeignObj *' (aka 'struct FOREIGNOBJ *') [-Wpointer-to-int-cast] return nhc_mkCInt((int)fo); ^~~~~~~ cdata.c:220:21: warning: cast to smaller integer type 'int' from 'ForeignObj *' (aka 'struct FOREIGNOBJ *') [-Wpointer-to-int-cast] return nhc_mkCInt((int)fo); ^~~~~~~ cdata.c:246:3: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 3 warnings generated. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/timeUnix.o timeUnix.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/xlib_debug.o xlib_debug.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/stableptr.o stableptr.c gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/closureval.o closureval.c closureval.c:25:5: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] C_CHECK(2*(args+1)); ^~~~~~~~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ closureval.c:25:5: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] C_CHECK(2*(args+1)); ^~~~~~~~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ closureval.c:25:5: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] C_CHECK(2*(args+1)); ^~~~~~~~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ closureval.c:28:5: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(nodeptr); ^~~~~~~~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ closureval.c:103:3: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(n); ^~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ closureval.c:111:3: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(n); ^~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ closureval.c:119:3: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] IND_REMOVE(n); ^~~~~~~~~~~~~ /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 7 warnings generated. gcc -c -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -O3 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/ffiexport.o ffiexport.c gcc -S -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -o - newtables.c |\ sed -e '/.align 32/s/32/4/' -e '/.p2align 5/s/5/2/' |\ gcc -c -x assembler-with-cpp -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/newtables.o - gcc -S -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -o - newbuiltin.c |\ sed -e '/.align 32/s/32/4/' -e '/.p2align 5/s/5/2/' |\ gcc -c -x assembler-with-cpp -DLOW_BYTE_FIRST -m32 -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -DVERSION="\"1.22\"" -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/newbuiltin.o - newbuiltin.c:77:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(C0_Prelude_46_91_93) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:77:3: error: initializer element is not a compile-time constant , useLabel(C0_Prelude_46_91_93) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:87:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(C0_Prelude_46_91_93) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:88:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(C0_Prelude_46_91_93) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:92:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(CT_primLeave) ^~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:87:3: error: initializer element is not a compile-time constant , useLabel(C0_Prelude_46_91_93) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:101:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(ST_primLeave) ^~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:101:3: error: initializer element is not a compile-time constant , useLabel(ST_primLeave) ^~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:108:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] CAPTAG(FN_Prelude_46primLeave,1) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:125:27: note: expanded from macro 'CAPTAG' #define CAPTAG(fun,need) useLabel(fun) - (NS + 2 + (2 * need)) + VAP_TAG ^~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:117:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(CT_unpackCString) ^~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:108:3: error: initializer element is not a compile-time constant CAPTAG(FN_Prelude_46primLeave,1) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:125:65: note: expanded from macro 'CAPTAG' #define CAPTAG(fun,need) useLabel(fun) - (NS + 2 + (2 * need)) + VAP_TAG ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~ newbuiltin.c:127:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(ST_Builtin_46primUnpackCString) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:127:3: error: initializer element is not a compile-time constant , useLabel(ST_Builtin_46primUnpackCString) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:134:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] CAPTAG(FN_Builtin_46primUnpackCString,1) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:125:27: note: expanded from macro 'CAPTAG' #define CAPTAG(fun,need) useLabel(fun) - (NS + 2 + (2 * need)) + VAP_TAG ^~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:148:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(CT_hgets) ^~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:134:3: error: initializer element is not a compile-time constant CAPTAG(FN_Builtin_46primUnpackCString,1) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:125:65: note: expanded from macro 'CAPTAG' #define CAPTAG(fun,need) useLabel(fun) - (NS + 2 + (2 * need)) + VAP_TAG ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~ newbuiltin.c:158:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(ST_Builtin_46hgets) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:158:3: error: initializer element is not a compile-time constant , useLabel(ST_Builtin_46hgets) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:165:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] CAPTAG(FN_Builtin_46hgets,1) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:125:27: note: expanded from macro 'CAPTAG' #define CAPTAG(fun,need) useLabel(fun) - (NS + 2 + (2 * need)) + VAP_TAG ^~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:165:3: error: initializer element is not a compile-time constant CAPTAG(FN_Builtin_46hgets,1) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./newmacros.h:125:65: note: expanded from macro 'CAPTAG' #define CAPTAG(fun,need) useLabel(fun) - (NS + 2 + (2 * need)) + VAP_TAG ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~ newbuiltin.c:187:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(fo_stdout) ^~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:187:3: error: initializer element is not a compile-time constant , useLabel(fo_stdout) ^~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:198:4: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(fo_stdin) ^~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:198:4: error: initializer element is not a compile-time constant , useLabel(fo_stdin) ^~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:209:3: warning: cast to smaller integer type 'unsigned int' from 'unsigned int *' [-Wpointer-to-int-cast] , useLabel(fo_stderr) ^~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ newbuiltin.c:209:3: error: initializer element is not a compile-time constant , useLabel(fo_stderr) ^~~~~~~~~~~~~~~~~~~ ./newmacros.h:130:26: note: expanded from macro 'useLabel' #define useLabel(name) ((unsigned)name) ^~~~~~~~~~~~~~ 15 warnings and 11 errors generated. cd /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel; \ ar -rv /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/Runtime.a haskellInit.o dump.o inscount.o collector.o mark.o cdata.o timeUnix.o xlib_debug.o stableptr.o closureval.o ffiexport.o newtables.o newbuiltin.o ar: creating archive /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Kernel/Runtime.a a - haskellInit.o a - dump.o a - inscount.o a - collector.o a - mark.o a - cdata.o a - timeUnix.o a - xlib_debug.o a - stableptr.o a - closureval.o a - ffiexport.o a - newtables.o a - newbuiltin.o gmake[2]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Kernel' cd Integer; /opt/pkg/bin/gmake all gmake[2]: Entering directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Integer' /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand Link /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include/flt.h already exists. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 `if [ xcre-mparam.c = x ]; \ then echo cre-mparam.c; \ else echo cre-mparam.c; fi` -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/cre-mparam /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand cre-mparam.c:109:45: warning: format specifies type 'int' but the argument has type 'unsigned long' [-Wformat] printf ("#define BYTES_PER_MP_LIMB %d\n", sizeof(mp_limb)); ~~ ^~~~~~~~~~~~~~~ %lu 1 warning generated. /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/cre-mparam > tmp-gmp-mparam.h /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mv tmp-gmp-mparam.h gmp-mparam.h /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_add.o mpz_add.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_add.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAdd,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:42:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_add.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAdd,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:45:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_add.c:25:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAdd,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_add.c:25:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerAdd,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_add.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAdd,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_add.c:26:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerAddC,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_add.c:26:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerAddC,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_add.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerAddC,mpz_add,mpz_add_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_add.c:116:26: warning: absolute value function '__builtin_abs' given an argument of type 'mp_size' (aka 'long') but has parameter of type 'int' which may cause truncation of value [-Wabsolute-value] sum->sizeTag = CONSTRW(abs(sumsize),sumsize<0?1:0); ^ ./gmp-impl.h:34:13: note: expanded from macro 'abs' #define abs __builtin_abs ^ mpz_add.c:116:26: note: use function '__builtin_labs' instead sum->sizeTag = CONSTRW(abs(sumsize),sumsize<0?1:0); ^~~ __builtin_labs ./gmp-impl.h:34:13: note: expanded from macro 'abs' #define abs __builtin_abs ^ ../Kernel/newmacros.h:64:28: note: expanded from macro 'CONSTRW' #define CONSTRW(s,e) ( ((s)<<(4+LARGE_EXTRA)) | (((e)&((1<(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_sub.c:25:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerSub,mpz_sub,mpz_sub_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_sub.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerSub,mpz_sub,mpz_sub_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_sub.c:26:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerSubC,mpz_sub,mpz_sub_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_sub.c:26:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerSubC,mpz_sub,mpz_sub_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_sub.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerSubC,mpz_sub,mpz_sub_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_sub.c:112:24: warning: absolute value function '__builtin_abs' given an argument of type 'mp_size' (aka 'long') but has parameter of type 'int' which may cause truncation of value [-Wabsolute-value] w->sizeTag = CONSTRW(abs(wsize),wsize<0?1:0); ^ ./gmp-impl.h:34:13: note: expanded from macro 'abs' #define abs __builtin_abs ^ mpz_sub.c:112:24: note: use function '__builtin_labs' instead w->sizeTag = CONSTRW(abs(wsize),wsize<0?1:0); ^~~ __builtin_labs ./gmp-impl.h:34:13: note: expanded from macro 'abs' #define abs __builtin_abs ^ ../Kernel/newmacros.h:64:28: note: expanded from macro 'CONSTRW' #define CONSTRW(s,e) ( ((s)<<(4+LARGE_EXTRA)) | (((e)&((1<(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_mul.c:25:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerMul,mpz_mul,mpz_mul_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_mul.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerMul,mpz_mul,mpz_mul_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_mul.c:26:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerMulC,mpz_mul,mpz_mul_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_mul.c:26:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerMulC,mpz_mul,mpz_mul_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_mul.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerMulC,mpz_mul,mpz_mul_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 8 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_div.o mpz_div.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_div.c:27:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerQuot,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:42:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_div.c:27:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerQuot,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:45:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_div.c:27:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerQuot,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_div.c:27:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerQuot,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_div.c:27:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerQuot,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_div.c:28:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerQuotC,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_div.c:28:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerQuotC,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_div.c:28:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerQuotC,mpz_div,mpz_div_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 8 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_mod.o mpz_mod.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_mod.c:28:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerRem,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:42:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_mod.c:28:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerRem,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:45:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_mod.c:28:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerRem,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_mod.c:28:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerRem,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_mod.c:28:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerRem,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_mod.c:29:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerRemC,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_mod.c:29:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerRemC,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_mod.c:29:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerRemC,mpz_mod,mpz_mod_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 8 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_neg.o mpz_neg.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_neg.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1(primIntegerNeg,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:14:7: note: expanded from macro 'INTEGER1' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_neg.c:26:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1(primIntegerNeg,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:15:7: note: expanded from macro 'INTEGER1' C_CHECK_STMT(1+(Int)CONINFO_LARGESIZEU(*nodeptr)+EXTRA,nodeptr = C_GETARG1(1);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_neg.c:26:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER1(primIntegerNeg,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:15:7: note: expanded from macro 'INTEGER1' C_CHECK_STMT(1+(Int)CONINFO_LARGESIZEU(*nodeptr)+EXTRA,nodeptr = C_GETARG1(1);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_neg.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1(primIntegerNeg,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:15:7: note: expanded from macro 'INTEGER1' C_CHECK_STMT(1+(Int)CONINFO_LARGESIZEU(*nodeptr)+EXTRA,nodeptr = C_GETARG1(1);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_neg.c:27:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1_C(primIntegerNegC,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:28:7: note: expanded from macro 'INTEGER1_C' C_CHECK(1+(Int)CONINFO_LARGESIZEU(*x)+EXTRA); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_neg.c:27:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER1_C(primIntegerNegC,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:28:7: note: expanded from macro 'INTEGER1_C' C_CHECK(1+(Int)CONINFO_LARGESIZEU(*x)+EXTRA); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_neg.c:27:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1_C(primIntegerNegC,mpz_neg) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:28:7: note: expanded from macro 'INTEGER1_C' C_CHECK(1+(Int)CONINFO_LARGESIZEU(*x)+EXTRA); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 7 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_abs.o mpz_abs.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_abs.c:24:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1(primIntegerAbs,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:14:7: note: expanded from macro 'INTEGER1' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_abs.c:24:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1(primIntegerAbs,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:15:7: note: expanded from macro 'INTEGER1' C_CHECK_STMT(1+(Int)CONINFO_LARGESIZEU(*nodeptr)+EXTRA,nodeptr = C_GETARG1(1);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_abs.c:24:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER1(primIntegerAbs,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:15:7: note: expanded from macro 'INTEGER1' C_CHECK_STMT(1+(Int)CONINFO_LARGESIZEU(*nodeptr)+EXTRA,nodeptr = C_GETARG1(1);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_abs.c:24:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1(primIntegerAbs,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:15:7: note: expanded from macro 'INTEGER1' C_CHECK_STMT(1+(Int)CONINFO_LARGESIZEU(*nodeptr)+EXTRA,nodeptr = C_GETARG1(1);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_abs.c:25:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1_C(primIntegerAbsC,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:28:7: note: expanded from macro 'INTEGER1_C' C_CHECK(1+(Int)CONINFO_LARGESIZEU(*x)+EXTRA); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_abs.c:25:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER1_C(primIntegerAbsC,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:28:7: note: expanded from macro 'INTEGER1_C' C_CHECK(1+(Int)CONINFO_LARGESIZEU(*x)+EXTRA); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_abs.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER1_C(primIntegerAbsC,mpz_abs) /* INTEGER1 check size */ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:28:7: note: expanded from macro 'INTEGER1_C' C_CHECK(1+(Int)CONINFO_LARGESIZEU(*x)+EXTRA); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 7 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_cmp.o mpz_cmp.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_cmp.c:32:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2CMP(primIntegerEq,!mpz_cmp(a,b)) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:76:7: note: expanded from macro 'INTEGER2CMP' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_cmp.c:32:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2CMP(primIntegerEq,!mpz_cmp(a,b)) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:79:7: note: expanded from macro 'INTEGER2CMP' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_cmp.c:33:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2CMP(primIntegerLe,mpz_cmp(a,b)<=0) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:76:7: note: expanded from macro 'INTEGER2CMP' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_cmp.c:33:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2CMP(primIntegerLe,mpz_cmp(a,b)<=0) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:79:7: note: expanded from macro 'INTEGER2CMP' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_cmp.c:34:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2CMP(primIntegerLt,mpz_cmp(a,b)<0) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:76:7: note: expanded from macro 'INTEGER2CMP' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_cmp.c:34:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2CMP(primIntegerLt,mpz_cmp(a,b)<0) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:79:7: note: expanded from macro 'INTEGER2CMP' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 6 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_or.o mpz_or.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_or.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerOr,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:42:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_or.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerOr,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:45:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_or.c:25:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerOr,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_or.c:25:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerOr,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_or.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerOr,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_or.c:26:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerOrC,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_or.c:26:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerOrC,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_or.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerOrC,mpz_or,mpz_or_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 8 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpz_and.o mpz_and.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand mpz_and.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAnd,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:42:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_and.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAnd,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:45:7: note: expanded from macro 'INTEGER2' IND_REMOVE(nodeptr); \ ^~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_and.c:25:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAnd,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_and.c:25:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2(primIntegerAnd,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_and.c:25:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2(primIntegerAnd,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:48:7: note: expanded from macro 'INTEGER2' C_CHECK_STMT(size,u = (MP_INT*)C_GETARG1(1);v = (MP_INT*)C_GETARG1(2);); \ ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../Kernel/cinterface.h:58:62: note: expanded from macro 'C_CHECK_STMT' #define C_CHECK_STMT(c,stmt) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);stmt} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ mpz_and.c:26:1: warning: cast to smaller integer type 'Code' (aka 'unsigned char') from 'Node *' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerAndC,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:42: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~ ../Kernel/runtime.h:286:17: note: expanded from macro 'C_CODE' #define C_CODE ((Code)FN_Prelude_46primLeave) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ mpz_and.c:26:1: warning: cast to 'NodePtr' (aka 'unsigned long *') from smaller integer type 'Code' (aka 'unsigned char') [-Wint-to-pointer-cast] INTEGER2_C(primIntegerAndC,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:62:33: note: expanded from macro 'C_GC' *--Sp = (NodePtr)Fp; *--Sp=(NodePtr)C_CODE;Fp=Sp; \ ^~~~~~~~~~~~~~~ mpz_and.c:26:1: warning: cast to smaller integer type 'int' from 'NodePtr' (aka 'unsigned long *') [-Wpointer-to-int-cast] INTEGER2_C(primIntegerAndC,mpz_and,mpz_and_need) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ./haskell2c.h:63:7: note: expanded from macro 'INTEGER2_C' C_CHECK(size); \ ^~~~~~~~~~~~~ ../Kernel/cinterface.h:57:52: note: expanded from macro 'C_CHECK' #define C_CHECK(c) if(Hp+(c)+BUFFER>(NodePtr)Sp){C_GC(c);} ^~~~~~~ ../Kernel/cinterface.h:64:30: note: expanded from macro 'C_GC' Sp++;Fp=(NodePtr*)*Sp++;IND_REMOVE(_ivapptr); ^~~~~~~~~~~~~~~~~~~~ ../Kernel/runtime.h:534:14: note: expanded from macro 'IND_REMOVE' while((!((int)p & ZAP_BIT)) && (0==(*p & MASK_WTAG))) p = (NodePtr)*p ^~~~~~ 8 warnings generated. /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_cmp.o mpn_cmp.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_sub.o mpn_sub.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_div.o mpn_div.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_add.o mpn_add.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mp_clz_tab.o mp_clz_tab.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_lshift.o mpn_lshift.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_mul.o mpn_mul.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/mpn_rshift.o mpn_rshift.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/fltcode.o fltcode.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/dblcode.o dblcode.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand gcc -c -I../Kernel -I/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/include -O3 -DLOW_BYTE_FIRST -m32 -o /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/alloca.o alloca.c /opt/pkg/bin/mksh: [: 4.2: unexpected operator/operand alloca.c:5:7: error: conflicting types for '__builtin_alloca' void *alloca (unsigned size) ^ /Library/Developer/CommandLineTools/SDKs/MacOSX11.3.sdk/usr/include/alloca.h:39:22: note: expanded from macro 'alloca' #define alloca(size) __alloca(size) ^ /Library/Developer/CommandLineTools/SDKs/MacOSX11.3.sdk/usr/include/alloca.h:40:24: note: expanded from macro '__alloca' #define __alloca(size) __builtin_alloca(size) ^ alloca.c:5:7: note: '__builtin_alloca' is a builtin with type 'void *(unsigned long)' /Library/Developer/CommandLineTools/SDKs/MacOSX11.3.sdk/usr/include/alloca.h:39:22: note: expanded from macro 'alloca' #define alloca(size) __alloca(size) ^ /Library/Developer/CommandLineTools/SDKs/MacOSX11.3.sdk/usr/include/alloca.h:40:24: note: expanded from macro '__alloca' #define __alloca(size) __builtin_alloca(size) ^ 1 error generated. gmake[2]: *** [Makefile:35: /Users/pbulk/build/lang/nhc98/work/nhc98-1.22/targets/arm-Darwin-22.2.0/obj/runtime/Integer/alloca.o] Error 1 gmake[2]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime/Integer' gmake[1]: *** [Makefile:33: afile] Error 2 gmake[1]: Leaving directory '/Users/pbulk/build/lang/nhc98/work/nhc98-1.22/src/runtime' gmake: *** [Makefile:238: targets/arm-Darwin-22.2.0/runtime] Error 2 *** Error code 2 Stop. bmake[1]: stopped in /Volumes/data/jenkins/workspace/pkgsrc-macos11-trunk-arm64/lang/nhc98 *** Error code 1 Stop. bmake: stopped in /Volumes/data/jenkins/workspace/pkgsrc-macos11-trunk-arm64/lang/nhc98