class AM_FLT_CONST < $AM_CONST |
---|
**** | Representation of constant FLT objects. |
$AM_CONST | $AM_EXPR | $HASH | $IS_EQ | $AM | $PROG_ERR | AM_CONST | AM_EXPR | AM |
attr val:RAT; |
---|
**** | The value. |
attr val:RAT; |
---|
**** | The value. |
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 |
---|