io.h (move_pos_offset): Remove prototype.

2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>

        * io/io.h (move_pos_offset): Remove prototype.
        * io/transfer.c (formatted_transfer_scalar_read): Use sseek
        instead of move_pos_offset.
        * io/unix.c (move_pos_offset): Remove.

From-SVN: r145876

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index ed6162be68633bb50fe2bf08d0d35c205cda5ba0..b3fb58cb338417e613a3ea8d86cb80cf5f29748d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>
+
+        * io/io.h (move_pos_offset): Remove prototype.
+        * io/transfer.c (formatted_transfer_scalar_read): Use sseek
+        instead of move_pos_offset.
+        * io/unix.c (move_pos_offset): Remove.
+
 2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/39665 libfortran/39702 libfortran/39709

diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h
index 7e4742ec294f577df126297d80502248c59359a0..c9b3db3da5fe0a160db0d6cee8ea65eba4c11a2e 100644 (file)
--- a/libgfortran/io/io.h
+++ b/libgfortran/io/io.h
@@ -707,9 +707,6 @@ fnode;
 
 /* unix.c */
 
-extern int move_pos_offset (stream *, int);
-internal_proto(move_pos_offset);
-
 extern int compare_files (stream *, stream *);
 internal_proto(compare_files);
 

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 343dfb8453a74683058887e55deecfe587dbedb8..717041d0b41d3b83452b1d7f820d1de628c52501 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -1153,7 +1153,7 @@ formatted_transfer_scalar_read (st_parameter_dt *dtp, bt type, void *p, int kind
          if (dtp->u.p.skips < 0)
            {
               if (is_internal_unit (dtp))  
-                move_pos_offset (dtp->u.p.current_unit->s, dtp->u.p.skips);
+                sseek (dtp->u.p.current_unit->s, dtp->u.p.skips, SEEK_CUR);
               else
                 fbuf_seek (dtp->u.p.current_unit, dtp->u.p.skips, SEEK_CUR);
              dtp->u.p.current_unit->bytes_left -= (gfc_offset) dtp->u.p.skips;
@@ -1329,7 +1329,7 @@ formatted_transfer_scalar_write (st_parameter_dt *dtp, bt type, void *p, int kin
          if (dtp->u.p.skips < 0)
            {
               if (is_internal_unit (dtp))  
-               move_pos_offset (dtp->u.p.current_unit->s, dtp->u.p.skips);
+               sseek (dtp->u.p.current_unit->s, dtp->u.p.skips, SEEK_CUR);
               else
                 fbuf_seek (dtp->u.p.current_unit, dtp->u.p.skips, SEEK_CUR);
              dtp->u.p.current_unit->bytes_left -= (gfc_offset) dtp->u.p.skips;

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index fe181a122d949e0fa9f3f28eb9ac0124751285a8..4d5ec70ae84ae9deb01dd8275bede14258240b6e 100644 (file)
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -146,31 +146,6 @@ typedef struct
 unix_stream;
 
 
-/*move_pos_offset()--  Move the record pointer right or left
- *relative to current position */
-
-int
-move_pos_offset (stream* st, int pos_off)
-{
-  unix_stream * str = (unix_stream*)st;
-  if (pos_off < 0)
-    {
-      str->logical_offset += pos_off;
-
-      if (str->ndirty > str->logical_offset)
-       {
-         if (str->ndirty + pos_off > 0)
-           str->ndirty += pos_off;
-         else
-            str->ndirty = 0;
-       }
-
-    return pos_off;
-  }
-  return 0;
-}
-
-
 /* fix_fd()-- Given a file descriptor, make sure it is not one of the
  * standard descriptors, returning a non-standard descriptor.  If the
  * user specifies that system errors should go to standard output,