瀏覽代碼

* as 3.2.0 is now the oldest compiler we support we can now use {$push} {$pop} to reset the $minenumsize in the RTTI header

git-svn-id: trunk@49403 -
svenbarth 4 年之前
父節點
當前提交
cb953f68c2
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/inc/rttih.inc

+ 2 - 2
rtl/inc/rttih.inc

@@ -11,7 +11,7 @@
 
  **********************************************************************}
 
-{ sadly MinEnumSize is not handled by Push/Pop :'( }
+{$PUSH}
 {$MINENUMSIZE 1   this saves a lot of memory }
 
 type
@@ -26,7 +26,7 @@ type
               tkDynArray,tkInterfaceRaw,tkProcVar,tkUString,tkUChar,
               tkHelper,tkFile,tkClassRef,tkPointer);
 
-{$MINENUMSIZE DEFAULT}
+{$POP}
 
 const
   { some Delphi-compatible aliases }