Browse Source

* clarify dubious case statements

git-svn-id: trunk@45425 -
michael 5 năm trước cách đây
mục cha
commit
ac208ab689
1 tập tin đã thay đổi với 2 bổ sung2 xóa
  1. 2 2
      rtl/objpas/classes/parser.inc

+ 2 - 2
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;