paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +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;
end;
{ Kylix allows enum+ordconstn in an enum type declaration, we need to do
the conversion here before the constant folding }
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 gen_sync_regvars(list:TAsmList; var rv: tusedregvars);
{ 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 }
{ is true, transfer the old to the new register }
{ 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
is true, transfer the old to the new register }
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
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
routine has been called, therefore on machines where the stack cannot
be modified, all temps should be allocated on the heap instead of the
stack.
}
stack. }
const
EXCEPT_BUF_SIZE = 3*sizeof(pint);
type
texceptiontemps=record