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

* fixed passing of dyn. arrays to open array parameters

Browse Source
This commit is contained in:
florian 2003-10-29 22:01:20 +00:00
parent 75e5a6e867
commit 6a06df943b
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncal.pas
View File

@ -378,6 +378,13 @@ type
(def_from.size=def_to.size) then
eq:=te_convert_l1;
end;
arraydef :
begin
if is_open_array(def_to) and
is_dynamic_array(def_from) and
equal_defs(tarraydef(def_from).elementtype.def,tarraydef(def_to).elementtype.def) then
eq:=te_convert_l2;
end;
pointerdef :
begin
{ an implicit pointer conversion is allowed }
@ -2584,7 +2591,10 @@ begin
end.
{
$Log$
Revision 1.200 2003-10-23 14:44:07 peter
Revision 1.201 2003-10-29 22:01:20 florian
* fixed passing of dyn. arrays to open array parameters
Revision 1.200 2003/10/23 14:44:07 peter
* splitted buildderef and buildderefimpl to fix interface crc
calculation

6
compiler/ncnv.pas
View File

@ -947,6 +947,7 @@ implementation
{ a dynamic array is a pointer to an array, so to convert it to }
{ an open array, we have to dereference it (JM) }
result := ctypeconvnode.create_explicit(left,voidpointertype);
resulttypepass(result);
{ left is reused }
left := nil;
result := cderefnode.create(result);
@ -2119,7 +2120,10 @@ begin
end.
{
$Log$
Revision 1.127 2003-10-28 15:36:01 peter
Revision 1.128 2003-10-29 22:01:20 florian
* fixed passing of dyn. arrays to open array parameters
Revision 1.127 2003/10/28 15:36:01 peter
* absolute to object field supported, fixes tb0458
Revision 1.126 2003/10/23 14:44:07 peter