paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 22:29:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* some fixes

Browse Source
This commit is contained in:
florian 2000-09-22 22:48:54 +00:00
parent ebd2b038fd
commit 83d20f9b14
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nmat.pas
View File

@ -77,6 +77,7 @@ unit nmat;
rd,ld : pdef; rd,ld : pdef;
begin begin
pass_1:=nil;
firstpass(left); firstpass(left);
right.set_varstate(true); right.set_varstate(true);
firstpass(right); firstpass(right);
@ -207,6 +208,7 @@ unit nmat;
t : tnode; t : tnode;
regs : longint; regs : longint;
begin begin
pass_1:=nil;
firstpass(left); firstpass(left);
set_varstate(left,true); set_varstate(left,true);
firstpass(right); firstpass(right);
@ -402,6 +404,7 @@ unit nmat;
t : tnode; t : tnode;
notdef : pprocdef; notdef : pprocdef;
begin begin
pass_1:=nil;
firstpass(left); firstpass(left);
set_varstate(left,true); set_varstate(left,true);
if codegenerror then if codegenerror then
@ -514,7 +517,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-09-22 22:09:54 florian Revision 1.3 2000-09-22 22:48:54 florian
* some fixes
Revision 1.2 2000/09/22 22:09:54 florian
* more stuff converted * more stuff converted
Revision 1.1 2000/09/20 21:35:12 florian Revision 1.1 2000/09/20 21:35:12 florian