Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Num_Double.p.c

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#include "newmacros.h"
#include "runtime.h"

#define CT_v247	((void*)startLabel+60)
#define CT_v250	((void*)startLabel+120)
#define CT_v253	((void*)startLabel+176)
#define CT_v256	((void*)startLabel+232)
#define CT_v259	((void*)startLabel+296)
#define CT_v262	((void*)startLabel+360)
#define CT_v265	((void*)startLabel+424)
#define CT_v269	((void*)startLabel+544)
#define ST_v267	((void*)startLabel+608)
#define ST_v258	((void*)startLabel+636)
#define ST_v264	((void*)startLabel+668)
#define ST_v261	((void*)startLabel+700)
#define ST_v252	((void*)startLabel+732)
#define ST_v245	((void*)startLabel+764)
#define ST_v255	((void*)startLabel+804)
#define ST_v249	((void*)startLabel+840)
#define PS_v263	((void*)startLabel+876)
#define PS_v260	((void*)startLabel+888)
#define PS_v257	((void*)startLabel+900)
#define PS_v254	((void*)startLabel+912)
#define PS_v251	((void*)startLabel+924)
#define PS_v248	((void*)startLabel+936)
#define PS_v246	((void*)startLabel+948)
#define PS_v244	((void*)startLabel+960)
#define PS_v266	((void*)startLabel+972)
#define PS_v268	((void*)startLabel+984)
extern Node FN_Prelude_46primDoubleFromInteger[];
extern Node CF_Prelude_46Eq_46Prelude_46Double[];
extern Node CF_Prelude_46Show_46Prelude_46Double[];
extern Node PM_Prelude[];
extern Node PC_Prelude_46primDoubleFromInteger[];
extern Node PC_Prelude_469[];

static Node startLabel[] = {
  bytes2word(1,0,0,1)
, useLabel(CT_v247)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46fromInteger[] = {
  bytes2word(NEEDHEAP_I32,PUSH_HEAP,HEAP_CVAL_P1,7)
, bytes2word(HEAP_CVAL_N1,7,HEAP_CREATE,HEAP_SPACE)
, bytes2word(HEAP_SPACE,HEAP_ARG,1,RETURN_EVAL)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 0
, useLabel(PS_v246)
, 0
, 0
, 0
, 0
, 150002
, useLabel(ST_v245)
,	/* CT_v247: (byte 0) */
  HW(1,1)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46fromInteger[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46fromInteger),1)
, useLabel(PS_v244)
, 0
, 0
, 0
, VAPTAG(useLabel(FN_Prelude_46primDoubleFromInteger))
, bytes2word(1,0,0,1)
, useLabel(CT_v250)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46signum[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(SIGNUM_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, 130002
, useLabel(ST_v249)
,	/* CT_v250: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46signum[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46signum),1)
, useLabel(PS_v248)
, 0
, 0
, 0
, bytes2word(1,0,0,1)
, useLabel(CT_v253)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46abs[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ABS_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, 120002
, useLabel(ST_v252)
,	/* CT_v253: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46abs[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46abs),1)
, useLabel(PS_v251)
, 0
, 0
, 0
, bytes2word(1,0,0,1)
, useLabel(CT_v256)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46negate[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(NEG_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, 110002
, useLabel(ST_v255)
,	/* CT_v256: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46negate[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46negate),1)
, useLabel(PS_v254)
, 0
, 0
, 0
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v259)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46_42[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I2,EVAL,PUSH_ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,MUL_D,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 90002
, useLabel(ST_v258)
,	/* CT_v259: (byte 0) */
  HW(0,2)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46_42[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46_42),2)
, useLabel(PS_v257)
, 0
, 0
, 0
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v262)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46_45[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I2,EVAL,PUSH_ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,SUB_D,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 80002
, useLabel(ST_v261)
,	/* CT_v262: (byte 0) */
  HW(0,2)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46_45[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46_45),2)
, useLabel(PS_v260)
, 0
, 0
, 0
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v265)
,};
Node FN_Prelude_46Num_46Prelude_46Double_46_43[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I2,EVAL,PUSH_ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,ADD_D,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 70002
, useLabel(ST_v264)
,	/* CT_v265: (byte 0) */
  HW(0,2)
, 0
,};
Node F0_Prelude_46Num_46Prelude_46Double_46_43[] = {
  CAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46_43),2)
, useLabel(PS_v263)
, 0
, 0
, 0
, bytes2word(0,0,0,0)
, useLabel(CT_v269)
,};
Node FN_Prelude_46Num_46Prelude_46Double[] = {
  bytes2word(NEEDHEAP_I32,PUSH_HEAP,HEAP_CVAL_N1,7)
, bytes2word(HEAP_CVAL_N1,12,HEAP_CREATE,HEAP_SPACE)
, bytes2word(HEAP_SPACE,HEAP_CVAL_P1,7,HEAP_CVAL_P1)
, bytes2word(8,HEAP_CVAL_P1,9,HEAP_CVAL_P1)
, bytes2word(10,HEAP_CVAL_P1,11,HEAP_CVAL_P1)
, bytes2word(12,HEAP_CVAL_P1,13,HEAP_CVAL_P1)
, bytes2word(14,HEAP_CVAL_P1,15,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, useLabel(PS_v268)
, 0
, 0
, 0
, 0
, CONSTR(0,9,0)
, 0
, 0
, 0
, 0
, 50010
, useLabel(ST_v267)
,	/* CT_v269: (byte 0) */
  HW(9,0)
, 0
,};
Node CF_Prelude_46Num_46Prelude_46Double[] = {
  VAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double))
, useLabel(PS_v266)
, 0
, 0
, 0
, useLabel(CF_Prelude_46Eq_46Prelude_46Double)
, useLabel(CF_Prelude_46Show_46Prelude_46Double)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46_42)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46_43)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46_45)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46negate)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46signum)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46fromInteger)
, useLabel(F0_Prelude_46Num_46Prelude_46Double_46abs)
,};
Node PP_Prelude_46Num_46Prelude_46Double[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double[] = {
 	/* ST_v267: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46_42[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46_42[] = {
 	/* ST_v258: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,42)
, bytes2word(0,0,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46_43[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46_43[] = {
 	/* ST_v264: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,43)
, bytes2word(0,0,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46_45[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46_45[] = {
 	/* ST_v261: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,45)
, bytes2word(0,0,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46abs[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46abs[] = {
 	/* ST_v252: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,97)
, bytes2word(98,115,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46fromInteger[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46fromInteger[] = {
 	/* ST_v245: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,102)
, bytes2word(114,111,109,73)
, bytes2word(110,116,101,103)
, bytes2word(101,114,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46negate[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46negate[] = {
 	/* ST_v255: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,110)
, bytes2word(101,103,97,116)
, bytes2word(101,0,0,0)
,};
Node PP_Prelude_46Num_46Prelude_46Double_46signum[] = {
 };
Node PC_Prelude_46Num_46Prelude_46Double_46signum[] = {
 	/* ST_v249: (byte 0) */
  bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(78,117,109,46)
, bytes2word(80,114,101,108)
, bytes2word(117,100,101,46)
, bytes2word(68,111,117,98)
, bytes2word(108,101,46,115)
, bytes2word(105,103,110,117)
, bytes2word(109,0,0,0)
,	/* PS_v263: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46_43)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46_43)
,	/* PS_v260: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46_45)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46_45)
,	/* PS_v257: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46_42)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46_42)
,	/* PS_v254: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46negate)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46negate)
,	/* PS_v251: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46abs)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46abs)
,	/* PS_v248: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46signum)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46signum)
,	/* PS_v246: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46fromInteger)
, useLabel(PC_Prelude_46primDoubleFromInteger)
,	/* PS_v244: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double_46fromInteger)
, useLabel(PC_Prelude_46Num_46Prelude_46Double_46fromInteger)
,	/* PS_v266: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double)
, useLabel(PC_Prelude_46Num_46Prelude_46Double)
,	/* PS_v268: (byte 0) */
  useLabel(PM_Prelude)
, useLabel(PP_Prelude_46Num_46Prelude_46Double)
, useLabel(PC_Prelude_469)
,};

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].