paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 08:31:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed size setting of result location of innodes

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-17 19:17:35 +00:00
parent 56b4360422
commit 4aadabdf80
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/ncgset.pas
View File

@ -283,7 +283,7 @@ implementation
swapleftright; swapleftright;
{ location is always LOC_JUMP } { 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 } { allocate a register for the result }
location.register := rg.getregisterint(exprasmlist,OS_INT); location.register := rg.getregisterint(exprasmlist,OS_INT);
@ -1124,7 +1124,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed endian issue in inlined in-test for smallsets
* pass the address of normalsets to fpc_set_in_set_byte instead of the * pass the address of normalsets to fpc_set_in_set_byte instead of the
contents of the first 4 bytes contents of the first 4 bytes