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

* Made file open read-only

Browse Source 
git-svn-id: trunk@4417 -
This commit is contained in:
michael 2006-08-13 13:31:49 +00:00
parent 93db6d6174
commit ad11bfe96d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/base/hash/md5.pp
View File

@ -336,11 +336,14 @@ var
Buf : Pchar;
Context: TMD5Context;
Count : Longint;
ofm : Longint;
begin
MD5Init(Context);
Assign(F,N);
{$i-}
ofm:=FileMode;
FileMode:=0;
Reset(F,1);
{$i+}
if (IOResult=0) then
@ -355,6 +358,7 @@ begin
Close(F);
end;
MD5Final(Context, Result);
FileMode:=ofm;
end;