[Lazarus] Division by zero. with fpc r30855

FreeMan freeman35 at delphiturkiye.com
Thu May 21 16:44:53 CEST 2015


for not fill pain, not pay & hate puzzle.
in terminal
gdb lazarus
run
lazarus IDE started, run or build project, if get error, you can see 
which file is raised exception


On 21.05.2015 11:34, FreeMan wrote:
>
>> Do you have ppu files in your include files path?
>> Please test now.
>>
>>
>> Mattias
> I checked all lpk one by one, and all folders I couldn't find any ppu 
> in include file path.
> All lpk's "unit output directory (-FU)" like this.
> ../../all_libs/ $(PkgName)/$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)
>
> ERROR in IDE:
> Creating gdb catchable error:
>
> Program received signal SIGFPE, Arithmetic exception.
> 0x0000000100696b71 in RAISEEXCEPTION (MSG=0x0) at ideprocs.pp:2278
> 2278      if (length(Msg) div (length(Msg) div 10000))=0 then ;
> (gdb) bt
> #0  0x0000000100696b71 in RAISEEXCEPTION (MSG=0x0) at ideprocs.pp:2278
> #1  0x0000000100b51c08 in ADD (this=0x118653fa0, SRCFILE=0x1197f38c0, 
> PPUFILE=0x0) at ../packager/interpkgconflictfiles.pas:182

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20150521/93980ed6/attachment-0003.html>
-------------- next part --------------
Index: /opt/lazarus/packager/interpkgconflictfiles.pas
===================================================================
--- /opt/lazarus/packager/interpkgconflictfiles.pas	(revision 49126)
+++ /opt/lazarus/packager/interpkgconflictfiles.pas	(working copy)
@@ -178,8 +178,10 @@
     RaiseException('');
   if (SrcFile<>nil) and (PPUFile<>nil) and (PPUFile.OwnerInfo<>SrcFile.OwnerInfo) then
     RaiseException('');
-  if (SrcFile<>nil) and FilenameIsCompiledSource(SrcFile.ShortFilename) then
+  if (SrcFile<>nil) and FilenameIsCompiledSource(SrcFile.ShortFilename) then begin
+    DebugLn('Check this file -->> ', SrcFile.FullFilename);
     RaiseException('');
+  end;
   if (PPUFile<>nil) and not FilenameIsCompiledSource(PPUFile.ShortFilename) then
     RaiseException('');
   Result:=length(CompiledFiles);


More information about the Lazarus mailing list