Procházet zdrojové kódy

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

Pierre Muller před 1 rokem
rodič
revize
952f4bae17
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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