소스 검색

* resourcestring does not need exception frame

peter 20 년 전
부모
커밋
a1c525a3e6
1개의 변경된 파일5개의 추가작업 그리고 5개의 파일을 삭제
  1. 5 5
      compiler/nld.pas

+ 5 - 5
compiler/nld.pas

@@ -360,10 +360,7 @@ implementation
             constsym:
               begin
                  if tconstsym(symtableentry).consttyp=constresourcestring then
-                   begin
-                      include(current_procinfo.flags,pi_needs_implicit_finally);
-                      expectloc:=LOC_CREFERENCE;
-                   end;
+                   expectloc:=LOC_CREFERENCE;
               end;
             globalvarsym,
             localvarsym,
@@ -1180,7 +1177,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.141  2004-12-07 13:52:54  michael
+  Revision 1.142  2004-12-26 16:21:39  peter
+    * resourcestring does not need exception frame
+
+  Revision 1.141  2004/12/07 13:52:54  michael
     * Convert array of widechar to pwidechar instead of pchar
 
   Revision 1.140  2004/12/05 12:28:11  peter