* Fix expandall

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@3677 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 6 insertions, 2 deletions

diff --git a/fv/outline.pas b/fv/outline.pas
index 246cf66d0f..6d365681cb 100644
--- a/fv/outline.pas
+++ b/fv/outline.pas
@@ -195,8 +195,12 @@ procedure Toutlineviewer.expandall(node:pointer);
 var i:sw_integer;
 
 begin
-  for i:=0 to getnumchildren-1 do
-    expandall(getchild(i));
+  if haschildren(node) then
+    begin
+      for i:=0 to getnumchildren(node)-1 do
+        expandall(getchild(node,i));
+      adjust(node,true);
+    end;
 end;
 
 function Toutlineviewer.firstthat(test:pointer):pointer;