From 288d85bcaeeac7bd56d061943aefdbe49d4bbcf6 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 26 Jul 2010 10:08:00 +0000
Subject: [PATCH] codetools: fixed testfpcsrcunitrules when no ppu exists

git-svn-id: trunk@26836 -
---
 .../examples/testfpcsrcunitrules.lpr          | 31 ++++++++++---------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/components/codetools/examples/testfpcsrcunitrules.lpr b/components/codetools/examples/testfpcsrcunitrules.lpr
index 1d1990a8ff..85db58bdb9 100644
--- a/components/codetools/examples/testfpcsrcunitrules.lpr
+++ b/components/codetools/examples/testfpcsrcunitrules.lpr
@@ -322,21 +322,23 @@ begin
   Units:=UnitSet.GetConfigCache(false).Units;
 
   // first list all duplicates with a ppu file (important)
-  Cnt:=0;
-  Node:=SrcDuplicates.Tree.FindLowest;
-  while Node<>nil do begin
-    Item:=PStringToStringTreeItem(Node.Data);
-    aUnitName:=Item^.Name;
-    Files:=Item^.Value;
-    PPUFile:=Units[aUnitName];
-    if CompareFileExt(PPUFile,'ppu',false)=0 then begin
-      if Cnt=0 then writeln;
-      inc(Cnt);
-      writeln('WARNING: duplicate source file for ppu ',aUnitName,' files=',Files);
+  if Units<>nil then begin
+    Cnt:=0;
+    Node:=SrcDuplicates.Tree.FindLowest;
+    while Node<>nil do begin
+      Item:=PStringToStringTreeItem(Node.Data);
+      aUnitName:=Item^.Name;
+      Files:=Item^.Value;
+      PPUFile:=Units[aUnitName];
+      if CompareFileExt(PPUFile,'ppu',false)=0 then begin
+        if Cnt=0 then writeln;
+        inc(Cnt);
+        writeln('WARNING: duplicate source file for ppu ',aUnitName,' files=',Files);
+      end;
+      Node:=SrcDuplicates.Tree.FindSuccessor(Node);
     end;
-    Node:=SrcDuplicates.Tree.FindSuccessor(Node);
+    if Cnt>0 then writeln;
   end;
-  if Cnt>0 then writeln;
 
   // then list all duplicates without a ppu file (unimportant)
   Cnt:=0;
@@ -345,8 +347,7 @@ begin
     Item:=PStringToStringTreeItem(Node.Data);
     aUnitName:=Item^.Name;
     Files:=Item^.Value;
-    PPUFile:=Units[aUnitName];
-    if PPUFile='' then begin
+    if (Units=nil) or (Units[aUnitName]='') then begin
       if Cnt=0 then writeln;
       inc(Cnt);
       writeln('HINT: duplicate source files: unit=',aUnitName,' files=',Files);