[Win32forth-cvs] win32forth/src/lib Security.f,1.1,1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv32293

Modified Files:
	Security.f 
Log Message:
Jos Adapted for windows7

Index: Security.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Security.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Security.f	10 Jun 2006 17:58:13 -0000	1.1
--- Security.f	6 Jun 2012 16:24:33 -0000	1.2
***************
*** 86,93 ****
  12 constant TokenSessionId
  
  : GetTokenInformation ( type TokenHandle - buffer-with-info buffer-size )
!    temp$ 100 erase
!    2>r pad maxstring temp$ 2r> call GetTokenInformation ?win-error
!    temp$ 4 + pad @ ;
  
  : reset_last_error     ( - )  0 call SetLastError drop ;     \ *W95
--- 86,97 ----
  12 constant TokenSessionId
  
+ 
+ 500 constant /large$
+ /large$ create large$ allot
+ 
  : GetTokenInformation ( type TokenHandle - buffer-with-info buffer-size )
!    large$ /large$ erase
!    2>r pad /large$ large$ 2r> call GetTokenInformation ?win-error
!    large$ 4 + pad @ ;
  
  : reset_last_error     ( - )  0 call SetLastError drop ;     \ *W95
***************
*** 127,131 ****
     &token_privilege luaa 2!
     0 temp$ ! temp$
!    pad 
     400
     &token_privilege   false
--- 131,135 ----
     &token_privilege luaa 2!
     0 temp$ ! temp$
!    pad
     400
     &token_privilege   false