Browse Source

* write correct type name in error message

florian 1 year ago
parent
commit
b7322ae4c3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pstatmnt.pas

+ 1 - 1
compiler/pstatmnt.pas

@@ -968,7 +968,7 @@ implementation
                                unit_found:=try_consume_unitsym_no_specialize(srsym,srsymtable,t,[],objname);
                                unit_found:=try_consume_unitsym_no_specialize(srsym,srsymtable,t,[],objname);
                                if srsym=nil then
                                if srsym=nil then
                                  begin
                                  begin
-                                   identifier_not_found(orgpattern);
+                                   identifier_not_found(objrealname);
                                    srsym:=generrorsym;
                                    srsym:=generrorsym;
                                  end;
                                  end;
                                if unit_found then
                                if unit_found then