Skip to content
GitLab
Explorer
Connexion
Navigation principale
Rechercher ou aller à…
Projet
diglog
Gestion
Activité
Membres
Labels
Programmation
Tickets
Tableaux des tickets
Jalons
Wiki
Wiki externe
Code
Requêtes de fusion
Dépôt
Branches
Validations
Étiquettes
Graphe du dépôt
Comparer les révisions
Extraits de code
Compilation
Pipelines
Jobs
Planifications de pipeline
Artéfacts
Déploiement
Releases
Registre de conteneur
Registre de modèles
Opération
Environnements
Surveillance
Incidents
Analyse
Données d'analyse des chaînes de valeur
Analyse des contributeurs
Données d'analyse CI/CD
Données d'analyse du dépôt
Expériences du modèle
Aide
Aide
Support
Documentation de GitLab
Comparer les forfaits GitLab
Forum de la communauté
Contribuer à GitLab
Donner votre avis
Raccourcis clavier
?
Extraits de code
Groupes
Projets
Afficher davantage de fils d'Ariane
Etienne BRATEAU
diglog
Validations
5fa30c7a
Valider
5fa30c7a
rédigé
6 years ago
par
Etienne BRATEAU
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
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
Modifications
2
Tout étendre
Masquer les modifications d'espaces
En ligne
Côte à côte
Affichage de
2 fichiers modifiés
psys/include/p2c/numex.h
+0
-15
0 ajout, 15 suppressions
psys/include/p2c/numex.h
psys/src/numex.c
+3078
-3343
3078 ajouts, 3343 suppressions
psys/src/numex.c
avec
3078 ajouts
et
3358 suppressions
psys/include/p2c/numex.h
+
0
−
15
Voir le fichier @
5fa30c7a
...
...
@@ -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é.
Cliquez pour l'agrandir.
psys/src/numex.c
+
3078
−
3343
Voir le fichier @
5fa30c7a
Ce diff est replié.
Cliquez pour l'agrandir.
Aperçu
0%
Chargement en cours
Veuillez réessayer
ou
joindre un nouveau fichier
.
Annuler
You are about to add
0
people
to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Enregistrer le commentaire
Annuler
Veuillez vous
inscrire
ou vous
se connecter
pour commenter