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 ----
|
