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

* moved the EXCEPT_BUF_SIZE const to be local to ncgutils.get_exception_temps,

Browse Source 
because that's the only place where it's used

git-svn-id: trunk@27369 -
This commit is contained in:
nickysn 2014-03-30 11:27:07 +00:00
parent 1f98dfc3b4
commit 5ae9443d66
1 changed files with 2 additions and 2 deletions

4
compiler/ncgutil.pas
View File

@ -110,8 +110,6 @@ interface
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. }
const
EXCEPT_BUF_SIZE = 3*sizeof(pint);
type
texceptiontemps=record
jmpbuf,
@ -384,6 +382,8 @@ implementation
*****************************************************************************}
procedure get_exception_temps(list:TAsmList;var t:texceptiontemps);
const
EXCEPT_BUF_SIZE = 3*sizeof(pint);
begin
get_jumpbuf_size;
tg.GetTemp(list,EXCEPT_BUF_SIZE,sizeof(pint),tt_persistent,t.envbuf);