Преглед изворни кода

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
                                       begin
                                         result.free;
                                         result.free;
                                         result:=texprvalue.create_int(tenumsym(srsym).value);
                                         result:=texprvalue.create_int(tenumsym(srsym).value);
-                                        tconstsym(srsym).IncRefCount;
+                                        tenumsym(srsym).IncRefCount;
                                       end;
                                       end;
                                   end;
                                   end;
                                 else
                                 else