paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 05:04:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed unused allow_type

Browse Source
This commit is contained in:
peter 2001-05-09 19:52:51 +00:00
parent dda3a44dc4
commit 13877f29b2
1 changed files with 8 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/pexpr.pas
View File

@ -88,7 +88,6 @@ implementation
function sub_expr(pred_level:Toperator_precedence;accept_equal : boolean):tnode;forward; function sub_expr(pred_level:Toperator_precedence;accept_equal : boolean):tnode;forward;
const const
allow_type : boolean = true;
got_addrn : boolean = false; got_addrn : boolean = false;
auto_inherited : boolean = false; auto_inherited : boolean = false;
@ -282,9 +281,7 @@ implementation
begin begin
consume(_LKLAMMER); consume(_LKLAMMER);
in_args:=true; in_args:=true;
{allow_type:=true;}
p1:=comp_expr(true); p1:=comp_expr(true);
{allow_type:=false; }
if p1.nodetype<>typen then if p1.nodetype<>typen then
begin begin
p1.destroy; p1.destroy;
@ -359,9 +356,7 @@ implementation
begin begin
consume(_LKLAMMER); consume(_LKLAMMER);
in_args:=true; in_args:=true;
{allow_type:=true;}
p1:=comp_expr(true); p1:=comp_expr(true);
{allow_type:=false;}
p2:=geninlinenode(l,false,p1); p2:=geninlinenode(l,false,p1);
consume(_RKLAMMER); consume(_RKLAMMER);
statement_syssym:=p2; statement_syssym:=p2;
@ -1139,14 +1134,7 @@ implementation
end; end;
end end
else else
begin p1:=ctypenode.create(htype);
{ generate a type node }
{ (for typeof etc) }
if allow_type then
p1:=ctypenode.create(htype)
else
Message(parser_e_no_type_not_allowed_here);
end;
end; end;
end; end;
end; end;
@ -1680,9 +1668,7 @@ implementation
begin begin
consume(_NEW); consume(_NEW);
consume(_LKLAMMER); consume(_LKLAMMER);
{allow_type:=true;}
p1:=factor(false); p1:=factor(false);
{allow_type:=false;}
if p1.nodetype<>typen then if p1.nodetype<>typen then
begin begin
Message(type_e_type_id_expected); Message(type_e_type_id_expected);
@ -2322,10 +2308,13 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.31 2001-05-04 15:52:03 florian Revision 1.32 2001-05-09 19:52:51 peter
* some Delphi incompatibilities fixed: * removed unused allow_type
- out, dispose and new can be used as idenfiers now
- const p = apointerype(nil); is supported now Revision 1.31 2001/05/04 15:52:03 florian
* some Delphi incompatibilities fixed:
- out, dispose and new can be used as idenfiers now
- const p = apointerype(nil); is supported now
+ support for const p = apointertype(pointer(1234)); added + support for const p = apointertype(pointer(1234)); added
Revision 1.30 2001/04/14 14:07:10 peter Revision 1.30 2001/04/14 14:07:10 peter