浏览代码

Fix wrong explicit typecast of srsym variable (caught by -CR option)

Pierre Muller 1 年之前
父节点
当前提交
952f4bae17
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/scanner.pas

+ 1 - 1
compiler/scanner.pas

@@ -2259,7 +2259,7 @@ type
                                       begin
                                         result.free;
                                         result:=texprvalue.create_int(tenumsym(srsym).value);
-                                        tconstsym(srsym).IncRefCount;
+                                        tenumsym(srsym).IncRefCount;
                                       end;
                                   end;
                                 else