فهرست منبع

* Fix bug #37601: add some attribte definitions

git-svn-id: trunk@46505 -
michael 5 سال پیش
والد
کامیت
8bc2326b77
1فایلهای تغییر یافته به همراه5 افزوده شده و 1 حذف شده
  1. 5 1
      rtl/inc/objpash.inc

+ 5 - 1
rtl/inc/objpash.inc

@@ -440,7 +440,11 @@
          constructor Create;
          constructor Create;
        end;
        end;
        {$POP}
        {$POP}
-
+       WeakAttribute = class(TCustomAttribute);
+       UnsafeAttribute = class(TCustomAttribute);
+       RefAttribute = class(TCustomAttribute);
+       VolatileAttribute = class(TCustomAttribute);
+  
     Const
     Const
        ExceptProc : TExceptProc = Nil;
        ExceptProc : TExceptProc = Nil;
        RaiseProc : TExceptProc = Nil;
        RaiseProc : TExceptProc = Nil;