paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix warnings in Delphi test compilation: published implicitely enables $M for the class

Browse Source 
git-svn-id: trunk@36901 -
This commit is contained in:
svenbarth 2017-08-14 19:08:32 +00:00
parent bb947ed639
commit 88eabc12ff
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/tests/tests.rtti.pas
View File

@ -55,6 +55,7 @@ implementation
type
{$M+}
TGetClassProperties = class
private
FPubPropRO: integer;
@ -65,9 +66,11 @@ type
property PubPropSetRO: integer read FPubPropRO;
property PubPropSetRW: integer read FPubPropRW write FPubPropRW;
end;
{$M-}
{ TTestValueClass }
{$M+}
TTestValueClass = class
private
FAInteger: integer;
@ -90,6 +93,7 @@ type
property AGetShortString: ShortString read GetAShortString;
property AWriteOnly: integer write SetWriteOnly;
end;
{$M-}
TManagedRec = record
s: string;