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

+ locationstr always reset

Browse Source
This commit is contained in:
florian 2004-04-29 21:10:13 +00:00
parent 0f3fbdf989
commit a813f5a184
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pdecsub.pas
View File

@ -405,6 +405,7 @@ implementation
vs.free; vs.free;
consume(_ID); consume(_ID);
until not try_to_consume(_COMMA); until not try_to_consume(_COMMA);
locationstr:='';
{ read type declaration, force reading for value and const paras } { read type declaration, force reading for value and const paras }
if (token=_COLON) or (varspez=vs_value) then if (token=_COLON) or (varspez=vs_value) then
begin begin
@ -464,11 +465,11 @@ implementation
consume(_CSTRING); consume(_CSTRING);
end end
else else
begin begin
if explicit_paraloc then if explicit_paraloc then
Message(parser_e_paraloc_all_paras); Message(parser_e_paraloc_all_paras);
locationstr:=''; locationstr:='';
end; end;
end end
else else
locationstr:=''; locationstr:='';
@ -2193,7 +2194,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.168 2004-04-28 15:19:03 florian Revision 1.169 2004-04-29 21:10:13 florian
+ locationstr always reset
Revision 1.168 2004/04/28 15:19:03 florian
+ syscall directive support for MorphOS added + syscall directive support for MorphOS added
Revision 1.167 2004/04/28 00:20:43 karoly Revision 1.167 2004/04/28 00:20:43 karoly
@ -2687,4 +2691,4 @@ end.
* removed static procprefix since the mangledname is now build only * removed static procprefix since the mangledname is now build only
on demand from tprocdef.mangledname on demand from tprocdef.mangledname
} }