Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libI77 / uio.c

diff --git a/libf2c/libI77/uio.c b/libf2c/libI77/uio.c
deleted file mode 100644 (file)
index ea733ce..0000000
--- a/libf2c/libI77/uio.c
+++ /dev/null
@@ -1,69 +0,0 @@
-#include "f2c.h"
-#include "fio.h"
-#include <sys/types.h>
-uiolen f__reclen;
-
-#ifdef KR_headers
-do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
-do_us(ftnint *number, char *ptr, ftnlen len)
-#endif
-{
-       if(f__reading)
-       {
-               f__recpos += (int)(*number * len);
-               if(f__recpos>f__reclen)
-                       err(f__elist->cierr, 110, "do_us");
-               if (fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number)
-                       err(f__elist->ciend, EOF, "do_us");
-               return(0);
-       }
-       else
-       {
-               f__reclen += *number * len;
-               (void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf);
-               return(0);
-       }
-}
-#ifdef KR_headers
-integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
-integer do_ud(ftnint *number, char *ptr, ftnlen len)
-#endif
-{
-       f__recpos += (int)(*number * len);
-       if(f__recpos > f__curunit->url && f__curunit->url!=1)
-               err(f__elist->cierr,110,"do_ud");
-       if(f__reading)
-       {
-#ifdef Pad_UDread
-#ifdef KR_headers
-       int i;
-#else
-       size_t i;
-#endif
-               if (!(i = fread(ptr,(size_t)len,(size_t)(*number),f__cf))
-                && !(f__recpos - *number*len))
-                       err(f__elist->cierr,EOF,"do_ud");
-               if (i < *number)
-                       memset(ptr + i*len, 0, (*number - i)*len);
-               return 0;
-#else
-               if(fread(ptr,(size_t)len,(size_t)(*number),f__cf) != *number)
-                       err(f__elist->cierr,EOF,"do_ud");
-               else return(0);
-#endif
-       }
-       (void) fwrite(ptr,(size_t)len,(size_t)(*number),f__cf);
-       return(0);
-}
-#ifdef KR_headers
-integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
-integer do_uio(ftnint *number, char *ptr, ftnlen len)
-#endif
-{
-       if(f__sequential)
-               return(do_us(number,ptr,len));
-       else    return(do_ud(number,ptr,len));
-}