ソースを参照

* clarify dubious case statements

git-svn-id: trunk@45425 -
michael 5 年 前
コミット
ac208ab689
1 ファイル変更2 行追加2 行削除
  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;