From ee85c477b2957cebba1d64a8806ae31b9477ed03 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 2 Jun 2012 13:52:58 +0000
Subject: [PATCH] codetools: allow keywords in program name

git-svn-id: trunk@37483 -
---
 components/codetools/pascalparsertool.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 63ec561172..a174a6e299 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -634,7 +634,10 @@ begin
         if HasSourceType then begin
           repeat
             ReadNextAtom; // read source name
-            AtomIsIdentifierSaveE;
+            // program and library can use keywords
+            if (CurPos.Flag<>cafWord)
+            or (CurSection in [ctnUnit,ctnPackage]) then
+              AtomIsIdentifierSaveE;
             ReadNextAtom; // read ';' (or 'platform;' or 'unimplemented;')
           until CurPos.Flag<>cafPoint;
         end;