Browse Source

* fixed twpofilereader.getnextnoncommentline() when reusing a previously
read line
* fixed skipping of unnecessary wpo feedback file sections

git-svn-id: branches/wpo@11891 -

Jonas Maebe 17 years ago
parent
commit
afa782ee86
1 changed files with 7 additions and 2 deletions
  1. 7 2
      compiler/wpobase.pas

+ 7 - 2
compiler/wpobase.pas

@@ -291,6 +291,7 @@ implementation
         begin
         begin
           s:=fcurline;
           s:=fcurline;
           fusecurline:=false;
           fusecurline:=false;
+          result:=true;
           exit;
           exit;
         end;
         end;
       repeat
       repeat
@@ -371,8 +372,12 @@ implementation
                   twpocomponentbase(fdest.wpoinfouse[wpotype]).loadfromwpofilesection(self);
                   twpocomponentbase(fdest.wpoinfouse[wpotype]).loadfromwpofilesection(self);
                 end
                 end
               else
               else
-                message1(wpo_skipping_unnecessary_section,sectionname);
-              break;
+                begin
+                  message1(wpo_skipping_unnecessary_section,sectionname);
+                  { skip the current section }
+                  while sectiongetnextline(s) do
+                    ;
+                end;
             end
             end
           else
           else
             begin
             begin