paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed in line 164 pointer(@buf) to buf

Browse Source
This commit is contained in:
marco 2000-05-30 06:45:53 +00:00
parent cf5d211042
commit 03209882e6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/objinc.inc
View File

@ -161,7 +161,7 @@ BEGIN
SetFilePos(Handle,FileSize,0,Actual);
If (Actual = FileSize) Then
Begin
Actual := FileWrite(Handle, Pointer(@Buf), 0,Actual); { Truncate the file }
Actual := FileWrite(Handle, Buf, 0,Actual); { Truncate the file }
If (Actual <> -1) Then
SetFileSize := 0
Else
@ -173,7 +173,10 @@ END;
{
$Log$
Revision 1.5 2000-03-20 19:19:44 pierre
Revision 1.6 2000-05-30 06:45:53 marco
* fixed in line 164 pointer(@buf) to buf
Revision 1.5 2000/03/20 19:19:44 pierre
* LFN support in streams
Revision 1.4 2000/02/09 16:59:29 peter