From 4aadabdf80c52ccd32e20b80ba6cab658be581fd Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sat, 17 May 2003 19:17:35 +0000 Subject: [PATCH] * fixed size setting of result location of innodes --- compiler/ncgset.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas index 926fcd6c95..057c5ef8b6 100644 --- a/compiler/ncgset.pas +++ b/compiler/ncgset.pas @@ -283,7 +283,7 @@ implementation swapleftright; { location is always LOC_JUMP } - location_reset(location,LOC_REGISTER,OS_INT); + location_reset(location,LOC_REGISTER,def_cgsize(resulttype.def)); { allocate a register for the result } location.register := rg.getregisterint(exprasmlist,OS_INT); @@ -1124,7 +1124,10 @@ begin end. { $Log$ - Revision 1.32 2003-05-01 12:26:50 jonas + Revision 1.33 2003-05-17 19:17:35 jonas + * fixed size setting of result location of innodes + + Revision 1.32 2003/05/01 12:26:50 jonas * fixed endian issue in inlined in-test for smallsets * pass the address of normalsets to fpc_set_in_set_byte instead of the contents of the first 4 bytes