Ignore:
Timestamp:
Apr 27, 2004, 8:39:34 PM (22 years ago)
Author:
bird
Message:

GCC v3.3.3 sources.

Location:
branches/GNU/src/gcc
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/GNU/src/gcc

    • Property svn:ignore

      •  

        old new  
        2626configure.vr
        2727configure.vrs
         28
        2829Makefile
        29 dir.info
        3030lost+found
        3131update.out

  • branches/GNU/src/gcc/libf2c/libU77/fputc_.c

    • Property cvs2svn:cvs-rev changed from 1.1 to 1.1.1.2
    r1390 r1391  
    2727#include "fio.h"
    2828
    29 #ifdef KR_headers
    30 integer G77_fputc_0 (lunit, c, Lc)
    31      integer *lunit;
    32      ftnlen Lc;                 /* should be 1 */
    33      char *c;
    34 #else
    35 integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc)
    36 #endif
     29integer
     30G77_fputc_0 (const integer * lunit, const char *c,
     31             const ftnlen Lc __attribute__ ((__unused__)))
    3732{
    3833  int err;
    3934  FILE *f = f__units[*lunit].ufd;
    4035
    41   if (*lunit>=MXUNIT || *lunit<0)
     36  if (*lunit0)
    4237    return 101;                 /* bad unit error */
    4338  err = putc (c[0], f);
    44   if (err == EOF) {
    45     if (feof (f))
    46       return -1;
    47     else
    48       return ferror (f);
    49   }
     39  if (err == EOF)
     40    {
     41      if (feof (f))
     42        return -1;
     43      else
     44        return ferror (f);
     45    }
    5046  else
    5147    return 0;
    5248}
    5349
    54 #ifdef KR_headers
    55 integer G77_fput_0 (c, Lc)
    56      ftnlen Lc;                 /* should be 1 */
    57      char *c;
    58 #else
    59 integer G77_fput_0 (const char *c, const ftnlen Lc)
    60 #endif
     50integer
     51G77_fput_0 (const char *c, const ftnlen Lc)
    6152{
    6253  integer six = 6;
Note: See TracChangeset for help on using the changeset viewer.