paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give correct fileposition for undefined forward procs

Browse Source
This commit is contained in:
peter 2002-10-13 21:33:37 +00:00
parent 0538dce044
commit fb36caedf1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symsym.pas
View File

@ -865,7 +865,7 @@ implementation
if (p^.def.procsym=self) and if (p^.def.procsym=self) and
(p^.def.forwarddef) then (p^.def.forwarddef) then
begin begin
MessagePos1(fileinfo,sym_e_forward_not_resolved,p^.def.fullprocname); MessagePos1(p^.def.fileinfo,sym_e_forward_not_resolved,p^.def.fullprocname);
{ Turn futher error messages off } { Turn futher error messages off }
p^.def.forwarddef:=false; p^.def.forwarddef:=false;
end; end;
@ -2504,7 +2504,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.69 2002-10-05 12:43:29 carl Revision 1.70 2002-10-13 21:33:37 peter
* give correct fileposition for undefined forward procs
Revision 1.69 2002/10/05 12:43:29 carl
* fixes for Delphi 6 compilation * fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi) (warning : Some features do not work under Delphi)