Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/Floating_Double.hc

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


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

#define CT_v452	((void*)startLabel+48)
#define CT_v453	((void*)startLabel+112)
#define CT_v454	((void*)startLabel+168)
#define CT_v455	((void*)startLabel+220)
#define CT_v456	((void*)startLabel+296)
#define CT_v457	((void*)startLabel+376)
#define CT_v458	((void*)startLabel+428)
#define CT_v459	((void*)startLabel+460)
#define CT_v460	((void*)startLabel+492)
#define CT_v461	((void*)startLabel+524)
#define CT_v462	((void*)startLabel+556)
#define CT_v463	((void*)startLabel+588)
#define CT_v464	((void*)startLabel+620)
#define CT_v465	((void*)startLabel+652)
#define CT_v466	((void*)startLabel+684)
#define CT_v467	((void*)startLabel+716)
#define CT_v468	((void*)startLabel+764)
#define CT_v469	((void*)startLabel+800)
#define CT_v470	((void*)startLabel+884)
extern Node FN_Prelude_46Num_46Prelude_46Double_46negate[];
extern Node FN_Prelude_46Floating_46Prelude_46Double_46exp[];
extern Node FN_Ratio_46_37[];
extern Node CF_Prelude_46Integral_46Prelude_46Integer[];
extern Node FN_Prelude_46Fractional_46Prelude_46Double_46fromRational[];
extern Node FN_Prelude_46_95_46logBase[];
extern Node CF_Prelude_46Floating_46Prelude_46Double[];
extern Node CF_Prelude_46Fractional_46Prelude_46Double[];

static Node startLabel[] = {
  bytes2word(1,0,0,1)
, useLabel(CT_v452)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46atanh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(PUSH_ARG_I1,MUL_D,PUSH_CADR_N1,3)
, bytes2word(SUB_D,SQRT_D,PUSH_CADR_N1,3)
, bytes2word(PUSH_ARG_I1,ADD_D,SLASH_D,LOG_D)
, bytes2word(RETURN,ENDCODE,0,0)
, bytes2word(0,0,0,0)
, 0
, CONSTRW(2,0)
, 1072693248
, 0
,	/* CT_v452: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46atanh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46atanh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v453)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46acosh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_CADR_N1,3,PUSH_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,ADD_D,PUSH_CADR_N1)
, bytes2word(3,PUSH_ARG_I1,SUB_D,SLASH_D)
, bytes2word(SQRT_D,PUSH_CADR_N1,3,PUSH_ARG_I1)
, bytes2word(ADD_D,MUL_D,PUSH_ARG_I1,ADD_D)
, bytes2word(LOG_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, 0
, CONSTRW(2,0)
, 1072693248
, 0
,	/* CT_v453: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46acosh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46acosh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v454)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46asinh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(PUSH_ARG_I1,MUL_D,PUSH_CADR_N1,3)
, bytes2word(ADD_D,SQRT_D,PUSH_ARG_I1,ADD_D)
, bytes2word(LOG_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, 0
, CONSTRW(2,0)
, 1072693248
, 0
,	/* CT_v454: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46asinh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46asinh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v455)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46tanh[] = {
  bytes2word(NEEDHEAP_I32,HEAP_CVAL_I3,HEAP_ARG,1)
, bytes2word(PUSH_HEAP,HEAP_CVAL_I4,HEAP_OFF_N1,3)
, bytes2word(PUSH_HEAP,HEAP_CVAL_I4,HEAP_ARG,1)
, bytes2word(PUSH_I1,ZAP_ARG_I1,EVAL,PUSH_I1)
, bytes2word(EVAL,NEEDHEAP_I32,ADD_D,PUSH_P1)
, bytes2word(2,PUSH_P1,2,SUB_D)
, bytes2word(SLASH_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v455: (byte 0) */
  HW(2,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46tanh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46tanh),1)
, VAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Double_46negate))
, VAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46exp))
, bytes2word(1,0,0,1)
, useLabel(CT_v456)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46cosh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(NEG_D,EXP_D,PUSH_ARG_I1,EXP_D)
, bytes2word(ADD_D,HEAP_CVAL_I3,HEAP_CVAL_I4,HEAP_CADR_N1)
, bytes2word(2,HEAP_CADR_N1,4,PUSH_HEAP)
, bytes2word(HEAP_CVAL_I5,HEAP_OFF_N1,5,ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,MUL_D,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 2
, CONSTRW(1,0)
, 1
,	/* CT_v456: (byte 0) */
  HW(3,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46cosh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46cosh),1)
, VAPTAG(useLabel(FN_Ratio_46_37))
, useLabel(CF_Prelude_46Integral_46Prelude_46Integer)
, VAPTAG(useLabel(FN_Prelude_46Fractional_46Prelude_46Double_46fromRational))
, bytes2word(1,0,0,1)
, useLabel(CT_v457)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46sinh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(NEG_D,EXP_D,PUSH_ARG_I1,EXP_D)
, bytes2word(SUB_D,HEAP_CVAL_I3,HEAP_CVAL_I4,HEAP_CADR_N1)
, bytes2word(2,HEAP_CADR_N1,4,PUSH_HEAP)
, bytes2word(HEAP_CVAL_I5,HEAP_OFF_N1,5,ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,MUL_D,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 2
, CONSTRW(1,0)
, 1
,	/* CT_v457: (byte 0) */
  HW(3,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46sinh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46sinh),1)
, VAPTAG(useLabel(FN_Ratio_46_37))
, useLabel(CF_Prelude_46Integral_46Prelude_46Integer)
, VAPTAG(useLabel(FN_Prelude_46Fractional_46Prelude_46Double_46fromRational))
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v458)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46_42_42[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I2,EVAL,PUSH_ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,POW_D,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
,	/* CT_v458: (byte 0) */
  HW(0,2)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46_42_42[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46_42_42),2)
, bytes2word(1,0,0,1)
, useLabel(CT_v459)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46atan[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ATAN_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v459: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46atan[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46atan),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v460)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46acos[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ACOS_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v460: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46acos[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46acos),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v461)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46asin[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ASIN_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v461: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46asin[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46asin),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v462)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46tan[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(TAN_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v462: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46tan[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46tan),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v463)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46cos[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(COS_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v463: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46cos[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46cos),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v464)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46sin[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(SIN_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v464: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46sin[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46sin),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v465)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46sqrt[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(SQRT_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v465: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46sqrt[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46sqrt),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v466)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46log[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(LOG_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v466: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46log[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46log),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v467)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46exp[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(EXP_D,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v467: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46exp[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46exp),1)
, bytes2word(0,0,0,0)
, useLabel(CT_v468)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46pi[] = {
  bytes2word(NEEDSTACK_I16,PUSH_CADR_N1,3,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 0
, CONSTRW(2,0)
, 1074340347
, 1413754136
,	/* CT_v468: (byte 0) */
  HW(0,0)
, 0
,};
Node CF_Prelude_46Floating_46Prelude_46Double_46pi[] = {
  VAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46pi))
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v469)
,};
Node FN_Prelude_46Floating_46Prelude_46Double_46logBase[] = {
  bytes2word(NEEDHEAP_I32,PUSH_HEAP,HEAP_CVAL_I3,HEAP_CVAL_I4)
, bytes2word(HEAP_ARG_ARG_RET_EVAL,1,2,ENDCODE)
, bytes2word(0,0,0,0)
,	/* CT_v469: (byte 0) */
  HW(2,2)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Double_46logBase[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double_46logBase),2)
, VAPTAG(useLabel(FN_Prelude_46_95_46logBase))
, useLabel(CF_Prelude_46Floating_46Prelude_46Double)
, bytes2word(0,0,0,0)
, useLabel(CT_v470)
,};
Node FN_Prelude_46Floating_46Prelude_46Double[] = {
  bytes2word(NEEDHEAP_I32,PUSH_HEAP,HEAP_CVAL_N1,1)
, bytes2word(HEAP_CVAL_I3,HEAP_CVAL_I4,HEAP_CVAL_I5,HEAP_CVAL_P1)
, bytes2word(6,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,HEAP_CVAL_P1)
, bytes2word(16,HEAP_CVAL_P1,17,HEAP_CVAL_P1)
, bytes2word(18,HEAP_CVAL_P1,19,HEAP_CVAL_P1)
, bytes2word(20,HEAP_CVAL_P1,21,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, 0
, CONSTR(0,19,0)
,	/* CT_v470: (byte 0) */
  HW(19,0)
, 0
,};
Node CF_Prelude_46Floating_46Prelude_46Double[] = {
  VAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Double))
, useLabel(CF_Prelude_46Fractional_46Prelude_46Double)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46_42_42)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46logBase)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46log)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46tanh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46atanh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46sinh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46asinh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46cosh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46acosh)
, useLabel(CF_Prelude_46Floating_46Prelude_46Double_46pi)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46tan)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46atan)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46sin)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46asin)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46exp)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46cos)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46acos)
, useLabel(F0_Prelude_46Floating_46Prelude_46Double_46sqrt)
,};

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].