From f49055ef7279b1037695582e8d1c4066035d8765 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Fri, 29 Dec 2006 19:26:40 +0000
Subject: [PATCH] * There is no SetFilePointerEx for wince.

git-svn-id: trunk@5738 -
---
 rtl/win/sysfile.inc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/rtl/win/sysfile.inc b/rtl/win/sysfile.inc
index d1dca22fbb..10e279941a 100644
--- a/rtl/win/sysfile.inc
+++ b/rtl/win/sysfile.inc
@@ -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