Explorar el Código

* 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 hace 11 años
padre
commit
5ae9443d66
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  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
       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);