Răsfoiți Sursa

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

Pierre Muller 1 an în urmă
părinte
comite
952f4bae17
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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