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

* const parameters were not prevented from becoming regvars (causing

Browse Source 
errors later on in the code generating stage)
This commit is contained in:
Jonas Maebe 2000-05-25 07:44:11 +00:00
parent 7ceb2d28fd
commit 298f787233
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/tccal.pas
View File

@ -343,14 +343,17 @@ implementation
end;
end;
if defcoll^.paratyp=vs_var then
if defcoll^.paratyp in [vs_var,vs_const] then
begin
set_unique(p^.left);
{ Causes problems with const ansistrings if also }
{ done for vs_const (JM) }
if defcoll^.paratyp = vs_var then
set_unique(p^.left);
make_not_regable(p^.left);
end;
if do_count then
set_varstate(p^.left,defcoll^.paratyp<>vs_var);
set_varstate(p^.left,defcoll^.paratyp <> vs_var);
{ must only be done after typeconv PM }
p^.resulttype:=defcoll^.paratype.def;
end;
@ -1233,7 +1236,11 @@ implementation
end.
{
$Log$
Revision 1.85 2000-05-09 14:16:00 pierre
Revision 1.86 2000-05-25 07:44:11 jonas
* const parameters were not prevented from becoming regvars (causing
errors later on in the code generating stage)
Revision 1.85 2000/05/09 14:16:00 pierre
* calling interrupt routine supported
Revision 1.84 2000/04/24 12:48:38 peter