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

* dynarr-pointer is allowed under delphi

Browse Source
This commit is contained in:
peter 2004-09-16 16:32:44 +00:00
parent 4978a7635a
commit 35c07ed9ef
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/defcmp.pas
View File

@ -706,7 +706,14 @@ implementation
begin
doconv:=tc_array_2_pointer;
eq:=te_convert_l1;
end;
end
else
{ dynamic array to pointer, delphi only }
if (m_delphi in aktmodeswitches) and
is_dynamic_array(def_from) then
begin
eq:=te_equal;
end;
end;
pointerdef :
begin
@ -1275,7 +1282,10 @@ implementation
end.
{
$Log$
Revision 1.51 2004-06-20 08:55:29 florian
Revision 1.52 2004-09-16 16:32:44 peter
* dynarr-pointer is allowed under delphi
Revision 1.51 2004/06/20 08:55:29 florian
* logs truncated
Revision 1.50 2004/04/12 11:26:10 peter