From adbd474287426e67aff073a00030568d28c270d4 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 09:19:14 +0000
Subject: [PATCH] * Merging revisions r45425 from trunk:    
 ------------------------------------------------------------------------    
 r45425 | michael | 2020-05-18 19:29:48 +0200 (Mon, 18 May 2020) | 1 line

    * clarify dubious case statements
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46585 -
---
 rtl/objpas/classes/parser.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/classes/parser.inc b/rtl/objpas/classes/parser.inc
index 29e5e3a9fc..72677846f2 100644
--- a/rtl/objpas/classes/parser.inc
+++ b/rtl/objpas/classes/parser.inc
@@ -445,7 +445,7 @@ begin
       '$'                   : HandleHexNumber;
       '-'                   : HandleMinus;
       '0'..'9'              : HandleNumber;
-      '''','#'              : HandleString
+      '''','#'              : HandleString;
       else
         HandleUnknown;
     end;
@@ -494,7 +494,7 @@ begin
     toWString : Result:=string(fLastTokenWStr);
     toFloat : if fFloatType<>#0 then
                 Result:=fLastTokenStr+fFloatType
-              else Result:=fLastTokenStr
+              else Result:=fLastTokenStr;
     else
       Result:=fLastTokenStr;
   end;