Browse Source

* fixed wrong notes about locals

peter 24 years ago
parent
commit
e16486a958
2 changed files with 11 additions and 5 deletions
  1. 6 3
      compiler/ninl.pas
  2. 5 2
      compiler/nmat.pas

+ 6 - 3
compiler/ninl.pas

@@ -678,7 +678,7 @@ implementation
                         exit;
                         exit;
                        { last param must be var }
                        { last param must be var }
                        valid_for_assign(ppn.left,false);
                        valid_for_assign(ppn.left,false);
-                       set_varstate(ppn.left,true);
+                       set_varstate(ppn.left,false);
                        { first param must be a string or dynamic array ...}
                        { first param must be a string or dynamic array ...}
                        if not((ppn.left.resulttype^.deftype=stringdef) or
                        if not((ppn.left.resulttype^.deftype=stringdef) or
                           (is_dynamic_array(ppn.left.resulttype))) then
                           (is_dynamic_array(ppn.left.resulttype))) then
@@ -1495,7 +1495,7 @@ implementation
           inherited docompare(p) and
           inherited docompare(p) and
           (inlinenumber = tinlinenode(p).inlinenumber);
           (inlinenumber = tinlinenode(p).inlinenumber);
       end;
       end;
-      
+
 
 
 
 
 begin
 begin
@@ -1503,7 +1503,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.22  2000-12-31 11:14:10  jonas
+  Revision 1.23  2001-01-06 18:28:39  peter
+    * fixed wrong notes about locals
+
+  Revision 1.22  2000/12/31 11:14:10  jonas
     + implemented/fixed docompare() mathods for all nodes (not tested)
     + implemented/fixed docompare() mathods for all nodes (not tested)
     + nopt.pas, nadd.pas, i386/n386opt.pas: optimized nodes for adding strings
     + nopt.pas, nadd.pas, i386/n386opt.pas: optimized nodes for adding strings
       and constant strings/chars together
       and constant strings/chars together

+ 5 - 2
compiler/nmat.pas

@@ -80,7 +80,7 @@ implementation
       begin
       begin
          pass_1:=nil;
          pass_1:=nil;
          firstpass(left);
          firstpass(left);
-         set_varstate(right,true);
+         set_varstate(left,true);
          firstpass(right);
          firstpass(right);
          set_varstate(right,true);
          set_varstate(right,true);
          if codegenerror then
          if codegenerror then
@@ -528,7 +528,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.12  2001-01-05 17:36:57  florian
+  Revision 1.13  2001-01-06 18:28:39  peter
+    * fixed wrong notes about locals
+
+  Revision 1.12  2001/01/05 17:36:57  florian
   * the info about exception frames is stored now on the stack
   * the info about exception frames is stored now on the stack
   instead on the heap
   instead on the heap