1749 } |
1749 } |
1750 RETURN ( __MKSMALLINT( __qSpace(anObject) ) ); |
1750 RETURN ( __MKSMALLINT( __qSpace(anObject) ) ); |
1751 %} |
1751 %} |
1752 ! ! |
1752 ! ! |
1753 |
1753 |
|
1754 !ObjectMemory class methodsFor:'debugging ST/X'! |
|
1755 |
|
1756 printPolyCaches |
|
1757 "{ Pragma: +optSpace }" |
|
1758 |
|
1759 "dump poly caches. |
|
1760 WARNING: this method is for debugging only |
|
1761 it will be removed without notice" |
|
1762 %{ |
|
1763 __dumpILCCaches(); |
|
1764 %} |
|
1765 |
|
1766 " |
|
1767 ObjectMemory printPolyCaches |
|
1768 " |
|
1769 ! |
|
1770 |
|
1771 printStackBacktrace |
|
1772 "{ Pragma: +optSpace }" |
|
1773 |
|
1774 "print a stack backtrace - then continue. |
|
1775 (You may turn off the stack print with debugPrinting:false) |
|
1776 WARNING: this method is for debugging only |
|
1777 it will be removed without notice" |
|
1778 |
|
1779 %{ |
|
1780 __printStack(__context); |
|
1781 %} |
|
1782 |
|
1783 " |
|
1784 ObjectMemory printStackBacktrace |
|
1785 " |
|
1786 |
|
1787 |
|
1788 ! |
|
1789 |
|
1790 printStackBacktraceFrom:aContext |
|
1791 "{ Pragma: +optSpace }" |
|
1792 |
|
1793 "print a stack backtrace - then continue. |
|
1794 (You may turn off the stack print with debugPrinting:false) |
|
1795 WARNING: this method is for debugging only |
|
1796 it will be removed without notice" |
|
1797 |
|
1798 %{ |
|
1799 __printStack(aContext); |
|
1800 %} |
|
1801 |
|
1802 " |
|
1803 ObjectMemory printStackBacktraceFrom:thisContext sender sender |
|
1804 " |
|
1805 |
|
1806 |
|
1807 ! |
|
1808 |
|
1809 printSymbols |
|
1810 "{ Pragma: +optSpace }" |
|
1811 |
|
1812 "dump the internal symbol table. |
|
1813 WARNING: this method is for debugging only |
|
1814 it will be removed without notice" |
|
1815 %{ |
|
1816 #ifdef DEBUG |
|
1817 __dumpSymbols(); |
|
1818 #endif |
|
1819 %} |
|
1820 |
|
1821 " |
|
1822 ObjectMemory printSymbols |
|
1823 " |
|
1824 ! |
|
1825 |
|
1826 sendTraceOff |
|
1827 "{ Pragma: +optSpace }" |
|
1828 |
|
1829 "turns tracing of message sends off. |
|
1830 WARNING: this method is for debugging only |
|
1831 it may be removed without notice" |
|
1832 |
|
1833 %{ /* NOCONTEXT */ |
|
1834 __setMessageTrace__(0); |
|
1835 %} |
|
1836 |
|
1837 " |
|
1838 ObjectMemory sendTraceOff |
|
1839 " |
|
1840 ! |
|
1841 |
|
1842 sendTraceOn |
|
1843 "{ Pragma: +optSpace }" |
|
1844 |
|
1845 "turns tracing of message sends on. |
|
1846 WARNING: this method is for debugging only |
|
1847 it may be removed without notice" |
|
1848 |
|
1849 %{ /* NOCONTEXT */ |
|
1850 __setMessageTrace__(1); |
|
1851 %} |
|
1852 |
|
1853 " |
|
1854 ObjectMemory sendTraceOn |
|
1855 " |
|
1856 ! ! |
|
1857 |
1754 !ObjectMemory class methodsFor:'dependents access'! |
1858 !ObjectMemory class methodsFor:'dependents access'! |
1755 |
1859 |
1756 dependents |
1860 dependents |
1757 "return the collection of my dependents" |
1861 "return the collection of my dependents" |
1758 |
1862 |
4218 ] |
4322 ] |
4219 " |
4323 " |
4220 |
4324 |
4221 ! ! |
4325 ! ! |
4222 |
4326 |
4223 !ObjectMemory class methodsFor:'system management'! |
4327 !ObjectMemory class methodsFor:'system configuration queries'! |
4224 |
4328 |
4225 allBinaryModulesDo:aBlock |
4329 allBinaryModulesDo:aBlock |
4226 "internal private method - walk over all known binary |
4330 "internal private method - walk over all known binary |
4227 modules and evaluate aBlock for each entry. |
4331 modules and evaluate aBlock for each entry. |
4228 Do not depend on the information returned for each - this may |
4332 Do not depend on the information returned for each - this may |
4358 |
4462 |
4359 "Modified: 30.8.1995 / 17:29:30 / claus" |
4463 "Modified: 30.8.1995 / 17:29:30 / claus" |
4360 "Modified: 31.10.1996 / 13:58:44 / cg" |
4464 "Modified: 31.10.1996 / 13:58:44 / cg" |
4361 ! |
4465 ! |
4362 |
4466 |
|
4467 getVMIdentificationStrings |
|
4468 "return a collection of release strings giving information |
|
4469 about the running VM. This is for configuration management only. |
|
4470 Do not depend on the information returned - this may |
|
4471 change or vanish without notice." |
|
4472 |
|
4473 %{ |
|
4474 RETURN (__getVMReleaseStrings()); |
|
4475 %} |
|
4476 " |
|
4477 ObjectMemory getVMIdentificationStrings |
|
4478 " |
|
4479 ! ! |
|
4480 |
|
4481 !ObjectMemory class methodsFor:'system management'! |
|
4482 |
4363 imageBaseName |
4483 imageBaseName |
4364 "return a reasonable filename to use as baseName (i.e. without extension). |
4484 "return a reasonable filename to use as baseName (i.e. without extension). |
4365 This is the filename of the current image (without '.img') or, |
4485 This is the filename of the current image (without '.img') or, |
4366 if not running from an image, the default name 'st'" |
4486 if not running from an image, the default name 'st'" |
4367 |
4487 |