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

* only allow pointer(integer) in fpc modes

Browse Source 
git-svn-id: trunk@6598 -
This commit is contained in:
peter 2007-02-22 07:01:47 +00:00
parent fcc873b202
commit f7a6c1e2ee
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/defcmp.pas
View File

@ -899,8 +899,17 @@ implementation
It is also used by the compiler internally for inc(pointer,ordinal) } It is also used by the compiler internally for inc(pointer,ordinal) }
if (eq=te_incompatible) and if (eq=te_incompatible) and
not is_void(def_from) and not is_void(def_from) and
(cdo_explicit in cdoptions) or (
(cdo_internal in cdoptions) then (
(cdo_explicit in cdoptions) and
(
(m_delphi in current_settings.modeswitches) or
{ Don't allow pchar(char) in fpc modes }
is_integer(def_from)
)
) 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;