Fix Process not being deleted

svn path=/trunk/; revision=14664

reactos/ntoskrnl/mm/mm.c

@@ -90,6 +90,7 @@ NTSTATUS MmReleaseMemoryArea(PEPROCESS Process, PMEMORY_AREA Marea)
          return(STATUS_SUCCESS);
 
       case MEMORY_AREA_VIRTUAL_MEMORY:
+      case MEMORY_AREA_PEB_OR_TEB:
          MmFreeVirtualMemory(Process, Marea);
          break;
 

reactos/ntoskrnl/ps/kill.c

@@ -151,7 +151,7 @@ PspDeleteProcess(PVOID ObjectBody)
 {
     PEPROCESS Process = (PEPROCESS)ObjectBody;
 
-    DPRINT("PiDeleteProcess(ObjectBody %x)\n",Process);
+    DPRINT1("PiDeleteProcess(ObjectBody %x)\n",Process);
 
     /* Delete the CID Handle */   
     if(Process->UniqueProcessId != NULL) {

reactos/ntoskrnl/ps/process.c

@@ -427,9 +427,8 @@ PspCreateProcess(OUT PHANDLE ProcessHandle,
     /* FIXME: ObGetObjectSecurity(Process, &SecurityDescriptor)
               SeAccessCheck
     */
-   ObReferenceObject(Process);
-   ObReferenceObject(Process);
-   return Status;
+    ObDereferenceObject(Process);
+    return Status;
    
 exitdereferenceobjects:
     if(SectionObject != NULL) ObDereferenceObject(SectionObject);