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

* fix for regvars with the val code

Browse Source
This commit is contained in:
Jonas Maebe 1999-08-06 12:43:13 +00:00
parent c218fa7280
commit 05fd76aeb6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tcinl.pas
View File

@ -890,6 +890,7 @@ implementation
p^.left^.right := nil;
must_be_valid := false;
count_ref := true;
make_not_regable(p^.left^.left);
firstcallparan(p^.left, nil);
if codegenerror then exit;
p^.left^.right := hp;
@ -911,6 +912,7 @@ implementation
count_ref:=true;
hpp^.right:=nil;
{hpp = destination}
make_not_regable(hpp^.left);
firstcallparan(hpp,nil);
if codegenerror then
exit;
@ -1119,7 +1121,10 @@ implementation
end.
{
$Log$
Revision 1.46 1999-08-05 16:53:23 peter
Revision 1.47 1999-08-06 12:43:13 jonas
* fix for regvars with the val code
Revision 1.46 1999/08/05 16:53:23 peter
* V_Fatal=1, all other V_ are also increased
* Check for local procedure when assigning procvar
* fixed comment parsing because directives