Browse Source

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

Pierre Muller 1 year ago
parent
commit
952f4bae17
1 changed files with 1 additions and 1 deletions
  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