mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-20 13:49:40 +02:00
* fix warnings in Delphi test compilation: published implicitely enables $M for the class
git-svn-id: trunk@36901 -
This commit is contained in:
parent
bb947ed639
commit
88eabc12ff
@ -55,6 +55,7 @@ implementation
|
|||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
{$M+}
|
||||||
TGetClassProperties = class
|
TGetClassProperties = class
|
||||||
private
|
private
|
||||||
FPubPropRO: integer;
|
FPubPropRO: integer;
|
||||||
@ -65,9 +66,11 @@ type
|
|||||||
property PubPropSetRO: integer read FPubPropRO;
|
property PubPropSetRO: integer read FPubPropRO;
|
||||||
property PubPropSetRW: integer read FPubPropRW write FPubPropRW;
|
property PubPropSetRW: integer read FPubPropRW write FPubPropRW;
|
||||||
end;
|
end;
|
||||||
|
{$M-}
|
||||||
|
|
||||||
{ TTestValueClass }
|
{ TTestValueClass }
|
||||||
|
|
||||||
|
{$M+}
|
||||||
TTestValueClass = class
|
TTestValueClass = class
|
||||||
private
|
private
|
||||||
FAInteger: integer;
|
FAInteger: integer;
|
||||||
@ -90,6 +93,7 @@ type
|
|||||||
property AGetShortString: ShortString read GetAShortString;
|
property AGetShortString: ShortString read GetAShortString;
|
||||||
property AWriteOnly: integer write SetWriteOnly;
|
property AWriteOnly: integer write SetWriteOnly;
|
||||||
end;
|
end;
|
||||||
|
{$M-}
|
||||||
|
|
||||||
TManagedRec = record
|
TManagedRec = record
|
||||||
s: string;
|
s: string;
|
||||||
|
Loading…
Reference in New Issue
Block a user