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

* remove previous patch

Browse Source
This commit is contained in:
peter 2004-11-01 08:02:26 +00:00
parent 0c80377ca8
commit 9f811b8bca
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/defcmp.pas
View File

@ -691,9 +691,10 @@ implementation
eq:=te_convert_l1; eq:=te_convert_l1;
end; end;
end; end;
{ delphi compatible, allow explicit typecasts from
ordinals to pointer. It is also used for inc(pointer,ordinal) }
if (eq=te_incompatible) and if (eq=te_incompatible) and
(cdo_explicit in cdoptions) and (cdo_explicit in cdoptions) then
(def_from.size=def_to.size) then
begin begin
doconv:=tc_int_2_int; doconv:=tc_int_2_int;
eq:=te_convert_l1; eq:=te_convert_l1;
@ -1301,7 +1302,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.55 2004-10-31 22:05:25 peter Revision 1.56 2004-11-01 08:02:26 peter
* remove previous patch
Revision 1.55 2004/10/31 22:05:25 peter
* only allow ordinal-pointer for same size * only allow ordinal-pointer for same size
Revision 1.54 2004/10/31 21:45:02 peter Revision 1.54 2004/10/31 21:45:02 peter