[fpc-devel] Bug in compiler after fixes applied: 2005/01/10 21:50:05 jonas

[Alexey Barkovoy]

Fixes description:
====
2005/01/10 21:50:05  jonas
    + support for passing records in registers under darwin
    * tcgpara now also has an intsize field, which contains the size in
      bytes of the whole parameter
====

I've initially filled bug report here:
http://www.freepascal.org/bugs/showrec.php3?ID=3563

After looking at problem source I've discovered that changing < ncgcal.pas > 
around 330 line back to pre-patch (old) condition fixes mine problems:

{$ifndef cpu64bit}
// Old code ---
//                    if left.location.size in [OS_64,OS_S64] then
// New code ---
//                    { don't call the cg64 stuff for 8-byte sized records etc }
//                    if is_64bit(left.resulttype.def) then

                    if left.location.size in [OS_64,OS_S64] then
                      cg64.a_param64_loc(exprasmlist,left.location,tempcgpara)
                    else
{$endif cpu64bit}


Mine problems seems to happen in this function (class method), but I can't 
reproduce it in simpler case:

function CDXUTButton.ContainsPoint(pt: TPoint): LongBool; // this is virtual 
function
begin
  // this checking of class variable raises an exception
  if (Text = 'aaa') then begin end;
  // if line above is commented this function returns always false.
  Result:= PtInRect(m_rcBoundingBox, pt);
end;

Compilation is done with "-Sd -Or" parameters.

PS: changing declaration to use CONST doesn't change anything:
function CDXUTButton.ContainsPoint(const pt: TPoint): LongBool;

PPS: How this can be related to this bug report?
http://www.freepascal.org/bugs/showrec.php3?ID=1807