# revisions: 46322

git-svn-id: branches/fixes_3_2@46828 -

packages/fcl-passrc/src/paswrite.pp

@@ -801,13 +801,11 @@ begin
     begin
     if LParentIsClassOrRecord then
       begin
-      Writeln('a');
       if NotOption(woNoExternalClass) then
         Add('; external name ''%s''',[aVar.ExportName.GetDeclaration(true)]);
       end
     else if NotOption(woNoExternalVar) then
       begin
-      Writeln('b');
       Add('; external ');
       if (aVar.LibraryName<>Nil) then
         Add('%s ',[aVar.LibraryName.GetDeclaration(true)]);
@@ -894,6 +892,7 @@ begin
     Add('; '+cCallingConventions[TPasProcedureType(AProc).CallingConvention]);
 end;
 
+
 procedure TPasWriter.WriteProcDecl(AProc: TPasProcedure; ForceBody : Boolean = False; NamePrefix : String = '');
 
   Procedure EmptyBody;