|
@@ -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
|
|
|
|
|
- (def_from.size=def_to.size) then
|
|
|
|
|
|
|
+ (cdo_explicit in cdoptions) 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
|
peter