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

* some Delphi incompatibilities fixed:

Browse Source 
- 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
This commit is contained in:
florian 2001-05-04 15:52:03 +00:00
parent 8a41dbef3c
commit 3c5793d8c6
6 changed files with 120 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/ncnv.pas
View File

@ -712,15 +712,15 @@ implementation
end;
end
{ nil to ordinal node }
else if is_ordinal(resulttype.def) and
(left.nodetype=niln) then
begin
hp:=cordconstnode.create(0,resulttype);
resulttypepass(hp);
result:=hp;
exit;
end
{ nil to ordinal node }
else if (left.nodetype=niln) and is_ordinal(resulttype.def) then
begin
hp:=cordconstnode.create(0,resulttype);
resulttypepass(hp);
result:=hp;
exit;
end
{ constant pointer to ordinal }
else if is_ordinal(resulttype.def) and
(left.nodetype=pointerconstn) then
@ -750,7 +750,7 @@ implementation
end;
end
{ Are we char to ordinal }
{ char to ordinal }
else
if is_char(left.resulttype.def) and
is_ordinal(resulttype.def) then
@ -827,6 +827,25 @@ implementation
exit;
end;
{ fold nil to any pointer type }
if (left.nodetype=niln) and (resulttype.def.deftype=pointerdef) then
begin
hp:=cnilnode.create;
hp.resulttype:=resulttype;
resulttypepass(hp);
result:=hp;
exit;
end;
{ further, pointerconstn to any pointer is folded too }
if (left.nodetype=pointerconstn) and (resulttype.def.deftype=pointerdef) then
begin
left.resulttype:=resulttype;
result:=left;
left:=nil;
exit;
end;
{ now call the resulttype helper to do constant folding }
result:=resulttype_call_helper(convtype);
end;
@ -1272,7 +1291,13 @@ begin
end.
{
$Log$
Revision 1.25 2001-04-13 22:20:58 peter
Revision 1.26 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
Revision 1.25 2001/04/13 22:20:58 peter
* remove wrongly placed first_call_helper
Revision 1.24 2001/04/13 01:22:08 peter

10
compiler/pdecobj.pas
View File

@ -152,7 +152,7 @@ implementation
consume(_CONST);
varspez:=vs_const;
end
else if token=_OUT then
else if (idtoken=_OUT) and (m_out in aktmodeswitches) then
begin
consume(_OUT);
varspez:=vs_out;
@ -1039,7 +1039,13 @@ implementation
end.
{
$Log$
Revision 1.24 2001-04-21 15:36:00 peter
Revision 1.25 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
Revision 1.24 2001/04/21 15:36:00 peter
* check for type block when parsing class of
Revision 1.23 2001/04/21 13:37:16 peter

15
compiler/pdecsub.pas
View File

@ -125,8 +125,11 @@ implementation
if try_to_consume(_CONST) then
varspez:=vs_const
else
if try_to_consume(_OUT) then
varspez:=vs_out
if (idtoken=_OUT) and (m_out in aktmodeswitches) then
begin
consume(_OUT);
varspez:=vs_out
end
else
varspez:=vs_value;
inserthigh:=false;
@ -1847,7 +1850,13 @@ const
end.
{
$Log$
Revision 1.21 2001-04-18 22:01:57 peter
Revision 1.22 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
Revision 1.21 2001/04/18 22:01:57 peter
* registration of targets and assemblers
Revision 1.20 2001/04/13 20:05:16 peter

38
compiler/pexpr.pas
View File

@ -1676,19 +1676,7 @@ implementation
again:=false;
if token=_ID then
begin
factor_read_id(p1,again);
if again then
begin
check_tokenpos;
{ handle post fix operators }
postfixoperators(p1,again);
end;
end
else
case token of
_NEW :
if idtoken=_NEW then
begin
consume(_NEW);
consume(_LKLAMMER);
@ -1761,8 +1749,22 @@ implementation
consume(_RKLAMMER);
end;
postfixoperators(p1,again);
end;
end
else
begin
factor_read_id(p1,again);
if again then
begin
check_tokenpos;
{ handle post fix operators }
postfixoperators(p1,again);
end;
end;
end
else
case token of
_SELF :
begin
again:=true;
@ -2320,7 +2322,13 @@ implementation
end.
{
$Log$
Revision 1.30 2001-04-14 14:07:10 peter
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
Revision 1.30 2001/04/14 14:07:10 peter
* moved more code from pass_1 to det_resulttype
Revision 1.29 2001/04/13 23:50:24 peter

56
compiler/pstatmnt.pas
View File

@ -1043,9 +1043,6 @@ implementation
code:=while_statement;
_FOR :
code:=for_statement;
_NEW,
_DISPOSE :
code:=new_dispose_statement;
_WITH :
code:=with_statement;
_TRY :
@ -1073,28 +1070,33 @@ implementation
Message(scan_f_end_of_file);
else
begin
p:=expr;
if (idtoken=_NEW) or (idtoken=_DISPOSE) then
code:=new_dispose_statement
else
begin
p:=expr;
if p.nodetype=labeln then
begin
{ the pointer to the following instruction }
{ isn't a very clean way }
tlabelnode(p).left:=statement{$ifdef FPCPROCVAR}(){$endif};
{ be sure to have left also resulttypepass }
resulttypepass(tlabelnode(p).left);
end;
if p.nodetype=labeln then
begin
{ the pointer to the following instruction }
{ isn't a very clean way }
tlabelnode(p).left:=statement{$ifdef FPCPROCVAR}(){$endif};
{ be sure to have left also resulttypepass }
resulttypepass(tlabelnode(p).left);
end;
if not(p.nodetype in [calln,assignn,breakn,inlinen,continuen,labeln]) then
Message(cg_e_illegal_expression);
{ specify that we don't use the value returned by the call }
{ Question : can this be also improtant
for inlinen ??
it is used for :
- dispose of temp stack space
- dispose on FPU stack }
if p.nodetype=calln then
exclude(p.flags,nf_return_value_used);
code:=p;
if not(p.nodetype in [calln,assignn,breakn,inlinen,continuen,labeln]) then
Message(cg_e_illegal_expression);
{ specify that we don't use the value returned by the call }
{ Question : can this be also improtant
for inlinen ??
it is used for :
- dispose of temp stack space
- dispose on FPU stack }
if p.nodetype=calln then
exclude(p.flags,nf_return_value_used);
code:=p;
end;
end;
end;
if assigned(code) then
@ -1220,7 +1222,13 @@ implementation
end.
{
$Log$
Revision 1.28 2001-04-21 12:03:11 peter
Revision 1.29 2001-05-04 15:52:04 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
Revision 1.28 2001/04/21 12:03:11 peter
* m68k updates merged from fixes branch
Revision 1.27 2001/04/18 22:01:57 peter

12
compiler/tokens.pas
View File

@ -319,10 +319,10 @@ const
(str:'FAR' ;special:false;keyword:m_none;op:NOTOKEN),
(str:'FOR' ;special:false;keyword:m_all;op:NOTOKEN),
(str:'MOD' ;special:false;keyword:m_all;op:_OP_MOD),
(str:'NEW' ;special:false;keyword:m_all;op:NOTOKEN),
(str:'NEW' ;special:false;keyword:m_none;op:NOTOKEN),
(str:'NIL' ;special:false;keyword:m_all;op:NOTOKEN),
(str:'NOT' ;special:false;keyword:m_all;op:_OP_NOT),
(str:'OUT' ;special:false;keyword:m_out;op:NOTOKEN),
(str:'OUT' ;special:false;keyword:m_none;op:NOTOKEN),
(str:'SET' ;special:false;keyword:m_all;op:NOTOKEN),
(str:'SHL' ;special:false;keyword:m_all;op:_OP_SHL),
(str:'SHR' ;special:false;keyword:m_all;op:_OP_SHR),
@ -478,7 +478,13 @@ end;
end.
{
$Log$
Revision 1.8 2001-03-22 22:35:43 florian
Revision 1.9 2001-05-04 15:52:04 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
Revision 1.8 2001/03/22 22:35:43 florian
+ support for type a = (a=1); in Delphi mode added
+ procedure p(); in Delphi mode supported
+ on isn't keyword anymore, it can be used as