From d3b8571d22986d5e695b49d983eef21180872cc1 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 09:31:08 +0000
Subject: [PATCH] * Merging revisions r46288 from trunk:    
 ------------------------------------------------------------------------    
 r46288 | michael | 2020-08-06 15:09:17 +0200 (Thu, 06 Aug 2020) | 1 line

    * No $NOTES for Delphi
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46610 -
---
 packages/fcl-passrc/src/paswrite.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 20591b5382..41ab750e62 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -322,7 +322,9 @@ begin
     begin
     Addln('{$HINTS OFF}');
     Addln('{$WARNINGS OFF}');
+    Addln('{$IFDEF FPC}');
     Addln('{$NOTES OFF}');
+    Addln('{$ENDIF FPC}');
     end;
   if Assigned(aModule.ProgramSection) then
     WriteSection(aModule.ProgramSection);