paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +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 var
l:longint; l:longint;
begin begin
{$ifndef wince}
if assigned(SetFilePointerEx) then if assigned(SetFilePointerEx) then
begin begin
if not(SetFilePointerEx(handle,0,@result,FILE_CURRENT)) then if not(SetFilePointerEx(handle,0,@result,FILE_CURRENT)) then
@ -115,6 +116,7 @@ begin
end; end;
end end
else else
{$endif wince}
begin begin
l:=SetFilePointer(handle,0,nil,FILE_CURRENT); l:=SetFilePointer(handle,0,nil,FILE_CURRENT);
if l=-1 then if l=-1 then
@ -130,6 +132,7 @@ end;
procedure do_seek(handle:thandle;pos : Int64); procedure do_seek(handle:thandle;pos : Int64);
begin begin
{$ifndef wince}
if assigned(SetFilePointerEx) then if assigned(SetFilePointerEx) then
begin begin
if not(SetFilePointerEx(handle,pos,nil,FILE_BEGIN)) then if not(SetFilePointerEx(handle,pos,nil,FILE_BEGIN)) then
@ -139,6 +142,7 @@ begin
end; end;
end end
else else
{$endif wince}
begin begin
if SetFilePointer(handle,pos,nil,FILE_BEGIN)=-1 then if SetFilePointer(handle,pos,nil,FILE_BEGIN)=-1 then
Begin Begin
@ -151,6 +155,7 @@ end;
function do_seekend(handle:thandle):Int64; function do_seekend(handle:thandle):Int64;
begin begin
{$ifndef wince}
if assigned(SetFilePointerEx) then if assigned(SetFilePointerEx) then
begin begin
if not(SetFilePointerEx(handle,0,@result,FILE_END)) then if not(SetFilePointerEx(handle,0,@result,FILE_END)) then
@ -160,6 +165,7 @@ begin
end; end;
end end
else else
{$endif wince}
begin begin
do_seekend:=SetFilePointer(handle,0,nil,FILE_END); do_seekend:=SetFilePointer(handle,0,nil,FILE_END);
if do_seekend=-1 then if do_seekend=-1 then