paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 05:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* constructors return in register

Browse Source
This commit is contained in:
peter 2003-05-13 20:53:41 +00:00
parent e5b48ec83d
commit b52ba06662
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncal.pas
View File

@ -2374,14 +2374,8 @@ type
begin
if (procdefinition.proctypeoption=potype_constructor) then
begin
if assigned(methodpointer) and
(methodpointer.resulttype.def.deftype=classrefdef) then
begin
expectloc:=LOC_REGISTER;
registers32:=1;
end
else
expectloc:=LOC_FLAGS;
expectloc:=LOC_REGISTER;
registers32:=1;
end
else
begin
@ -2730,7 +2724,10 @@ begin
end.
{
$Log$
Revision 1.152 2003-05-13 15:18:49 peter
Revision 1.153 2003-05-13 20:53:41 peter
* constructors return in register
Revision 1.152 2003/05/13 15:18:49 peter
* fixed various crashes
Revision 1.151 2003/05/11 21:37:03 peter