Browse Source

* fixed crashes with length(pchar) and length(pwidechar) after
r9360-r9361

git-svn-id: trunk@9363 -

Jonas Maebe 17 years ago
parent
commit
feec2a74f2
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ninl.pas

+ 2 - 0
compiler/ninl.pas

@@ -2049,6 +2049,7 @@ implementation
                             { make sure the left node doesn't get disposed, since it's }
                             { reused in the new node (JM)                              }
                             left:=nil;
+                            exit;
                          end
                         else if is_pwidechar(left.resultdef) then
                          begin
@@ -2057,6 +2058,7 @@ implementation
                             { make sure the left node doesn't get disposed, since it's }
                             { reused in the new node (JM)                              }
                             left:=nil;
+                            exit;
                          end
                         else
                          CGMessage(type_e_mismatch);