From VisualWorks®, 7.3.1 of April 20, 2005 on October 9, 2008 at 6:41:48 am (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] CallbackAnchor Smalltalk Core.Object false none CallBackTracing CallBackTracing CallbackLog Smalltalk Core.Object false none mutex logFileNameString current shouldLog CallBackTracing CallBackTracing CallbackTracer Smalltalk Core.Object false none CallBackTracing CallBackTracing CCallback External External.CProcedurePointer false none block testForCall hasBeenCalled identifier nextIdentifier External-Data CallBackTracing External.CCallback Missing comment EnableTracing External.CCallback false false As yet unclassified CallBackTracing UseCallbackAnchor External.CCallback false false As yet unclassified CallBackTracing TraceDictionary CallbackTracer false false tracing Dictionary new:100 CallBackTracing EnablePrinting CallbackTracer false false tracing false CallBackTracing Anchor CallbackAnchor false false anchor Dictionary new:100 CallBackTracing SupressPrinting CallbackAnchor false false anchor true CallBackTracing CallbackAnchor class anchor anchor Anchor isNil ifTrue: [^Anchor := Dictionary new: 100]. ^Anchor clearAnchor Anchor := nil. ^self disablePrinting SupressPrinting := true. ^self enablePrinting SupressPrinting := false. ^self supressPrinting SupressPrinting isNil ifTrue: [^SupressPrinting := true]. ^SupressPrinting CallbackAnchor class api deRegister: t1 t1 referentAddress isNil ifTrue: [^self]. self supressPrinting ifFalse: [Transcript show: 'Callback Anchor DeRegistering: ' , (t1 referentAddress printStringRadix: 16); cr]. self anchor removeKey: t1 referentAddress ifAbsent: nil. ^self register: t1 self supressPrinting ifFalse: [Transcript show: 'Callback Anchor Registering: ' , (t1 referentAddress printStringRadix: 16); cr]. self anchor at: t1 referentAddress put: t1. ^self CallbackTracer class tracing addNew: t1 self traceDictionary at: t1 referentAddress put: ((OrderedCollection new) add: ObjectMemory current numScavenges; yourself). self log: 'Callback Created: ' , (t1 referentAddress printStringRadix: 16) , ' testForCall: ' , t1 testForCall printString , ' # scavenges: ' , ObjectMemory current numScavenges printString. ^self callbackAboutToBeReaped: t1 ((self traceDictionary at: t1 referentAddress) includes: #called) ifTrue: [(self traceDictionary at: t1 referentAddress) add: #reaped; add: ObjectMemory current numScavenges. self log: 'Callback reaped: ' , (t1 referentAddress printStringRadix: 16) , ' testForCall: ' , t1 testForCall printString , ' # scavenges: ' , ObjectMemory current numScavenges printString] ifFalse: [self mustLog: 'Callback REAPED BEFORE CALLED: ' , (t1 referentAddress printStringRadix: 16) , ' testForCall: ' , t1 testForCall printString , ' # scavenges: ' , ObjectMemory current numScavenges printString. t1 testForCall ifTrue: [self halt]]. ^self callbackCalled: t1 self log: 'CCallback with address: ' , (t1 referentAddress printStringRadix: 16) , ' has Been Called' , ' testForCall: ' , t1 testForCall printString , ' # scavenges: ' , ObjectMemory current numScavenges printString. (self traceDictionary at: t1 referentAddress) add: #called; add: #scavange -> ObjectMemory current numScavenges. ^self clearTraceDictionary TraceDictionary := nil. ^self log: t1 self enablePrinting ifTrue: [Transcript show: t1; cr]. ^self mustLog: t1 Transcript show: t1; cr. ^self traceDictionary TraceDictionary isNil ifTrue: [^TraceDictionary := Dictionary new: 100]. ^TraceDictionary CallbackTracer class accessing enablePrinting EnablePrinting isNil ifTrue: [EnablePrinting := false]. ^EnablePrinting printingOff EnablePrinting := false. ^self printingOn EnablePrinting := true. ^self "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' Object Core false none Kernel-Objects Kernel-Objects CProcedurePointer External External.CDatum false none External-Data External-Data CollectorInterface PROVISO External.ExternalInterface false none hostCommandReceivers queuedLogMessages forcedLibraryFile PROVISO.CollectorInterfaceDictionary.* ExternalInterface-New pvmd_libSaaTypesDef.h pvmd_libSaa.h /builds/dataload/lastGinger/working/cpp/collector/include libpvmd.so libpvmd.dll /opt/dataloadCincom/lib /opt/oracle/product/9.2.0/lib /opt/dataloadCincom/lib /opt/oracle/product/9.2.0/lib /opt/oracle/product/9.2.0/lib /opt/dataloadCincom/bin [unix]/usr/lib [win]$(windir)\system32 /home/cmeshare/masters/baseGinger/solaris false full PV-SNMP Collector