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

* fixes for set_varstate on conversions

Browse Source
This commit is contained in:
pierre 2000-01-06 01:10:33 +00:00
parent b18ec98e17
commit d5a649ca19
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/tree.pas
View File

@ -1673,7 +1673,23 @@ unit tree;
if p^.varstateset then if p^.varstateset then
exit; exit;
case p^.treetype of case p^.treetype of
typeconvn,subscriptn : typeconvn :
if p^.convtyp in
[
tc_cchar_2_pchar,
tc_cstring_2_pchar,
tc_array_2_pointer
] then
set_varstate(p^.left,false)
else if p^.convtyp in
[
tc_pchar_2_string,
tc_pointer_2_array
] then
set_varstate(p^.left,true)
else
set_varstate(p^.left,must_be_valid);
subscriptn :
set_varstate(p^.left,must_be_valid); set_varstate(p^.left,must_be_valid);
vecn: vecn:
begin begin
@ -1895,7 +1911,10 @@ unit tree;
end. end.
{ {
$Log$ $Log$
Revision 1.106 1999-12-22 01:01:52 peter Revision 1.107 2000-01-06 01:10:33 pierre
* fixes for set_varstate on conversions
Revision 1.106 1999/12/22 01:01:52 peter
- removed freelabel() - removed freelabel()
* added undefined label detection in internal assembler, this prevents * added undefined label detection in internal assembler, this prevents
a lot of ld crashes and wrong .o files a lot of ld crashes and wrong .o files
@ -1998,4 +2017,3 @@ end.
* procedure of object and addrn fixes * procedure of object and addrn fixes
} }