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

* fixed crash with array of const in procvar

Browse Source
This commit is contained in:
peter 1999-03-23 14:43:03 +00:00
parent a62cfb9ea4
commit 406efbaa5c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/tccal.pas
View File

@ -227,6 +227,7 @@ implementation
CGMessage(parser_e_call_by_ref_without_typeconv); CGMessage(parser_e_call_by_ref_without_typeconv);
{ process cargs arrayconstructor } { process cargs arrayconstructor }
if is_array_constructor(p^.left^.resulttype) and if is_array_constructor(p^.left^.resulttype) and
assigned(aktcallprocsym) and
(aktcallprocsym^.definition^.options and pocdecl<>0) and (aktcallprocsym^.definition^.options and pocdecl<>0) and
(aktcallprocsym^.definition^.options and poexternal<>0) then (aktcallprocsym^.definition^.options and poexternal<>0) then
begin begin
@ -1118,7 +1119,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.27 1999-03-19 17:31:54 pierre Revision 1.28 1999-03-23 14:43:03 peter
* fixed crash with array of const in procvar
Revision 1.27 1999/03/19 17:31:54 pierre
* lost reference because refcount not increased fixed * lost reference because refcount not increased fixed
Revision 1.26 1999/03/02 18:24:22 peter Revision 1.26 1999/03/02 18:24:22 peter