* fix #40592: make the Delphi-compatible attributes usable, but in a way that makes it clear to the user that they won't work

+ added test

rtl/inc/objpas.inc

@@ -1308,6 +1308,18 @@ end;
       inherited;
     end;
 
+
+{****************************************************************************
+                               TCustomAttribute
+****************************************************************************}
+
+
+    constructor TUnimplementedAttribute.Create;
+    begin
+      inherited;
+    end;
+
+
 {****************************************************************************
                                TCustomStoredAttribute
 ****************************************************************************}

rtl/inc/objpash.inc

@@ -502,10 +502,16 @@
          constructor Create;
        end;
        {$POP}
-       WeakAttribute = class(TCustomAttribute);
+
-       UnsafeAttribute = class(TCustomAttribute);
+       TUnimplementedAttribute = class(TCustomAttribute)
-       RefAttribute = class(TCustomAttribute);
+       public
-       VolatileAttribute = class(TCustomAttribute);
+         constructor Create; unimplemented;
+       end;
+
+       WeakAttribute = class(TUnimplementedAttribute);
+       UnsafeAttribute = class(TUnimplementedAttribute);
+       RefAttribute = class(TUnimplementedAttribute);
+       VolatileAttribute = class(TUnimplementedAttribute);
 
        StoredAttribute = Class(TCustomAttribute)
        Private

tests/webtbs/tw40592.pp

@@ -0,0 +1,19 @@
+{ %NORUN }
+
+program tw40592;
+
+{$mode objfpc}
+{$modeswitch prefixedattributes}
+
+type
+  [Volatile]
+  [Unsafe]
+  [Weak]
+  [Ref]
+  TTest = class
+
+  end;
+
+begin
+
+end.