]> git.sur5r.net Git - cc65/blob - libsrc/common/fgetpos.c
Updated to use cbm_kernal.inc. Whitespace cleanups
[cc65] / libsrc / common / fgetpos.c
1 /*
2 ** fgetpos.c
3 **
4 ** Christian Groessler, 07-Aug-2000
5 */
6
7
8
9 #include <stdio.h>
10
11
12
13 /*****************************************************************************/
14 /*                                   Code                                    */
15 /*****************************************************************************/
16
17
18
19 int __fastcall__ fgetpos (FILE* f, fpos_t* pos)
20 {
21     *pos = ftell (f);
22
23     if (*pos != -1)
24         return 0;
25     return -1;
26 }
27