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

* fixed bug in push_addr_param for arrays (merged from fixes branch)

Browse Source
This commit is contained in:
Jonas Maebe 2000-09-18 12:31:15 +00:00
parent 0b7a6a9a6a
commit 857149a109
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/types.pas
View File

@ -688,7 +688,7 @@ implementation
recorddef :
push_addr_param:=(def^.size>4);
arraydef :
push_addr_param:=((Parraydef(def)^.highrange>Parraydef(def)^.lowrange) and (def^.size>4)) or
push_addr_param:=((Parraydef(def)^.highrange>=Parraydef(def)^.lowrange) and (def^.size>4)) or
is_open_array(def) or
is_array_of_const(def) or
is_array_constructor(def);
@ -1143,7 +1143,10 @@ implementation
end.
{
$Log$
Revision 1.9 2000-09-10 20:16:21 peter
Revision 1.10 2000-09-18 12:31:15 jonas
* fixed bug in push_addr_param for arrays (merged from fixes branch)
Revision 1.9 2000/09/10 20:16:21 peter
* array of const isn't equal with array of <type> (merged)
Revision 1.8 2000/08/19 19:51:03 peter