paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:09:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* There is no SetFilePointerEx for wince.

Browse Source 
git-svn-id: trunk@5738 -
This commit is contained in:
yury 2006-12-29 19:26:40 +00:00
parent f972fdac2d
commit f49055ef72
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win/sysfile.inc
View File

@ -106,6 +106,7 @@ function do_filepos(handle : thandle) : Int64;
var
l:longint;
begin
{$ifndef wince}
if assigned(SetFilePointerEx) then
begin
if not(SetFilePointerEx(handle,0,@result,FILE_CURRENT)) then
@ -115,6 +116,7 @@ begin
end;
end
else
{$endif wince}
begin
l:=SetFilePointer(handle,0,nil,FILE_CURRENT);
if l=-1 then
@ -130,6 +132,7 @@ end;
procedure do_seek(handle:thandle;pos : Int64);
begin
{$ifndef wince}
if assigned(SetFilePointerEx) then
begin
if not(SetFilePointerEx(handle,pos,nil,FILE_BEGIN)) then
@ -139,6 +142,7 @@ begin
end;
end
else
{$endif wince}
begin
if SetFilePointer(handle,pos,nil,FILE_BEGIN)=-1 then
Begin
@ -151,6 +155,7 @@ end;
function do_seekend(handle:thandle):Int64;
begin
{$ifndef wince}
if assigned(SetFilePointerEx) then
begin
if not(SetFilePointerEx(handle,0,@result,FILE_END)) then
@ -160,6 +165,7 @@ begin
end;
end
else
{$endif wince}
begin
do_seekend:=SetFilePointer(handle,0,nil,FILE_END);
if do_seekend=-1 then