class AM_FLTX_CONST < $AM_CONST

****	Representation of constant FLTX objects by their mantissa and exponent.

---

Flattened version is here

---

Ancestors

$AM_CONST	$AM_EXPR	$HASH	$IS_EQ
$AM	$PROG_ERR	AM_CONST	AM_EXPR
AM

---

Public

Readable Attributes

attr val:RAT;

****	The value.

Writable Attributes

attr val:RAT;

****	The value.

Features

create(t:AS_FLT_LIT_EXPR):SAME

****	Create a new floating point constant for the tree form `t'.

hash:INT

is_eq(a:$OB):BOOL

---