Recent

Author Topic: [solved] fatal error : "File not open" at some packages.  (Read 2875 times)

parcel

  • Full Member
  • ***
  • Posts: 135
[solved] fatal error : "File not open" at some packages.
« on: November 23, 2014, 12:47:46 am »
I got recently got fatal error on compiling ZEOS with fpc/lazarus trunk.

It also occured in fpspreadsheet.

Anyone have problem like this?

Code: [Select]
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.

Code: [Select]
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;

« Last Edit: November 24, 2014, 05:02:29 am by parcel »

zamtmn

  • Sr. Member
  • ****
  • Posts: 375
Re: [solved] fatal error : "File not open" at some packages.
« Reply #1 on: December 01, 2014, 12:38:00 am »
>>Anyone have problem like this?
Yes, same problem on fpvectorial package.
You posted a bug report?

parcel

  • Full Member
  • ***
  • Posts: 135
Re: [solved] fatal error : "File not open" at some packages.
« Reply #2 on: December 01, 2014, 11:56:25 pm »
Yep, it's hard to find bug. and also fpspreadsheet raise error at uvirtuallayer.pas.

 

TinyPortal © 2005-2018