home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / smalltalk / Demos / mem-usage next >
Encoding:
Text File  |  1991-09-13  |  1.8 KB  |  56 lines
  1. "Compute the amount of memory and the number of instances for each
  2.  Class in the GNU Smalltalk system."
  3.  
  4.  
  5. "======================================================================
  6. |
  7. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  8. | Written by Steve Byrne.
  9. |
  10. | This file is part of GNU Smalltalk.
  11. |
  12. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  13. | under the terms of the GNU General Public License as published by the Free
  14. | Software Foundation; either version 1, or (at your option) any later version.
  15. | 
  16. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  17. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  18. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  19. | details.
  20. | 
  21. | You should have received a copy of the GNU General Public License along with
  22. | GNU Smalltalk; see the file LICENSE.  If not, write to the Free Software
  23. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  24. |
  25.  ======================================================================"
  26.  
  27.  
  28.  
  29. !Object methodsFor: 'demo'!
  30.  
  31. showMemUsage
  32.     | t numObjs classObjs totalInstanceSize instVarSize |
  33.     numObjs _ t _ 0.
  34.     Object withAllSubclasses do: 
  35.     [ :class | class printNl.
  36.            totalInstanceSize _ classObjs _ 0.
  37.            instVarSize _ class instSize.
  38.                    (class == MethodContext or: [ class == BlockContext ])
  39.                ifFalse: [ class allInstancesDo:
  40.                       [ :inst | totalInstanceSize _ totalInstanceSize +
  41.                             ((WordMemory at: (Memory addressOf: inst)) * 4).
  42.                         classObjs _ classObjs + 1 ] 
  43.                       ].
  44.                             
  45.            '  Instances: ' print. classObjs printNl.
  46.            '  Size: ' print. totalInstanceSize printNl.
  47.            stdout nl.
  48.            t _ t + totalInstanceSize.
  49.            numObjs _ numObjs + classObjs ].
  50.  
  51.     numObjs printNl.
  52.     t printNl
  53. !!
  54.  
  55. Object showMemUsage!
  56.