* Fix forward class definition writing

git-svn-id: trunk@37140 -

packages/fcl-passrc/examples/pasrewrite.pp

@@ -247,7 +247,7 @@ begin
       FileResolver := TFileResolver.Create;
       FileResolver.UseStreams:=True;
       Scanner := TPascalScanner.Create(FileResolver);
-      Scanner.Options:=[po_AsmWhole];
+      Scanner.Options:=[po_keepclassforward,po_AsmWhole];
       SCanner.LogEvents:=SE.ScannerLogEvents;
       SCanner.OnLog:=SE.Onlog;
       Scanner.AddDefine('FPK');
@@ -316,7 +316,7 @@ begin
         raise Exception.Create(SErrNoSourceGiven);
       FileResolver.AddIncludePath(ExtractFilePath(InputFileName));
       Scanner.OpenFile(InputFilename);
-      Parser.Options:=Parser.Options+[po_AsmWhole];
+      Parser.Options:=Parser.Options+[po_AsmWhole,po_KeepClassForward];
       Parser.ParseMain(Result);
     finally
       Parser.Free;

packages/fcl-passrc/src/paswrite.pp

@@ -555,8 +555,11 @@ begin
       for i := 0 to ASection.UsesList.Count - 1 do
         if AllowUnit(TPasElement(ASection.UsesList[i]).Name) then
           AddUnit(TPasElement(ASection.UsesList[i]).Name,Nil);
-    AddLn(';');
-    AddLn;
+    if C>0 then
+      begin
+      AddLn(';');
+      AddLn;
+      end;
     end;
 end;
 
@@ -607,6 +610,8 @@ begin
     okRecordHelper: Add('record helper');
     okClassHelper: Add('class helper');
   end;
+  if AClass.IsForward then
+    exit;
   if (AClass.ObjKind=okClass) and (ACLass.ExternalName<>'') and NotOption(woNoExternalClass) then
     Add(' external name ''%s'' ',[AClass.ExternalName]);
   if Assigned(AClass.AncestorType) then