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

* 64 bit file size support

Browse Source 
git-svn-id: trunk@3711 -
This commit is contained in:
florian 2006-05-27 21:44:22 +00:00
parent 92ba95ec4f
commit f4e27fd450
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/win/sysutils.pp
View File

@ -82,7 +82,6 @@ begin
end; end;
{ UUID generation. } { UUID generation. }
function CoCreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid'; function CoCreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid';
@ -132,6 +131,11 @@ end;
File Functions File Functions
****************************************************************************} ****************************************************************************}
var
SetFilePointerEx : function(hFile : THandle;
liDistanceToMove : int64;lpNewFilePointer : pint64;
dwMoveMethod : DWord) : ByteBool;stdcall;
Function FileOpen (Const FileName : string; Mode : Integer) : THandle; Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
const const
AccessMode: array[0..2] of Cardinal = ( AccessMode: array[0..2] of Cardinal = (
@ -200,8 +204,13 @@ end;
Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64; Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
begin begin
{$warning need to add 64bit call } if assigned(SetFilePointerEx) then
Result := longint(SetFilePointer(Handle, FOffset, nil, Origin)); begin
if not(SetFilePointerEx(Handle, FOffset, @result, Origin)) then
Result:=-1;
end
else
Result:=longint(SetFilePointer(Handle, FOffset, nil, Origin));
end; end;
@ -1138,13 +1147,27 @@ procedure InitWin32Widestrings;
end; end;
procedure SetupProcVars;
var
hinstLib : THandle;
begin
SetFilePointerEx:=nil;
hinstLib:=LoadLibrary(KernelDLL);
if hinstLib<>0 then
begin
pointer(SetFilePointerEx):=GetProcAddress(hinstLib,'SetFilePointerEx');
FreeLibrary(hinstLib);
end;
end;
Initialization Initialization
InitWin32Widestrings; InitWin32Widestrings;
InitExceptions; { Initialize exceptions. OS independent } InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings } InitInternational; { Initialize internationalization settings }
LoadVersionInfo; LoadVersionInfo;
InitSysConfigDir; InitSysConfigDir;
SetupProcVars;
Finalization Finalization
DoneExceptions; DoneExceptions;
if kernel32dll<>0 then if kernel32dll<>0 then