Skip to content
Extraits de code Groupes Projets
Valider 5fa30c7a rédigé par Etienne BRATEAU's avatar Etienne BRATEAU
Parcourir les fichiers

numex : clean code

parent 5d23ba06
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
......@@ -34,8 +34,6 @@ typedef enum {
ne_lnot, ne_ior, ne_ror, ne_sor, ne_iand, ne_rand, ne_sand, ne_icond,
ne_rcond, ne_scond, ne_round, ne_trunc, ne_ln, ne_exp, ne_iabs, ne_rabs,
ne_sqrt, ne_sin, ne_cos, ne_tan, ne_arctan, ne_rxp, ne_rxor
/* p2c: numex.text, line 131:
* Note: Line breaker spent 3.0 seconds, 5000 tries on line 45 [251] */
} ne_opkind;
......@@ -57,8 +55,6 @@ typedef struct ne_functionrec {
_PROCEDURE ipr;
unsigned arg1 : 3, arg2 : 3, arg3 : 3, arg4 : 3;
} U5;
/* p2c: numex.text, line 78: Note:
* Field width for ARG1 assumes enum ne_datatype has 5 elements [105] */
_PROCEDURE rpr;
_PROCEDURE spr;
struct {
......@@ -76,12 +72,8 @@ typedef struct ne_nexrec {
uchar nargs;
unsigned op : 7;
union {
/* p2c: numex.text, line 94:
* Note: Field width for OP assumes enum ne_opkind has 76 elements [105] */
na_quadword qw;
unsigned err : 4;
/* p2c: numex.text, line 98: Note:
* Field width for ERR assumes enum ne_errorkind has 9 elements [105] */
long i;
double r;
char *s;
......@@ -104,7 +96,6 @@ typedef struct ne_nexrec {
} U15;
struct {
struct ne_nexrec **ep;
/*!*/
na_strlist_t *eps;
} U16;
struct {
......@@ -119,8 +110,6 @@ typedef struct ne_desc {
na_strlist_t *symtab;
unsigned casesens : 1, builtin : 1, scaled : 1, doubleeq : 1, isfunc : 1,
dummy0 : 7, error : 4;
/* p2c: numex.text, line 123: Note:
* Field width for ERROR assumes enum ne_errorkind has 9 elements [105] */
char units[6];
long startident[9], ident[9]; /*must not contain #0*/
_PROCEDURE symproc;
......@@ -152,10 +141,6 @@ vextern na_quadword *ne_argarray;
extern void ne_init (ne_desc *desc);
extern void ne_compile (char *ex, ne_nexrec **nex, ne_desc *desc);
/*
procedure ne_intcompile(anyvar ex : na_chararray; var endp : integer;
var nex : ne_nexptr; var desc : ne_desc);
*/
extern void ne_intcompile (char *ex, long *endp, ne_nexrec **nex,
ne_desc *desc);
extern void ne_dump (ne_nexrec *nex);
......
Ce diff est replié.
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter