paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 18:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* problems with last commit fixed

Browse Source
This commit is contained in:
florian 2002-07-07 10:16:29 +00:00
parent 77ba8fddb3
commit aa15b56de1
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cgobj.pas
View File

@ -1288,10 +1288,10 @@ unit cgobj;
both in stack and in self register.
}
{ 2nd parameter : flag }
a_param_const(list,OS_32,1,2);
a_param_const(list,OS_32,1,getintparaloc(2));
{ 1st parameter to destructor : self }
reference_reset_base(href, procinfo^.framepointer,procinfo^.selfpointer_offset);
a_param_ref(list, OS_ADDR,href,1);
a_param_ref(list, OS_ADDR,href,getintparaloc(1));
a_call_name(list,'FPC_DISPOSE_CLASS');
{ SET SELF TO NIL }
a_load_const_reg(list,OS_ADDR,0,SELF_POINTER_REG);
@ -1344,8 +1344,8 @@ finalization
end.
{
$Log$
Revision 1.34 2002-07-07 10:05:34 florian
* typo fixed
Revision 1.35 2002-07-07 10:16:29 florian
* problems with last commit fixed
Revision 1.33 2002/07/07 09:52:32 florian
* powerpc target fixed, very simple units can be compiled

12
compiler/ncgset.pas
View File

@ -55,6 +55,7 @@ implementation
globtype,systems,
verbose,globals,
symconst,symdef,types,
cpupara,
pass_2,
ncon,
cga,tgobj,ncgutil,regvars,rgobj;
@ -561,8 +562,8 @@ implementation
cg.a_load_loc_reg(exprasmlist,left.location,pleftreg);
location_freetemp(exprasmlist,left.location);
location_release(exprasmlist,left.location);
cg.a_param_reg(exprasmlist,OS_8,pleftreg,2);
cg.a_param_ref(exprasmlist,OS_ADDR,right.location.reference,1);
cg.a_param_reg(exprasmlist,OS_8,pleftreg,getintparaloc(2));
cg.a_param_ref(exprasmlist,OS_ADDR,right.location.reference,getintparaloc(1));
cg.a_call_name(exprasmlist,'FPC_SET_IN_BYTE');
{ result of value is always one full register }
cg.a_load_reg_reg(exprasmlist,OS_INT,ACCUMULATOR,location.register);
@ -580,13 +581,14 @@ implementation
begin
csetelementnode:=tcgsetelementnode;
{$ifdef TEST_GENERIC}
cinnode:=tcginnode;
{$endif}
end.
{
$Log$
Revision 1.3 2002-07-06 20:19:25 carl
Revision 1.4 2002-07-07 10:16:29 florian
* problems with last commit fixed
Revision 1.3 2002/07/06 20:19:25 carl
+ generic set handling
Revision 1.2 2002/07/01 16:23:53 peter