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

* cosmetic formatting changes

Browse Source 
git-svn-id: trunk@24117 -
This commit is contained in:
florian 2013-04-01 19:52:43 +00:00
parent 7155808570
commit 364f170765
2 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/nadd.pas
View File

@ -1040,7 +1040,6 @@ implementation
exit; exit;
end; end;
{ Kylix allows enum+ordconstn in an enum type declaration, we need to do { Kylix allows enum+ordconstn in an enum type declaration, we need to do
the conversion here before the constant folding } the conversion here before the constant folding }
if (m_delphi in current_settings.modeswitches) and if (m_delphi in current_settings.modeswitches) and

14
compiler/ncgutil.pas
View File

@ -101,13 +101,12 @@ interface
// procedure get_used_regvars_common(n: tnode; var rv: tusedregvarscommon); // procedure get_used_regvars_common(n: tnode; var rv: tusedregvarscommon);
procedure gen_sync_regvars(list:TAsmList; var rv: tusedregvars); procedure gen_sync_regvars(list:TAsmList; var rv: tusedregvars);
{ if the result of n is a LOC_C(..)REGISTER, try to find the corresponding } { if the result of n is a LOC_C(..)REGISTER, try to find the corresponding
{ loadn and change its location to a new register (= SSA). In case reload } loadn and change its location to a new register (= SSA). In case reload
{ is true, transfer the old to the new register } is true, transfer the old to the new register }
procedure maybechangeloadnodereg(list: TAsmList; var n: tnode; reload: boolean); procedure maybechangeloadnodereg(list: TAsmList; var n: tnode; reload: boolean);
{# { Allocate the buffers for exception management and setjmp environment.
Allocate the buffers for exception management and setjmp environment.
Return a pointer to these buffers, send them to the utility routine Return a pointer to these buffers, send them to the utility routine
so they are registered, and then call setjmp. so they are registered, and then call setjmp.
@ -119,11 +118,8 @@ interface
It is to note that this routine may be called *after* the stackframe of a It is to note that this routine may be called *after* the stackframe of a
routine has been called, therefore on machines where the stack cannot routine has been called, therefore on machines where the stack cannot
be modified, all temps should be allocated on the heap instead of the be modified, all temps should be allocated on the heap instead of the
stack. stack. }
}
const const
EXCEPT_BUF_SIZE = 3*sizeof(pint); EXCEPT_BUF_SIZE = 3*sizeof(pint);
type type
texceptiontemps=record texceptiontemps=record