소스 검색

* also check for nf_assign_done_in_right flag after typechecking the right side

git-svn-id: trunk@39118 -
svenbarth 7 년 전
부모
커밋
85439a0fa0
1개의 변경된 파일8개의 추가작업 그리고 0개의 파일을 삭제
  1. 8 0
      compiler/nld.pas

+ 8 - 0
compiler/nld.pas

@@ -596,6 +596,14 @@ implementation
         if codegenerror then
           exit;
 
+        { just in case the typecheckpass of right optimized something here }
+        if nf_assign_done_in_right in flags then
+          begin
+            result:=right;
+            right:=nil;
+            exit;
+          end;
+
         { tp procvar support, when we don't expect a procvar
           then we need to call the procvar }
         if (left.resultdef.typ<>procvardef) then