paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 20:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug for overloaded operators with a return type that has a size

Browse Source 
which isn't a multiple of the target_os.stackalignment (main branch
    patch from Peter)
This commit is contained in:
Jonas Maebe 2001-05-08 14:32:58 +00:00
parent bec0f51212
commit 40ca771131
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pdecsub.pas
View File

@ -1836,7 +1836,8 @@ const
tprocdef(aktprocsym.definition).parast.insert(otsym);
{ this increases the data size }
{ correct this to get the right ret $value }
dec(tprocdef(aktprocsym.definition).parast.datasize,otsym.getpushsize);
dec(tprocdef(aktprocsym.definition).parast.datasize,
align(otsym.getpushsize,tprocdef(aktprocsym.definition).parast.dataalignment));
{ this allows to read the funcretoffset }
otsym.address:=-4;
otsym.varspez:=vs_var;
@ -1850,10 +1851,15 @@ const
end.
{
$Log$
Revision 1.22 2001-05-04 15:52:03 florian
* some Delphi incompatibilities fixed:
- out, dispose and new can be used as idenfiers now
- const p = apointerype(nil); is supported now
Revision 1.23 2001-05-08 14:32:58 jonas
* fixed bug for overloaded operators with a return type that has a size
which isn't a multiple of the target_os.stackalignment (main branch
patch from Peter)
Revision 1.22 2001/05/04 15:52:03 florian
* some Delphi incompatibilities fixed:
- out, dispose and new can be used as idenfiers now
- const p = apointerype(nil); is supported now
+ support for const p = apointertype(pointer(1234)); added
Revision 1.21 2001/04/18 22:01:57 peter