From aa2d333b11710602e2d6bafd8239b6fe2bc9fd9c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 9 Jul 2006 09:43:30 +0000
Subject: [PATCH] + Implemented support for ;public name XYZ; construct

git-svn-id: trunk@4133 -
---
 fcl/passrc/pparser.pp | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/fcl/passrc/pparser.pp b/fcl/passrc/pparser.pp
index 55ed466cdf..b6eaca880d 100644
--- a/fcl/passrc/pparser.pp
+++ b/fcl/passrc/pparser.pp
@@ -1492,10 +1492,27 @@ begin
         begin
         ExpectToken(tkSemicolon);
         end 
-      else if (UpperCase(CurTokenString) = 'EXTERNAL') then  
+      else if (tok = 'EXTERNAL') then  
         repeat
           NextToken;
         until CurToken = tkSemicolon
+      else if (tok = 'PUBLIC') then  
+        begin
+          NextToken; 
+          { Should be token Name, 
+            if not we're in a class and the public section starts }
+          If (Uppercase(CurTokenString)<>'NAME') then
+            begin
+            UngetToken;
+            UngetToken;
+            Break;
+            end
+          else
+            begin  
+            NextToken;  // Should be export name string.
+            ExpectToken(tkSemicolon);
+            end;
+        end
       else
         begin
         UnGetToken;