paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 23:09:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* added missing then, Carl did you really a make fullcycle :) ?

Browse Source
This commit is contained in:
florian 2002-12-05 14:39:21 +00:00
parent 121ca40b39
commit fbbaf36800
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncgutil.pas
View File

@ -1248,8 +1248,8 @@ function returns in a register and the caller receives it in an other one}
therefore if the context must be saved, do it before
the actual call to the profile code
}
if (cs_profile in aktmoduleswitches)
and not(po_assembler in aktprocdef.procoptions)
if (cs_profile in aktmoduleswitches)
and not(po_assembler in aktprocdef.procoptions)
and not(inlined) then
begin
{ non-win32 can call mcout even in main }
@ -1480,7 +1480,7 @@ function returns in a register and the caller receives it in an other one}
{$ifndef m68k}
{ give a warning if the limit of local variables is reached }
if stackframe > maxlocalsize then
Message(cg_w_localsize_too_big);
Message(cg_w_localsize_too_big);
{$endif}
{$ifndef powerpc}
{ at least for the ppc this applies always, so this code isn't usable (FK) }
@ -1754,7 +1754,7 @@ function returns in a register and the caller receives it in an other one}
{ give a warning if the limit of parameters allowed for
certain processors is reached.
}
if (parasize > maxparasize)
if (parasize > maxparasize) then
Message(cg_w_parasize_too_big);
{$endif}
cg.g_return_from_proc(list,parasize);
@ -1902,7 +1902,10 @@ function returns in a register and the caller receives it in an other one}
end.
{
$Log$
Revision 1.69 2002-12-03 22:13:39 carl
Revision 1.70 2002-12-05 14:39:21 florian
* added missing then, Carl did you really a make fullcycle :) ?
Revision 1.69 2002/12/03 22:13:39 carl
* bugfix of problems with profile code which clobbers some registers
Revision 1.68 2002/12/01 22:06:59 carl