I got recently got fatal error on compiling ZEOS with fpc/lazarus trunk.
It also occured in fpspreadsheet.
Anyone have problem like this?
Free Pascal Compiler version 2.7.1 [2014/11/23] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
(1002) Target OS: Win32 for i386
(3104) Compiling zcore.pas
(3104) Compiling C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZExpression.pa
s
(3104) Compiling C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZVariant.pas
C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZVariant.pas(493,23) Hint: (506
0) Function result variable does not seem to be initialized
C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZVariant.pas(778,22) Hint: (405
5) Conversion between ordinals and pointers is not portable
C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZVariant.pas(1257,27) Hint: (50
60) Function result variable does not seem to be initialized
C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZVariant.pas(1415,30) Hint: (40
55) Conversion between ordinals and pointers is not portable
C:\development\extras\ZEOSDBO-7.1-fixes\src\core\ZVariant.pas(1469,34) Warning:
(4105) Implicit string type conversion with potential data loss from "UnicodeStr
ing" to "AnsiString"
Fatal: (1024) I/O error: File not open
Error: C:\development\fpc\bin\i386-win32\ppc386.exe returned an error exitcode
Compiling package zcore 7.1: stopped with exit code 1
solved. there is a compiler problem with filevar close function.
patch attached.
Index: rtl/inc/file.inc
===================================================================
--- rtl/inc/file.inc (revision 29140)
+++ rtl/inc/file.inc (working copy)
@@ -422,7 +422,8 @@
begin
Do_Close(FileRec(f).Handle);
FileRec(f).mode:=fmClosed;
- end
+ end;
+ fmClosed: ;
else InOutRes:=103;
end;
End;