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

* typed address only used for @ and addr() that are parsed

Browse Source
This commit is contained in:
peter 2003-11-29 14:33:13 +00:00
parent f534cdd91d
commit 353219a928
3 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nmem.pas
View File

@ -432,14 +432,14 @@ implementation
((tloadnode(hp).symtableentry.typ=absolutesym) and
tabsolutesym(tloadnode(hp).symtableentry).absseg) then
begin
if not(cs_typed_addresses in aktlocalswitches) then
if not(nf_typedaddr in flags) then
resulttype:=voidfarpointertype
else
resulttype.setdef(tpointerdef.createfar(left.resulttype));
end
else
begin
if not(cs_typed_addresses in aktlocalswitches) then
if not(nf_typedaddr in flags) then
resulttype:=voidpointertype
else
resulttype.setdef(tpointerdef.create(left.resulttype));
@ -957,7 +957,10 @@ begin
end.
{
$Log$
Revision 1.72 2003-11-10 22:02:52 peter
Revision 1.73 2003-11-29 14:33:13 peter
* typed address only used for @ and addr() that are parsed
Revision 1.72 2003/11/10 22:02:52 peter
* cross unit inlining fixed
Revision 1.71 2003/11/05 14:18:03 marco

6
compiler/node.pas
View File

@ -217,6 +217,7 @@ interface
{ taddrnode }
nf_procvarload,
nf_typedaddr,
{ tvecnode }
nf_memindex,
@ -1089,7 +1090,10 @@ implementation
end.
{
$Log$
Revision 1.76 2003-11-23 17:38:48 peter
Revision 1.77 2003-11-29 14:33:13 peter
* typed address only used for @ and addr() that are parsed
Revision 1.76 2003/11/23 17:38:48 peter
* mark nodes that are copies
Revision 1.75 2003/11/12 15:48:27 peter

9
compiler/pexpr.pas
View File

@ -518,6 +518,8 @@ implementation
in_args:=true;
p1:=comp_expr(true);
p1:=caddrnode.create(p1);
if cs_typed_addresses in aktlocalswitches then
include(p1.flags,nf_typedaddr);
consume(_RKLAMMER);
statement_syssym:=p1;
end;
@ -2143,6 +2145,8 @@ implementation
end;
got_addrn:=false;
p1:=caddrnode.create(p1);
if cs_typed_addresses in aktlocalswitches then
include(p1.flags,nf_typedaddr);
{ Store the procvar that we are expecting, the
addrn will use the information to find the correct
procdef or it will return an error }
@ -2478,7 +2482,10 @@ implementation
end.
{
$Log$
Revision 1.140 2003-11-10 19:11:39 peter
Revision 1.141 2003-11-29 14:33:13 peter
* typed address only used for @ and addr() that are parsed
Revision 1.140 2003/11/10 19:11:39 peter
* check paralength instead of assigned(left)
Revision 1.139 2003/11/07 15:58:32 florian