mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-11 01:58:20 +02:00
* moved the EXCEPT_BUF_SIZE const to be local to ncgutils.get_exception_temps,
because that's the only place where it's used git-svn-id: trunk@27369 -
This commit is contained in:
parent
1f98dfc3b4
commit
5ae9443d66
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user