Changeset 1391 for branches/GNU/src/gcc/libf2c/libI77/fmt.h
- Timestamp:
- Apr 27, 2004, 8:39:34 PM (22 years ago)
- Location:
- branches/GNU/src/gcc
- Files:
-
- 2 edited
-
. (modified) (1 prop)
-
libf2c/libI77/fmt.h (modified) (3 diffs, 1 prop)
Legend:
- Unmodified
- Added
- Removed
-
branches/GNU/src/gcc
- Property svn:ignore
-
old new 26 26 configure.vr 27 27 configure.vrs 28 28 29 Makefile 29 dir.info30 30 lost+found 31 31 update.out
-
- Property svn:ignore
-
branches/GNU/src/gcc/libf2c/libI77/fmt.h
-
Property cvs2svn:cvs-rev
changed from
1.1to1.1.1.2
r1390 r1391 1 1 struct syl 2 { int op; 3 int p1; 4 union { int i[2]; char *s;} p2; 5 }; 2 { 3 int op; 4 int p1; 5 union 6 { 7 int i[2]; 8 char *s; 9 } 10 p2; 11 }; 6 12 #define RET1 1 7 13 #define REVERT 2 … … 40 46 #define Z 35 41 47 #define ZM 36 42 extern int f__pc, f__parenlvl,f__revloc;48 extern int f__pc,f__revloc; 43 49 typedef union 44 { real pf; 45 doublereal pd; 46 } ufloat; 50 { 51 real pf; 52 doublereal pd; 53 } 54 ufloat; 47 55 typedef union 48 { short is; 49 #ifndef KR_headers 50 signed 56 { 57 short is; 58 signed char ic; 59 integer il; 60 #ifdef Allow_TYQUAD 61 longint ili; 51 62 #endif 52 char ic; 53 integer il; 54 #ifdef Allow_TYQUAD 55 longint ili; 56 #endif 57 } Uint; 58 #ifdef KR_headers 59 extern int (*f__doed)(),(*f__doned)(); 60 extern int (*f__dorevert)(); 61 extern int rd_ed(),rd_ned(); 62 extern int w_ed(),w_ned(); 63 #else 64 #ifdef __cplusplus 65 extern "C" { 66 #endif 67 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); 68 extern int (*f__dorevert)(void); 69 extern void fmt_bg(void); 70 extern int pars_f(char*); 71 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); 72 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); 73 extern int wrt_E(ufloat*, int, int, int, ftnlen); 74 extern int wrt_F(ufloat*, int, int, ftnlen); 75 extern int wrt_L(Uint*, int, ftnlen); 76 #ifdef __cplusplus 77 } 78 #endif 79 #endif 80 extern flag f__cblank,f__cplus,f__workdone, f__nonl; 63 } 64 Uint; 65 extern int (*f__doed) (struct syl *, char *, ftnlen), 66 (*f__doned) (struct syl *); 67 extern int (*f__dorevert) (void); 68 extern void fmt_bg (void); 69 extern int pars_f (char *); 70 extern int rd_ed (struct syl *, char *, ftnlen), rd_ned (struct syl *); 71 extern int w_ed (struct syl *, char *, ftnlen), w_ned (struct syl *); 72 extern int wrt_E (ufloat *, int, int, int, ftnlen); 73 extern int wrt_F (ufloat *, int, int, ftnlen); 74 extern int wrt_L (Uint *, int, ftnlen); 75 extern flag f__cblank, f__cplus, f__workdone, f__nonl; 81 76 extern char *f__fmtbuf; 82 77 extern int f__fmtlen; … … 95 90 #endif 96 91 97 #ifdef KR_headers 98 extern char *f__icvt(); 99 #else 100 extern char *f__icvt(longint, int*, int*, int); 101 #endif 92 extern char *f__icvt (longint, int *, int *, int); -
Property cvs2svn:cvs-rev
changed from
Note:
See TracChangeset
for help on using the changeset viewer.
