!
!  ErrorInfoGlobal.f90 - This file contains the global data and functions
!  for the COM Server
!
!  Generated by the Visual Fortran COM Server Wizard on
!  11/08/00 at 15:04:32.
!
!   DO NOT EDIT THIS FILE!
!
!  This file is re-generated every time the object hierarchy is changed.
!

!
!  M O D U L E S
!

!  Module containg DLL global data

module ErrorInfo_Global
    use dfwinty
    use kernel32
    use IClassFactory_Types

    integer(HANDLE) ghinst
    integer         gCntLock
    type (T_RTL_CRITICAL_SECTION) gGlobalCriticalSection
    !  Per Class
    integer(INT_PTR_KIND()) gAToIIClassFactory
    type (IClassFactory_Data), pointer :: gpAToICFData
    integer(INT_PTR_KIND()) gAToIITypeInfo

	! Type Library GUID		
	TYPE (GUID), PARAMETER :: GUID_TypeLib_ErrorInfo = &
		GUID(#6B87E425, #B586, #11D4, &
        CHAR('AB'X)//CHAR('D9'X)//CHAR('44'X)//CHAR('45'X)// &
        CHAR('53'X)//CHAR('54'X)//CHAR('00'X)//CHAR('00'X))

  contains

    integer function ServerLock ()
        integer(LONG) r
        r = InterlockedIncrement (loc(gCntLock)) 
        ServerLock = gCntLock
    end function

    integer function ServerUnlock ()
        integer(LONG) r
        r = InterlockedDecrement (loc(gCntLock)) 
        ServerUnlock = gCntLock
    end function

end module ErrorInfo_Global

