Merge branch 'master' of git://factorcode.org/git/factor
commit
3e1a2af35f
2
vm/io.c
2
vm/io.c
|
@ -179,7 +179,7 @@ void primitive_fseek(void)
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
if(fseeko(file,offset,whence) == -1)
|
if(FSEEK(file,offset,whence) == -1)
|
||||||
{
|
{
|
||||||
io_error();
|
io_error();
|
||||||
|
|
||||||
|
|
|
@ -23,6 +23,8 @@ typedef char F_SYMBOL;
|
||||||
#define STRNCMP strncmp
|
#define STRNCMP strncmp
|
||||||
#define STRDUP strdup
|
#define STRDUP strdup
|
||||||
|
|
||||||
|
#define FSEEK fseeko
|
||||||
|
|
||||||
#define FIXNUM_FORMAT "%ld"
|
#define FIXNUM_FORMAT "%ld"
|
||||||
#define CELL_FORMAT "%lu"
|
#define CELL_FORMAT "%lu"
|
||||||
#define CELL_HEX_FORMAT "%lx"
|
#define CELL_HEX_FORMAT "%lx"
|
||||||
|
|
|
@ -20,6 +20,7 @@ typedef wchar_t F_CHAR;
|
||||||
#define STRNCMP wcsncmp
|
#define STRNCMP wcsncmp
|
||||||
#define STRDUP _wcsdup
|
#define STRDUP _wcsdup
|
||||||
#define MIN(a,b) ((a)>(b)?(b):(a))
|
#define MIN(a,b) ((a)>(b)?(b):(a))
|
||||||
|
#define FSEEK _fseeki64
|
||||||
|
|
||||||
#ifdef WIN64
|
#ifdef WIN64
|
||||||
#define CELL_FORMAT "%Iu"
|
#define CELL_FORMAT "%Iu"
|
||||||
|
|
Loading…
Reference in New Issue