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

* evaluate typecasts of const pointers to ordinals inline ('merged')

Browse Source
This commit is contained in:
Jonas Maebe 2001-02-21 11:49:50 +00:00
parent 736a92a945
commit ee9ebaa3ee
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncnv.pas
View File

@ -971,6 +971,15 @@ implementation
pass_1:=hp;
exit;
end
{ constant pointer to ordinal }
else if is_ordinal(resulttype) and
(left.nodetype=pointerconstn) then
begin
hp:=genordinalconstnode(tpointerconstnode(left).value,resulttype);
firstpass(hp);
pass_1:=hp;
exit;
end
{Are we typecasting an ordconst to a char?}
else
@ -1191,7 +1200,10 @@ begin
end.
{
$Log$
Revision 1.19 2001-02-20 18:37:10 peter
Revision 1.20 2001-02-21 11:49:50 jonas
* evaluate typecasts of const pointers to ordinals inline ('merged')
Revision 1.19 2001/02/20 18:37:10 peter
* removed unused code
Revision 1.18 2001/02/20 13:14:18 marco