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

* Range check error fix

Browse Source
This commit is contained in:
carl 2001-12-11 23:10:18 +00:00
parent 0e53052605
commit f94967ca66
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win32/sysutils.pp
View File

@ -56,8 +56,8 @@ Var
FN : string;
begin
FN:=FileName+#0;
result := CreateFile(@FN[1], AccessMode[Mode and 3],
ShareMode[(Mode and $F0) shr 4], nil, OPEN_EXISTING,
result := CreateFile(@FN[1], dword(AccessMode[Mode and 3]),
dword(ShareMode[(Mode and $F0) shr 4]), nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
end;
@ -686,7 +686,10 @@ Finalization
end.
{
$Log$
Revision 1.10 2001-10-25 21:23:49 peter
Revision 1.11 2001-12-11 23:10:18 carl
* Range check error fix
Revision 1.10 2001/10/25 21:23:49 peter
* added 64bit fileseek
Revision 1.9 2001/06/03 15:18:01 peter