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

* support dynamicarray<>nil

Browse Source
This commit is contained in:
peter 2002-10-05 00:47:03 +00:00
parent 91937f7adc
commit 443f982775
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/htypechk.pas
View File

@ -150,6 +150,8 @@ implementation
(ld.deftype=variantdef) or
(rd.deftype=variantdef) or
((rd.deftype=pointerdef) and
not(is_dynamic_array(ld) and
is_voidpointer(rd)) and
not(is_pchar(rd) and
(is_chararray(ld) or
(ld.deftype=stringdef) or
@ -160,6 +162,8 @@ implementation
(not is_integer(ld) or not (treetyp in [addn,subn]))
) or
((ld.deftype=pointerdef) and
not(is_dynamic_array(rd) and
is_voidpointer(ld)) and
not(is_pchar(ld) and
(is_chararray(rd) or
(rd.deftype=stringdef) or
@ -175,6 +179,8 @@ implementation
((ld.deftype=arraydef) and
not((cs_mmx in aktlocalswitches) and
is_mmx_able_array(ld)) and
not(is_dynamic_array(ld) and
is_voidpointer(rd)) and
not(is_chararray(ld) and
(is_char(rd) or
is_pchar(rd) or
@ -186,6 +192,8 @@ implementation
((rd.deftype=arraydef) and
not((cs_mmx in aktlocalswitches) and
is_mmx_able_array(rd)) and
not(is_dynamic_array(rd) and
is_voidpointer(ld)) and
not(is_chararray(rd) and
(is_char(ld) or
is_pchar(ld) or
@ -950,7 +958,10 @@ implementation
end.
{
$Log$
Revision 1.48 2002-10-04 21:13:59 peter
Revision 1.49 2002-10-05 00:47:03 peter
* support dynamicarray<>nil
Revision 1.48 2002/10/04 21:13:59 peter
* ignore vecn,subscriptn when checking for a procvar loadn
Revision 1.47 2002/09/16 18:09:34 peter

13
compiler/nadd.pas
View File

@ -1043,6 +1043,14 @@ implementation
CGMessage(type_e_mismatch);
end
{ support dynamicarray=nil,dynamicarray<>nil }
else if (is_dynamic_array(ld) and (rt=niln)) or
(is_dynamic_array(rd) and (lt=niln)) then
begin
if not(nodetype in [equaln,unequaln]) then
CGMessage(type_e_mismatch);
end
{$ifdef SUPPORT_MMX}
{ mmx support, this must be before the zero based array
check }
@ -1818,7 +1826,10 @@ begin
end.
{
$Log$
Revision 1.66 2002-10-04 21:19:28 jonas
Revision 1.67 2002-10-05 00:47:03 peter
* support dynamicarray<>nil
Revision 1.66 2002/10/04 21:19:28 jonas
* fixed web bug 2139: checking for division by zero fixed
Revision 1.65 2002/09/07 15:25:02 peter