mlibc: Implement ftell, fseek.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 29 May 2018 17:33:32 +0000 (19:33 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 29 May 2018 17:33:32 +0000 (19:33 +0200)
* lib/libc+tcc.c (ftell, fseek): Implement.

lib/libc+tcc.c

index e9b77cbdfb526f983041dd32e59ddc9a31b69682..100bfb171258e0e95bc2cd78ad97b99e8ef9aeec 100644 (file)
@@ -98,18 +98,16 @@ fread (void *data, size_t size, size_t count, FILE *stream)
   return bytes;
 }
 
-int
-fseek (FILE *stream, long offset, int whence)
+long
+ftell (FILE *stream)
 {
-  eputs ("fseek stub\n");
-  return 0;
+  return lseek ((int)stream, 0, SEEK_CUR);
 }
 
-long
-ftell (FILE *stream)
+int
+fseek (FILE *stream, long offset, int whence)
 {
-  eputs ("ftell stub\n");
-  return 0;
+  return lseek ((int)stream, offset, whence);
 }
 
 int