ExtBytes.st
changeset 3321 4abefa756c45
parent 3320 09eb32bbceaf
child 3486 bbd47c3011e5
equal deleted inserted replaced
3320:09eb32bbceaf 3321:4abefa756c45
   487 #else
   487 #else
   488         printf("  %08x (%d)\n", entry->chunk, entry->size);
   488         printf("  %08x (%d)\n", entry->chunk, entry->size);
   489 #endif
   489 #endif
   490     }
   490     }
   491 %}
   491 %}
       
   492     "
       
   493      self dumpMallocChunks
       
   494     "
   492 !
   495 !
   493 
   496 
   494 freeAllMallocChunks
   497 freeAllMallocChunks
   495     "free all stx_malloc'd memory. Be careful, this does no validation at all;
   498     "free all stx_malloc'd memory. Be careful, this does no validation at all;
   496      It simply walks through all chunks and frees them unconditionally.
   499      It simply walks through all chunks and frees them unconditionally.
   540 
   543 
   541 numberOfAllocatedChunks
   544 numberOfAllocatedChunks
   542 %{  /* NOCONTEXT */
   545 %{  /* NOCONTEXT */
   543     RETURN ( __MKSMALLINT(mallocCount) );
   546     RETURN ( __MKSMALLINT(mallocCount) );
   544 %}
   547 %}
       
   548     "
       
   549      self numberOfAllocatedChunks
       
   550     "
   545 !
   551 !
   546 
   552 
   547 mallocStatistics
   553 mallocStatistics
   548 %{
   554 %{
   549     __stx_mallocStatistics();
   555     __stx_mallocStatistics();
   550 %}
   556 %}
       
   557     "
       
   558      self mallocStatistics
       
   559     "
   551 ! !
   560 ! !
   552 
   561 
   553 !ExternalBytes class methodsFor:'private instance creation/release'!
   562 !ExternalBytes class methodsFor:'private instance creation/release'!
   554 
   563 
   555 newForData:numberOfBytes
   564 newForData:numberOfBytes
   926 ! !
   935 ! !
   927 
   936 
   928 !ExternalBytes class methodsFor:'documentation'!
   937 !ExternalBytes class methodsFor:'documentation'!
   929 
   938 
   930 version
   939 version
   931     ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtBytes.st,v 1.21 1998-03-05 20:55:09 cg Exp $'
   940     ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtBytes.st,v 1.22 1998-03-05 21:40:07 cg Exp $'
   932 ! !
   941 ! !
   933 ExternalBytes initialize!
   942 ExternalBytes initialize!