paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 07:49:38 +01: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; pass_1:=hp;
exit; exit;
end 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?} {Are we typecasting an ordconst to a char?}
else else
@ -1191,7 +1200,10 @@ begin
end. end.
{ {
$Log$ $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 * removed unused code
Revision 1.18 2001/02/20 13:14:18 marco Revision 1.18 2001/02/20 13:14:18 marco