paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support deprecated for types

Browse Source 
git-svn-id: trunk@11341 -
This commit is contained in:
florian 2008-07-07 17:59:48 +00:00
parent 68fffefb33
commit ed9c7ceaea
3 changed files with 36 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6976,6 +6976,7 @@ tests/tbs/tb0550.pp svneol=native#text/plain
tests/tbs/tb0550a.pp svneol=native#text/plain tests/tbs/tb0550a.pp svneol=native#text/plain
tests/tbs/tb0550b.pp svneol=native#text/plain tests/tbs/tb0550b.pp svneol=native#text/plain
tests/tbs/tb0551.pp svneol=native#text/plain tests/tbs/tb0551.pp svneol=native#text/plain
tests/tbs/tb0552.pp svneol=native#text/plain
tests/tbs/tb205.pp svneol=native#text/plain tests/tbs/tb205.pp svneol=native#text/plain
tests/tbs/ub0060.pp svneol=native#text/plain tests/tbs/ub0060.pp svneol=native#text/plain
tests/tbs/ub0069.pp svneol=native#text/plain tests/tbs/ub0069.pp svneol=native#text/plain

18
compiler/pdecl.pas
View File

@ -519,6 +519,7 @@ implementation
case hdef.typ of case hdef.typ of
pointerdef : pointerdef :
begin begin
try_consume_hintdirective(newtype.symoptions);
consume(_SEMICOLON); consume(_SEMICOLON);
if try_to_consume(_FAR) then if try_to_consume(_FAR) then
begin begin
@ -530,13 +531,21 @@ implementation
begin begin
{ in case of type renaming, don't parse proc directives } { in case of type renaming, don't parse proc directives }
if istyperenaming then if istyperenaming then
consume(_SEMICOLON) begin
try_consume_hintdirective(newtype.symoptions);
consume(_SEMICOLON);
end
else else
begin begin
if not check_proc_directive(true) then if not check_proc_directive(true) then
consume(_SEMICOLON); begin
try_consume_hintdirective(newtype.symoptions);
consume(_SEMICOLON);
end;
parse_var_proc_directives(tsym(newtype)); parse_var_proc_directives(tsym(newtype));
handle_calling_convention(tprocvardef(hdef)); handle_calling_convention(tprocvardef(hdef));
if try_consume_hintdirective(newtype.symoptions) then
consume(_SEMICOLON);
end; end;
end; end;
objectdef : objectdef :
@ -559,7 +568,10 @@ implementation
consume(_SEMICOLON); consume(_SEMICOLON);
end; end;
else else
consume(_SEMICOLON); begin
try_consume_hintdirective(newtype.symoptions);
consume(_SEMICOLON);
end;
end; end;
end; end;

20
tests/tbs/tb0552.pp Normal file
View File

@ -0,0 +1,20 @@
{$ifdef FPC}
{$mode objfpc}
{$endif FPC}
type
pb1 = ^boolean;far;
pb2 = ^boolean deprecated;far;
pt = boolean deprecated;
o = class
end deprecated;
r = record
end deprecated;
p1 = procedure;stdcall;deprecated;
p2 = procedure deprecated;
p3 = p1 deprecated;
var
v : p3;
begin
end.