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/flush1_.c

    • Property cvs2svn:cvs-rev changed from 1.1 to 1.1.1.2
    r1390 r1391  
    2626/* This flushes a single unit, c.f. libI77 version. */
    2727
    28 #ifdef KR_headers
    29 extern integer G77_fnum_0 ();
    30 
    31 /* Subroutine */ int G77_flush1_0 (lunit)
    32      integer *lunit;
    33 #else
    3428extern integer G77_fnum_0 (integer *);
    3529
    36 /* Subroutine */ int G77_flush1_0 (const integer *lunit)
    37 #endif
     30/* Subroutine */ int
     31G77_flush1_0 (const integer * lunit)
    3832{
    39   if (*lunit>=MXUNIT || *lunit<0)
    40     err(1,101,"flush");
     33  if (*lunit0)
     34    err"flush");
    4135  /* f__units is a table of descriptions for the unit numbers (defined
    4236     in io.h) with file descriptors rather than streams */
    4337  if (f__units[*lunit].ufd != NULL && f__units[*lunit].uwrt)
    44     fflush(f__units[*lunit].ufd);
     38    fflush(f__units[*lunit].ufd);
    4539  return 0;
    4640}
Note: See TracChangeset for help on using the changeset viewer.