class AM_FLTI_CONST < $AM_CONST

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

---

Ancestors

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

---

Public

Readable Attributes

attr source:SFILE_ID;

****	Information identifying the origin of a node in Sather source. It encodes the file and the character offset of the originating construct.

attr tp_at:$TP;

attr val:RAT;

****	The value.

Writable Attributes

attr source:SFILE_ID;

****	Information identifying the origin of a node in Sather source. It encodes the file and the character offset of the originating construct.

attr tp_at:$TP;

attr val:RAT;

****	The value.

Features

can_invar_opt(prog:PROG):BOOL

copy:$AM_EXPR

create(t:AS_FLT_LIT_EXPR):SAME

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

create(source:SFILE_ID):SAME

****	A new object for the location `source' with default initialization.

hash:INT

is_eq(a:$OB):BOOL

****	Equality note: changed from "a:$AM_EXPR".

is_neq(a:$OB):BOOL

tp:$TP

---