소스 검색

* also wrap the initcode of main programs, so that typed constants get
initialized there as well for systems_typed_constants_node_init

git-svn-id: branches/jvmbackend@18617 -

Jonas Maebe 14 년 전
부모
커밋
1c3f0c7a2f
1개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 3 3
      compiler/psub.pas

+ 3 - 3
compiler/psub.pas

@@ -732,8 +732,8 @@ implementation
         bodyentrycode,
         bodyexitcode,
         exceptcode,
-        wrappedbody: tnode;
-        newblock     : tblocknode;
+        wrappedbody,
+        newblock     : tnode;
         codestatement,
         newstatement : tstatementnode;
         oldfilepos   : tfileposinfo;
@@ -805,7 +805,7 @@ implementation
             addstatement(newstatement,bodyexitcode);
             addstatement(newstatement,final_asmnode);
           end;
-        do_firstpass(tnode(newblock));
+        do_firstpass(newblock);
         code:=newblock;
         current_filepos:=oldfilepos;
       end;