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

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


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

#define CT_v438	((void*)startLabel+40)
#define CT_v439	((void*)startLabel+96)
#define CT_v440	((void*)startLabel+144)
#define CT_v441	((void*)startLabel+196)
#define CT_v442	((void*)startLabel+252)
#define CT_v443	((void*)startLabel+300)
#define CT_v444	((void*)startLabel+340)
#define CT_v445	((void*)startLabel+372)
#define CT_v446	((void*)startLabel+404)
#define CT_v447	((void*)startLabel+436)
#define CT_v448	((void*)startLabel+468)
#define CT_v449	((void*)startLabel+500)
#define CT_v450	((void*)startLabel+532)
#define CT_v451	((void*)startLabel+564)
#define CT_v452	((void*)startLabel+596)
#define CT_v453	((void*)startLabel+628)
#define CT_v454	((void*)startLabel+668)
#define CT_v455	((void*)startLabel+704)
#define CT_v456	((void*)startLabel+788)
extern Node FN_Prelude_46Num_46Prelude_46Float_46negate[];
extern Node FN_Prelude_46Floating_46Prelude_46Float_46exp[];
extern Node FN_Prelude_46_95_46logBase[];
extern Node CF_Prelude_46Floating_46Prelude_46Float[];
extern Node CF_Prelude_46Fractional_46Prelude_46Float[];

static Node startLabel[] = {
  bytes2word(1,0,0,1)
, useLabel(CT_v438)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46atanh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(PUSH_ARG_I1,MUL_F,PUSH_CADR_N1,2)
, bytes2word(SUB_F,SQRT_F,PUSH_CADR_N1,2)
, bytes2word(PUSH_ARG_I1,ADD_F,SLASH_F,LOG_F)
, bytes2word(RETURN,ENDCODE,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 1065353216
,	/* CT_v438: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46atanh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46atanh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v439)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46acosh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_CADR_N1,2,PUSH_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,ADD_F,PUSH_CADR_N1)
, bytes2word(2,PUSH_ARG_I1,SUB_F,SLASH_F)
, bytes2word(SQRT_F,PUSH_CADR_N1,2,PUSH_ARG_I1)
, bytes2word(ADD_F,MUL_F,PUSH_ARG_I1,ADD_F)
, bytes2word(LOG_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 1065353216
,	/* CT_v439: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46acosh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46acosh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v440)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46asinh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(PUSH_ARG_I1,MUL_F,PUSH_CADR_N1,2)
, bytes2word(ADD_F,SQRT_F,PUSH_ARG_I1,ADD_F)
, bytes2word(LOG_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 1065353216
,	/* CT_v440: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46asinh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46asinh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v441)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_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_F,PUSH_P1)
, bytes2word(2,PUSH_P1,2,SUB_F)
, bytes2word(SLASH_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v441: (byte 0) */
  HW(2,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46tanh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46tanh),1)
, VAPTAG(useLabel(FN_Prelude_46Num_46Prelude_46Float_46negate))
, VAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46exp))
, bytes2word(1,0,0,1)
, useLabel(CT_v442)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46cosh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(NEG_F,EXP_F,PUSH_ARG_I1,EXP_F)
, bytes2word(ADD_F,PUSH_CADR_N1,2,MUL_F)
, bytes2word(RETURN,ENDCODE,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 1056964608
,	/* CT_v442: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46cosh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46cosh),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v443)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46sinh[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(NEG_F,EXP_F,PUSH_ARG_I1,EXP_F)
, bytes2word(SUB_F,PUSH_CADR_N1,2,MUL_F)
, bytes2word(RETURN,ENDCODE,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 1056964608
,	/* CT_v443: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46sinh[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46sinh),1)
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v444)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46_42_42[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I2,EVAL,PUSH_ZAP_ARG_I1)
, bytes2word(EVAL,NEEDHEAP_I32,POW_F,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
,	/* CT_v444: (byte 0) */
  HW(0,2)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46_42_42[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46_42_42),2)
, bytes2word(1,0,0,1)
, useLabel(CT_v445)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46atan[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ATAN_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v445: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46atan[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46atan),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v446)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46acos[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ACOS_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v446: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46acos[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46acos),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v447)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46asin[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(ASIN_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v447: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46asin[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46asin),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v448)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46tan[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(TAN_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v448: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46tan[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46tan),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v449)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46cos[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(COS_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v449: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46cos[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46cos),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v450)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46sin[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(SIN_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v450: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46sin[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46sin),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v451)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46sqrt[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(SQRT_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v451: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46sqrt[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46sqrt),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v452)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46log[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(LOG_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v452: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46log[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46log),1)
, bytes2word(1,0,0,1)
, useLabel(CT_v453)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46exp[] = {
  bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I1,EVAL,NEEDHEAP_I32)
, bytes2word(EXP_F,RETURN,ENDCODE,0)
, bytes2word(0,0,0,0)
,	/* CT_v453: (byte 0) */
  HW(0,1)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46exp[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46exp),1)
, bytes2word(0,0,0,0)
, useLabel(CT_v454)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_46pi[] = {
  bytes2word(NEEDSTACK_I16,PUSH_CADR_N1,2,RETURN)
, bytes2word(ENDCODE,0,0,0)
, bytes2word(0,0,0,0)
, CONSTRW(1,0)
, 1078530011
,	/* CT_v454: (byte 0) */
  HW(0,0)
, 0
,};
Node CF_Prelude_46Floating_46Prelude_46Float_46pi[] = {
  VAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46pi))
, bytes2word(0,0,2,0)
, bytes2word(1,1,0,2)
, useLabel(CT_v455)
,};
Node FN_Prelude_46Floating_46Prelude_46Float_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_v455: (byte 0) */
  HW(2,2)
, 0
,};
Node F0_Prelude_46Floating_46Prelude_46Float_46logBase[] = {
  CAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float_46logBase),2)
, VAPTAG(useLabel(FN_Prelude_46_95_46logBase))
, useLabel(CF_Prelude_46Floating_46Prelude_46Float)
, bytes2word(0,0,0,0)
, useLabel(CT_v456)
,};
Node FN_Prelude_46Floating_46Prelude_46Float[] = {
  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_v456: (byte 0) */
  HW(19,0)
, 0
,};
Node CF_Prelude_46Floating_46Prelude_46Float[] = {
  VAPTAG(useLabel(FN_Prelude_46Floating_46Prelude_46Float))
, useLabel(CF_Prelude_46Fractional_46Prelude_46Float)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46_42_42)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46logBase)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46log)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46tanh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46atanh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46sinh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46asinh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46cosh)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46acosh)
, useLabel(CF_Prelude_46Floating_46Prelude_46Float_46pi)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46tan)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46atan)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46sin)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46asin)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46exp)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46cos)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_46acos)
, useLabel(F0_Prelude_46Floating_46Prelude_46Float_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].