mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 02:28:14 +02:00
1c578de28c
* don't allow to apply the same hint directive twice * change parser_e_proc_dir_not_allowed to more generic variant parser_e_dir_not_allowed - they are similar and 'procedure' prefix does not give more information about the error. * maybe_parse_hint_directives() uses procdef settings for initial values + add tests git-svn-id: trunk@25720 -
49 lines
525 B
ObjectPascal
49 lines
525 B
ObjectPascal
{ %version=1.1 }
|
|
{ %NORUN }
|
|
|
|
program thintdir;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
uhintdir;
|
|
|
|
type
|
|
t1 = record
|
|
end platform;
|
|
|
|
t2 = class
|
|
end platform;
|
|
|
|
t3 = object
|
|
end platform;
|
|
|
|
t4 = record
|
|
w1 : word deprecated;
|
|
w2 : word deprecated
|
|
end;
|
|
|
|
t5 = record
|
|
w1 : word deprecated;
|
|
end;
|
|
|
|
const
|
|
c1 : word = 2;
|
|
c2 = 21312 platform;
|
|
|
|
var
|
|
v1 : word deprecated library;
|
|
l1,
|
|
l2 : word deprecated;
|
|
|
|
procedure p1;platform deprecated;library;
|
|
begin
|
|
end;
|
|
|
|
procedure p2;platform;deprecated;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|