mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 04:30:10 +00:00
6966ccda7e
Made lots of functions __fastcall__. git-svn-id: svn://svn.cc65.org/cc65/trunk@2615 b7a2c559-68d2-44c3-8de9-860c34a00d81
36 lines
649 B
C
36 lines
649 B
C
/*
|
|
* ftell.c
|
|
*
|
|
* Christian Groessler, 07-Aug-2000
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
#include <unistd.h>
|
|
#include "_file.h"
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
/* Code */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
long __fastcall__ ftell (FILE* f)
|
|
{
|
|
long pos;
|
|
|
|
/* Is the file open? */
|
|
if ((f->f_flags & _FOPEN) == 0) {
|
|
_errno = EINVAL; /* File not open */
|
|
return -1L;
|
|
}
|
|
|
|
pos = lseek(f->f_fd, 0L, SEEK_CUR);
|
|
return pos; /* -1 for error, comes from lseek() */
|
|
}
|
|
|