godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simplified compile time floating point somewhat

Browse Source
This commit is contained in:
ceriel
1991-01-15 18:21:16 +00:00
parent 0267340564
commit e7b7aa3944
7 changed files with 17 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lang/cem/cemcom.ansi/expr.str
View File

@@ -26,13 +26,6 @@ struct value {
struct string {
char *sg_value; /* row of bytes repr. the constant */
int sg_len; /* length of the row */
label sg_datlab; /* global data-label */
};
struct floating {
char *fl_value; /* pointer to string repr. the fp const. */
flt_arith fl_arith; /* the value in high precision */
label fl_datlab; /* global data_label */
};
struct oper {
@@ -60,7 +53,7 @@ struct expr {
union {
struct value ex_value;
struct string ex_string;
struct floating ex_float;
flt_arith ex_fl_arith;
struct oper ex_oper;
} ex_object;
};
@@ -73,10 +66,7 @@ struct expr {
#define VL_LBL EX_VALUE.vl_data.vl_lbl
#define SG_VALUE ex_object.ex_string.sg_value
#define SG_LEN ex_object.ex_string.sg_len
#define SG_DATLAB ex_object.ex_string.sg_datlab
#define FL_VALUE ex_object.ex_float.fl_value
#define FL_ARITH ex_object.ex_float.fl_arith
#define FL_DATLAB ex_object.ex_float.fl_datlab
#define FL_ARITH ex_object.ex_fl_arith
#define OP_TYPE ex_object.ex_oper.op_type
#define OP_LEFT ex_object.ex_oper.op_left
#define OP_OPER ex_object.ex_oper.op_oper