c/4128: Bootstrap on solaris2.7 fails compiling libf2c/libF77/l_gt.c

c/4128: Bootstrap on solaris2.7 fails compiling libf2c/libF77/l_gt.c

[ghazi]

>Number:         4128
>Category:       c
>Synopsis:       Bootstrap on solaris2.7 fails compiling libf2c/libF77/l_gt.c
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    unassigned
>State:          open
>Class:          ice-on-legal-code
>Submitter-Id:   net
>Arrival-Date:   Sat Aug 25 13:46:01 PDT 2001
>Closed-Date:
>Last-Modified:
>Originator:     Kaveh Ghazi
>Release:        gcc 3.1 20010824 (experimental)
>Organization:
>Environment:
sparc-sun-solaris2.7
>Description:
When bootstrapping with RTL checking enabled on
sparc-sun-solaris2.7, I get the following error after
the three-stage completes when compiling libf2c:

libf2c/libF77/l_gt.c: In function `l_gt':
libf2c/libF77/l_gt.c:11: RTL check: expected code `reg', have `subreg' in gen_v9_scc, at config/sparc/sparc.c:2282
>How-To-Repeat:
configure --enable-checking=misc,tree,rtl,gc and
make bootstrap on sparc-sun-solaris2.7
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="l_gt.i"
Content-Disposition: inline; filename="l_gt.i"

# 1 "../../../../../egcs-CVS20010825/libf2c/libF77/l_gt.c"
# 1 "<builtin>"
# 1 "<command line>"
# 1 "../../../../../egcs-CVS20010825/libf2c/libF77/l_gt.c"
# 1 "../../../../../egcs-CVS20010825/libf2c/f2c.h" 1
# 35 "../../../../../egcs-CVS20010825/libf2c/f2c.h"
# 1 "../g2c.h" 1
# 21 "../g2c.h"
typedef __g77_integer integer;
typedef __g77_uinteger uinteger;
typedef char *address;
typedef short int shortint;
typedef float real;
typedef double doublereal;
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
typedef __g77_integer logical;
typedef short int shortlogical;
typedef char logical1;
typedef char integer1;
typedef __g77_longint longint;
typedef __g77_ulongint ulongint;
# 55 "../g2c.h"
typedef __g77_integer flag;
typedef __g77_integer ftnlen;
typedef __g77_integer ftnint;



typedef struct
{ flag cierr;
        ftnint ciunit;
        flag ciend;
        char *cifmt;
        ftnint cirec;
} cilist;


typedef struct
{ flag icierr;
        char *iciunit;
        flag iciend;
        char *icifmt;
        ftnint icirlen;
        ftnint icirnum;
} icilist;


typedef struct
{ flag oerr;
        ftnint ounit;
        char *ofnm;
        ftnlen ofnmlen;
        char *osta;
        char *oacc;
        char *ofm;
        ftnint orl;
        char *oblnk;
} olist;


typedef struct
{ flag cerr;
        ftnint cunit;
        char *csta;
} cllist;


typedef struct
{ flag aerr;
        ftnint aunit;
} alist;


typedef struct
{ flag inerr;
        ftnint inunit;
        char *infile;
        ftnlen infilen;
        ftnint *inex;
        ftnint *inopen;
        ftnint *innum;
        ftnint *innamed;
        char *inname;
        ftnlen innamlen;
        char *inacc;
        ftnlen inacclen;
        char *inseq;
        ftnlen inseqlen;
        char *indir;
        ftnlen indirlen;
        char *infmt;
        ftnlen infmtlen;
        char *inform;
        ftnint informlen;
        char *inunf;
        ftnlen inunflen;
        ftnint *inrecl;
        ftnint *innrec;
        char *inblank;
        ftnlen inblanklen;
} inlist;



union Multitype {
        integer1 g;
        shortint h;
        integer i;

        real r;
        doublereal d;
        complex c;
        doublecomplex z;
        };

typedef union Multitype Multitype;



struct Vardesc {
        char *name;
        char *addr;
        ftnlen *dims;
        int type;
        };
typedef struct Vardesc Vardesc;

struct Namelist {
        char *name;
        Vardesc **vars;
        int nvars;
        };
typedef struct Namelist Namelist;
# 193 "../g2c.h"
typedef int (*U_fp)();
typedef shortint (*J_fp)();
typedef integer (*I_fp)();
typedef real (*R_fp)();
typedef doublereal (*D_fp)(), (*E_fp)();
typedef void (*C_fp)();
typedef void (*Z_fp)();
typedef logical (*L_fp)();
typedef shortlogical (*K_fp)();
typedef void (*H_fp)();
typedef int (*S_fp)();


typedef void C_f;
typedef void H_f;
typedef void Z_f;
typedef doublereal E_f;
# 36 "../../../../../egcs-CVS20010825/libf2c/f2c.h" 2
# 2 "../../../../../egcs-CVS20010825/libf2c/libF77/l_gt.c" 2






extern integer s_cmp(char *, char *, ftnlen, ftnlen);
logical l_gt(char *a, char *b, ftnlen la, ftnlen lb)

{
return(s_cmp(a,b,la,lb) > 0);
}