anchor.diff:    RPS_TooManyNestedInclude = 'Too many nested include files while processing ''%s'' from ''%s''';
     RPS_IncludeNotFound = 'Unable to find file ''%s'' used from ''%s''';
     RPS_DefineTooManyParameters = 'Too many parameters at %d:%d';
  -  RPS_NoIfdefForEndif = 'No IFDEF for ENDIF at %d:%d';
  -  RPS_NoIfdefForElse = 'No IFDEF for ELSE at %d:%d';
  -  RPS_ElseTwice = 'Can''t use ELSE twice at %d:%d';
  -  RPS_UnknownCompilerDirective = 'Unknown compiler directives at %d:%d';
  +  RPS_NoIfdefForEndif = 'No IFDEF for ENDIF in ''%s'' at %d:%d';
  +  RPS_NoIfdefForElse = 'No IFDEF for ELSE in ''%s'' at %d:%d';
  +  RPS_ElseTwice = 'Can''t use ELSE twice in ''%s'' at %d:%d';
  +  RPS_UnknownCompilerDirective = 'Unknown compiler directives in ''%s'' at %d:%d';
     RPs_DefineNotClosed = 'Define not closed';
   
   { TPSLineInfoList }
  
positive.code:             //- jgv remove - borland use it (sysutils.pas)
              //- if s <> '' then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
              if FDefineState.Count = 0 then
                raise EPSPreProcessor.CreateFmt(RPS_NoIfdefForEndif, [Parser.Row, Parser.Col]);
              FDefineState.Delete(FDefineState.Count -1); // remove define from list
            end else if (Name = 'ELSE') then
            begin
              if s<> '' then raise EPSPreProcessor.CreateFmt(RPS_DefineTooManyParameters, [Parser.Row, Parser.Col]);
              if FDefineState.Count = 0 then
                raise EPSPreProcessor.CreateFmt(RPS_NoIfdefForElse, [Parser.Row, Parser.Col]);
              ds := FDefineState[FDefineState.Count -1];
              if ds.InElse then
                raise EPSPreProcessor.CreateFmt(RPS_ElseTwice, [Parser.Row, Parser.Col]);
              ds.FInElse := True;
              //JeromeWelsh - nesting fix
              ds.DoWrite := not ds.DoWrite and FDefineState.DoPrevWrite;
  
negative.code:             If AppContinue then
              //-- end jgv
            
                raise EPSPreProcessor.CreateFmt(RPS_UnknownCompilerDirective, [ExtractFileName(FileName), Parser.Row, Parser.Col]);
            end;
        end;
  
  