Browse Source

* openstrings and openarrays don't have to by valid in order to use
high()/low() on them

git-svn-id: trunk@2484 -

Jonas Maebe 19 years ago
parent
commit
d11329f9cd
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/ninl.pas

+ 2 - 2
compiler/ninl.pas

@@ -1770,7 +1770,7 @@ implementation
                            if is_open_array(left.resulttype.def) or
                            if is_open_array(left.resulttype.def) or
                               is_array_of_const(left.resulttype.def) then
                               is_array_of_const(left.resulttype.def) then
                             begin
                             begin
-                              set_varstate(left,vs_read,[vsf_must_be_valid]);
+                              set_varstate(left,vs_read,[]);
                               result:=load_high_value_node(tparavarsym(tloadnode(left).symtableentry));
                               result:=load_high_value_node(tparavarsym(tloadnode(left).symtableentry));
                             end
                             end
                            else
                            else
@@ -1802,7 +1802,7 @@ implementation
                          begin
                          begin
                            if is_open_string(left.resulttype.def) then
                            if is_open_string(left.resulttype.def) then
 			     begin
 			     begin
-                               set_varstate(left,vs_read,[vsf_must_be_valid]);
+                               set_varstate(left,vs_read,[]);
                                result:=load_high_value_node(tparavarsym(tloadnode(left).symtableentry))
                                result:=load_high_value_node(tparavarsym(tloadnode(left).symtableentry))
 			     end
 			     end
                            else
                            else