[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.78,1.79

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21742

Modified Files:
	InstantPersistence.pas 
Log Message:
Remove CodeSite instrumenting code left in by mistake on last commit.

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -d -r1.78 -r1.79
*** InstantPersistence.pas	23 Dec 2005 23:54:35 -0000	1.78
--- InstantPersistence.pas	24 Dec 2005 00:52:58 -0000	1.79
***************
*** 11547,11565 ****
      I: Integer;
    begin
-     //CodeSite.Send('Enter RemoveRefsOfDeletedObjectsFromList');
-     //CodeSite.Send('BusyObjectRefs.Count', BusyObjectRefs.Count);
      for I := Pred(BusyObjectRefs.Count) downto 0 do
        with BusyObjectRefs.RefItems[I] do
        begin
-         //CodeSite.Send('I', I);
          ObjStore := Connector.ObjectStores.FindObjectStore(ObjectClass);
-         //CodeSite.Send('Assigned(ObjStore)', Assigned(ObjStore));
          if not (Assigned(ObjStore) and Assigned(ObjStore.Find(ObjectId))) then
-         begin
-           //CodeSite.Send('Delete(I)', I);
            BusyObjectRefs.Delete(I);
-         end;
        end;
-     //CodeSite.Send('Exit RemoveRefsOfDeletedObjectsFromList');
    end;
  
--- 11547,11557 ----
***************
*** 11568,11572 ****
      I: Integer;
    begin
-     //CodeSite.Send('Enter RefreshObjectsInList');
      for I := 0 to Pred(BusyObjectRefs.Count) do
      begin
--- 11560,11563 ----
***************
*** 11575,11583 ****
          Obj.Refresh;
      end;
-     //CodeSite.Send('Exit RefreshObjectsInList');
    end;
  
  begin
-   //CodeSite.EnterMethod(Self, 'InternalRefreshObjects');
    BusyObjectRefs := TInstantObjectReferenceList.Create(False, Connector);
    try
--- 11566,11572 ----
***************
*** 11588,11592 ****
  
      Close;
-     //CodeSite.Send('After Close');
  
      // Remove references from the BusyList for objects destroyed
--- 11577,11580 ----
***************
*** 11595,11599 ****
          
      Open;
-     //CodeSite.Send('After Open');
  
      // Refresh objects in the BusyList that were not destroyed
--- 11583,11586 ----
***************
*** 11603,11607 ****
      BusyObjectRefs.Free;
    end;
-   //CodeSite.ExitMethod(Self, 'InternalRefreshObjects');
  end;
  
--- 11590,11593 ----