paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix reported file position for not matched forwards

Browse Source
This commit is contained in:
peter 2003-09-27 13:29:43 +00:00
parent 87f0147dff
commit f6868f8d48
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psub.pas
View File

@ -1077,7 +1077,7 @@ implementation
if assigned(pd._class) and if assigned(pd._class) and
(not assigned(old_current_procinfo.procdef._class)) then (not assigned(old_current_procinfo.procdef._class)) then
begin begin
Message1(parser_e_header_dont_match_any_member,pd.fullprocname(false)); MessagePos1(pd.fileinfo,parser_e_header_dont_match_any_member,pd.fullprocname(false));
tprocsym(pd.procsym).write_parameter_lists(pd); tprocsym(pd.procsym).write_parameter_lists(pd);
end end
else else
@ -1091,7 +1091,7 @@ implementation
tprocsym(pd.procsym).first_procdef.interfacedef and tprocsym(pd.procsym).first_procdef.interfacedef and
not(tprocsym(pd.procsym).procdef_count>2) then not(tprocsym(pd.procsym).procdef_count>2) then
begin begin
Message1(parser_e_header_dont_match_forward,pd.fullprocname(false)); MessagePos1(pd.fileinfo,parser_e_header_dont_match_forward,pd.fullprocname(false));
tprocsym(pd.procsym).write_parameter_lists(pd); tprocsym(pd.procsym).write_parameter_lists(pd);
end; end;
end; end;
@ -1297,7 +1297,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.151 2003-09-25 21:25:13 peter Revision 1.152 2003-09-27 13:29:43 peter
* fix reported file position for not matched forwards
Revision 1.151 2003/09/25 21:25:13 peter
* remove allocate_intterupt_parameter, allocation is platform * remove allocate_intterupt_parameter, allocation is platform
dependent and needs to be done in create_paraloc_info dependent and needs to be done in create_paraloc_info