paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +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 begin
doconv:=tc_array_2_pointer; doconv:=tc_array_2_pointer;
eq:=te_convert_l1; 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; end;
pointerdef : pointerdef :
begin begin
@ -1275,7 +1282,10 @@ implementation
end. end.
{ {
$Log$ $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 * logs truncated
Revision 1.50 2004/04/12 11:26:10 peter Revision 1.50 2004/04/12 11:26:10 peter