1
{ ---------------------------------------------------------------------
3
---------------------------------------------------------------------}
5
Function _IO_getc_unlocked(_fp: P_IO_FILE): longint;
7
if _fp^._IO_read_ptr>=_fp^._IO_read_end then
11
Result:=PByte(_fp^._IO_read_ptr)^;
12
Inc(_fp^._IO_read_ptr);
17
Function _IO_peekc_unlocked(_fp: P_IO_FILE): longint;
19
if (_fp^._IO_read_ptr>=_fp^._IO_read_end) and (__underflow(_fp) = __EOF) then
22
Result:=PByte(_fp^._IO_read_ptr)^;
26
Function _IO_putc_unlocked(_ch: Char; _fp: P_IO_FILE): longint;
28
if _fp^._IO_write_ptr>=_fp^._IO_write_end then
29
Result:=__overflow(_fp, Byte(_ch))
33
_fp^._IO_write_ptr^:=_ch;
34
Inc(_fp^._IO_write_ptr);
39
Function _IO_getwc_unlocked(_fp: P_IO_FILE): longint;
41
if Cardinal(_fp^._wide_data^._IO_read_ptr)>=Cardinal(_fp^._wide_data^._IO_read_end) then
45
//!! MVC Result:=_fp^._wide_data^._IO_read_ptr^;
46
Inc(_fp^._wide_data^._IO_read_ptr);
51
Function _IO_putwc_unlocked(_wch: wchar_t; _fp: P_IO_FILE): longint;
54
if Cardinal(_fp^._wide_data^._IO_write_ptr)>=Cardinal(_fp^._wide_data^._IO_write_end) then
55
Result:=__woverflow(_fp, _wch)
59
_fp^._wide_data^._IO_write_ptr^:=_wch;
60
Inc(_fp^._wide_data^._IO_write_ptr);
66
Function _IO_feof_unlocked(_fp: P_IO_FILE): longint;
68
Result:=Ord((_fp^._flags and _IO_EOF_SEEN)<>0);
72
Function _IO_ferror_unlocked(_fp: P_IO_FILE): longint;
74
Result:=Ord((_fp^._flags and _IO_ERR_SEEN)<>0);
78
Function _IO_PENDING_OUTPUT_COUNT(_fp: P_IO_FILE): longint;
80
Result:=(_fp^._IO_write_ptr)-(_fp^._IO_write_base);