paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-13 18:18:18 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgutil.pas
View File

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