Release-only [SuppressUnmanagedCodeSecurity]

SunSerega · Jan 12, 2024 · 535cc36 · 535cc36
1 parent 5ef9dcd
commit 535cc36
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Packing/Template/LowLvl/CodeContainerItems.pas b/Packing/Template/LowLvl/CodeContainerItems.pas
@@ -2349,8 +2349,10 @@   RequiredList = record
         {$region WriteAPI}
         var WriteAPI := procedure(api_funcs: sequence of Func; add_ver, depr_ver: Func->string)->
         begin
-          intr_wr += '  [PCUNotRestore]'#10;
+          intr_wr += '  {$ifndef DEBUG}'#10;
           intr_wr += '  [System.Security.SuppressUnmanagedCodeSecurity]'#10;
+          intr_wr += '  {$endif DEBUG}'#10;
+          intr_wr += '  [PCUNotRestore]'#10;
           intr_wr += '  ///'#10;
           intr_wr += '  ';
           intr_wr += api;
@@ -2533,8 +2535,10 @@             impl_wr += class_type;
 
       if any_funcs then
       begin
-        intr_wr += '  [PCUNotRestore]'#10;
+        intr_wr += '  {$ifndef DEBUG}'#10;
         intr_wr += '  [System.Security.SuppressUnmanagedCodeSecurity]'#10;
+        intr_wr += '  {$endif DEBUG}'#10;
+        intr_wr += '  [PCUNotRestore]'#10;
       end;
 
       intr_wr += '  ///'#10;