Browse Source

* 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 -

nickysn 11 years ago
parent
commit
5ae9443d66
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/ncgutil.pas

+ 2 - 2
compiler/ncgutil.pas

@@ -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);