Browse Source

* resourcestring does not need exception frame

peter 20 years ago
parent
commit
a1c525a3e6
1 changed files with 5 additions and 5 deletions
  1. 5 5
      compiler/nld.pas

+ 5 - 5
compiler/nld.pas

@@ -360,10 +360,7 @@ implementation
             constsym:
             constsym:
               begin
               begin
                  if tconstsym(symtableentry).consttyp=constresourcestring then
                  if tconstsym(symtableentry).consttyp=constresourcestring then
-                   begin
-                      include(current_procinfo.flags,pi_needs_implicit_finally);
-                      expectloc:=LOC_CREFERENCE;
-                   end;
+                   expectloc:=LOC_CREFERENCE;
               end;
               end;
             globalvarsym,
             globalvarsym,
             localvarsym,
             localvarsym,
@@ -1180,7 +1177,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * Convert array of widechar to pwidechar instead of pchar
 
 
   Revision 1.140  2004/12/05 12:28:11  peter
   Revision 1.140  2004/12/05 12:28:11  peter