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

* fixed locationstr having nonsense values in some cases

Browse Source
This commit is contained in:
Károly Balogh 2004-04-28 00:20:43 +00:00
parent 8da08b77a0
commit 70cbf1f878
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pdecsub.pas
View File

@ -464,8 +464,11 @@ implementation
consume(_CSTRING);
end
else
if explicit_paraloc then
Message(parser_e_paraloc_all_paras);
begin
if explicit_paraloc then
Message(parser_e_paraloc_all_paras);
locationstr:='';
end;
end
else
locationstr:='';
@ -2190,7 +2193,10 @@ const
end.
{
$Log$
Revision 1.166 2004-04-19 02:12:18 karoly
Revision 1.167 2004-04-28 00:20:43 karoly
* fixed locationstr having nonsense values in some cases
Revision 1.166 2004/04/19 02:12:18 karoly
* quick fix for PowerPC/MorphOS location support
Revision 1.165 2004/04/18 15:22:24 florian