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

* don't allow pointer(ordinal) typecast in fpc mode, only allow it

Browse Source 
for delphi and for internal use
This commit is contained in:
peter 2004-11-26 22:33:54 +00:00
parent b55fe3fa67
commit 1418add0e0
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/defcmp.pas
View File

@ -38,7 +38,7 @@ interface
tcompare_paras_option = (cpo_allowdefaults,cpo_ignorehidden,cpo_allowconvert,cpo_comparedefaultvalue); tcompare_paras_option = (cpo_allowdefaults,cpo_ignorehidden,cpo_allowconvert,cpo_comparedefaultvalue);
tcompare_paras_options = set of tcompare_paras_option; tcompare_paras_options = set of tcompare_paras_option;
tcompare_defs_option = (cdo_explicit,cdo_check_operator,cdo_allow_variant); tcompare_defs_option = (cdo_internal,cdo_explicit,cdo_check_operator,cdo_allow_variant);
tcompare_defs_options = set of tcompare_defs_option; tcompare_defs_options = set of tcompare_defs_option;
tconverttype = ( tconverttype = (
@ -692,9 +692,16 @@ implementation
end; end;
end; end;
{ delphi compatible, allow explicit typecasts from { delphi compatible, allow explicit typecasts from
ordinals to pointer. It is also used for inc(pointer,ordinal) } ordinals to pointer.
It is also used by the compiler internally for inc(pointer,ordinal) }
if (eq=te_incompatible) and if (eq=te_incompatible) and
(cdo_explicit in cdoptions) then (
(
(m_delphi in aktmodeswitches) and
(cdo_explicit in cdoptions)
) or
(cdo_internal in cdoptions)
) then
begin begin
doconv:=tc_int_2_int; doconv:=tc_int_2_int;
eq:=te_convert_l1; eq:=te_convert_l1;
@ -1304,7 +1311,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.59 2004-11-15 23:35:31 peter Revision 1.60 2004-11-26 22:33:54 peter
* don't allow pointer(ordinal) typecast in fpc mode, only allow it
for delphi and for internal use
Revision 1.59 2004/11/15 23:35:31 peter
* tparaitem removed, use tparavarsym instead * tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym * parameter order is now calculated from paranr value in tparavarsym