LIST_ENTRY 茫然了！！！

最近在写过滤驱动，要用链表，拿了DDK的 LIST_ENTRY 双向链表用了用觉得挺爽的，但调试过程中却不断蓝屏，问题出在什么地方？望大牛帮忙看看，谢谢了！


typedef    struct _MY_DIRECTORY
{
    LIST_ENTRY    ListEntry;
    int TestData;
} MY_DIRECTORY, *PMY_DIRECTORY;

LIST_ENTRY    LinkListHead;   //声明为全局变量

// 将对象插入链表
//
VOID  MyObjectToSet ( IN PVOID pObject )
{
    PMY_DIRECTORY     pMyDirectory = ( PMY_DIRECTORY ) ExAllocatePool ( PagedPool, sizeof ( MY_DIRECTORY ) );    
    pMyDirectory ->TestData = *(int *)pObject;    
#if DBG
    KdPrint (("pass through value: %d\n", pMyDirectory ->TestData ));
#endif
    //
    // 插入链表
    //
    InsertHeadList ( &LinkListHead, &pMyDirectory ->ListEntry );
    ExFreePool ( pMyDirectory );
}

// 将对象从链表中删除
//
VOID    MyObjectToRemove ( OUT PVOID pObject )
{
#if    DBG
    KdPrint (("IsListEmpty Value: %d\n",IsListEmpty ( &LinkListHead )));
#endif
    if ( !IsListEmpty ( &LinkListHead ) )
    {
            PLIST_ENTRY        pEntry = RemoveHeadList ( &LinkListHead );
            PMY_DIRECTORY     pMyDirectory = ( PMY_DIRECTORY ) ExAllocatePool ( PagedPool, sizeof ( MY_DIRECTORY ) );
            pMyDirectory = CONTAINING_RECORD ( pEntry, MY_DIRECTORY, ListEntry );
            pObject = (PVOID)&pMyDirectory ->TestData;
            ExFreePool ( pMyDirectory );
    }
}
//
// MyTest() 是测试函数
VOID MyTest()
{
    // 初始化链表头
    //
    InitializeListHead ( &LinkListHead );
    for ( int i = 0; i<100; i++ )
    {
        MyObjectToSet ( (PVOID)&i );
    }
    while ( !IsListEmpty ( &LinkListHead ))
    {
        int num = 0;
        MyObjectToRemove ( &num );
        KdPrint (("Num: %d\n",num ));
    }
}

问题：将 MyTest() 函数放在 DriverEntry() 执行后，蓝屏。调试查看调用堆栈后，提示在
RemoveHeadList ( &LinkListHead ) 此行出错，仔细检查后，似乎并没有什么问题！麻烦
大牛们帮着看看，问题出在什么地方了？先谢谢了！

呵呵，自己搞定了