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

* some variable fields inside conditionnal were not updated

Browse Source
This commit is contained in:
pierre 1998-09-08 10:38:04 +00:00
parent 70b08b24f2
commit 0998759caf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/tree.pas
View File

@ -1357,12 +1357,12 @@ unit tree;
end;
realconstn :
begin
if oldp^.valued<>p^.valued then
if oldp^.value_real<>p^.value_real then
begin
comment(v_warning,'valued field different');
error_found:=true;
end;
if oldp^.labnumber<>p^.labnumber then
if oldp^.lab_real<>p^.lab_real then
begin
comment(v_warning,'labnumber field different');
error_found:=true;
@ -1545,7 +1545,10 @@ unit tree;
end.
{
$Log$
Revision 1.36 1998-09-07 18:46:17 peter
Revision 1.37 1998-09-08 10:38:04 pierre
* some variable fields inside conditionnal were not updated
Revision 1.36 1998/09/07 18:46:17 peter
* update smartlinking, uses getdatalabel
* renamed ptree.value vars to value_str,value_real,value_set