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

* should compile again

Browse Source
This commit is contained in:
Jonas Maebe 2000-05-29 05:32:50 +00:00
parent a72e98cb7f
commit 17c2136ba6
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/dxeload.pp
View File

@ -63,7 +63,7 @@ begin
if ioresult<>0 then if ioresult<>0 then
exit; exit;
{ load the header } { load the header }
blockread(f,@dh,sizeof(dxe_header),i); blockread(f,dh,sizeof(dxe_header),i);
if (i<>sizeof(dxe_header)) or (dh.magic<>DXE_MAGIC) then if (i<>sizeof(dxe_header)) or (dh.magic<>DXE_MAGIC) then
begin begin
close(f); close(f);
@ -96,7 +96,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.4 2000-02-09 16:59:28 peter Revision 1.5 2000-05-29 05:32:50 jonas
* should compile again
Revision 1.4 2000/02/09 16:59:28 peter
* truncated log * truncated log
Revision 1.3 2000/01/07 16:41:31 daniel Revision 1.3 2000/01/07 16:41:31 daniel

7
rtl/win32/objinc.inc
View File

@ -172,7 +172,7 @@ BEGIN
SetFilePos(Handle,FileSize,0,Actual); SetFilePos(Handle,FileSize,0,Actual);
If (Actual = FileSize) Then If (Actual = FileSize) Then
Begin Begin
Actual := FileWrite(Handle, Pointer(@Buf), 0,Actual); { Truncate the file } Actual := FileWrite(Handle, Buf, 0,Actual); { Truncate the file }
If (Actual <> -1) Then If (Actual <> -1) Then
SetFileSize := 0 SetFileSize := 0
Else Else
@ -184,7 +184,10 @@ END;
{ {
$Log$ $Log$
Revision 1.5 2000-02-09 16:59:34 peter Revision 1.6 2000-05-29 05:32:51 jonas
* should compile again
Revision 1.5 2000/02/09 16:59:34 peter
* truncated log * truncated log
Revision 1.4 2000/01/07 16:41:52 daniel Revision 1.4 2000/01/07 16:41:52 daniel