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

* two bugs regarding method variables fixed

Browse Source 
- if you take in a method the address of another method
      don't need self anymore
    - if the class pointer was in a register, wrong code for a method
      variable load was generated
This commit is contained in:
florian 1999-06-30 15:43:18 +00:00
parent 17c05e64c3
commit cc8c629550
2 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg386ld.pas
View File

@ -290,7 +290,7 @@ implementation
hp^:=p^.location.reference;
inc(hp^.offset,4);
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,
R_EDI,hp)));
hregister,hp)));
{ virtual method ? }
if (pprocsym(p^.symtableentry)^.definition^.options and povirtualmethod)<>0 then
@ -852,7 +852,14 @@ implementation
end.
{
$Log$
Revision 1.61 1999-06-28 22:29:11 florian
Revision 1.62 1999-06-30 15:43:18 florian
* two bugs regarding method variables fixed
- if you take in a method the address of another method
don't need self anymore
- if the class pointer was in a register, wrong code for a method
variable load was generated
Revision 1.61 1999/06/28 22:29:11 florian
* qword division fixed
+ code for qword/int64 type casting added:
range checking isn't implemented yet

16
compiler/pexpr.pas
View File

@ -554,6 +554,13 @@ unit pexpr;
(p1^.symtableproc^.defowner^.deftype=objectdef) then
begin
p1^.methodpointer:=getcopy(pwithsymtable(p1^.symtableproc)^.withrefnode);
end
else if not(assigned(p1^.methodpointer)) then
begin
{ we must provide a method pointer, if it isn't given, }
{ it is self }
p1^.methodpointer:=genselfnode(procinfo._class);
p1^.methodpointer^.resulttype:=procinfo._class;
end;
{ no postfix operators }
again:=false;
@ -2035,7 +2042,14 @@ unit pexpr;
end.
{
$Log$
Revision 1.116 1999-06-26 00:24:53 pierre
Revision 1.117 1999-06-30 15:43:20 florian
* two bugs regarding method variables fixed
- if you take in a method the address of another method
don't need self anymore
- if the class pointer was in a register, wrong code for a method
variable load was generated
Revision 1.116 1999/06/26 00:24:53 pierre
* mereg from fixes-0_99_12 branch
Revision 1.112.2.4 1999/06/26 00:22:30 pierre