home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / GNU_SMALLTALK.lha / Memory.st < prev    next >
Encoding:
Text File  |  1992-02-15  |  3.2 KB  |  142 lines
  1. "======================================================================
  2. |
  3. |   Memory definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         16 Mar 91      Class creation now separate statement.
  36. |
  37. | sbyrne     29 May 89      created.
  38. |
  39. "
  40. Object variableWordSubclass: #Memory
  41.        instanceVariableNames: ''
  42.        classVariableNames: ''
  43.        poolDictionaries: ''
  44.        category: nil
  45. !
  46.  
  47. Memory comment:
  48. 'I provide access to actual machine addresses of OOPS and objects.  I
  49. have no instances; you send messages to my class to map between an object
  50. and the address of its OOP or object.'  !
  51.  
  52.  
  53. !Memory class methodsFor: 'accessing'!
  54.  
  55. "Note that the types could be given symbolic names and installed in a 
  56. class variable, or could be methods that return the proper values (such as
  57. the priorities for processes)."
  58.  
  59. charAt: anAddress
  60.     ^self type: 0 at: anAddress
  61. !
  62.  
  63. unsignedCharAt: anAddress
  64.     ^self type: 1 at: anAddress
  65. !
  66.  
  67. shortAt: anAddress
  68.     ^self type: 2 at: anAddress
  69. !
  70.  
  71. unsignedShortAt: anAddress
  72.     ^self type: 3 at: anAddress
  73. !
  74.  
  75. intAt: anAddress
  76.     ^self type: 4 at: anAddress
  77. !
  78.  
  79. unsignedIntAt: anAddress
  80.     ^self type: 5 at: anAddress
  81. !
  82.  
  83. floatAt: anAddress
  84.     ^self type: 6 at: anAddress
  85. !
  86.  
  87. doubleAt: anAddress
  88.     ^self type: 7 at: anAddress
  89. !
  90.  
  91. stringAt: anAddress
  92.     ^self type: 8 at: anAddress
  93. !
  94.  
  95. deref: anAddress
  96.     ^self intAt: anAddress
  97. ! 
  98.  
  99.  
  100. "Storing methods"
  101.  
  102. charAt: anAddress put: aValue
  103.     ^self type: 0 at: anAddress put: aValue
  104. !
  105.  
  106. unsignedCharAt: anAddress put: aValue
  107.     ^self type: 1 at: anAddress put: aValue
  108. !
  109.  
  110. shortAt: anAddress put: aValue
  111.     ^self type: 2 at: anAddress put: aValue
  112. !
  113.  
  114. unsignedShortAt: anAddress put: aValue
  115.     ^self type: 3 at: anAddress put: aValue
  116. !
  117.  
  118. intAt: anAddress put: aValue
  119.     ^self type: 4 at: anAddress put: aValue
  120. !
  121.  
  122. unsignedIntAt: anAddress put: aValue
  123.     ^self type: 5 at: anAddress put: aValue
  124. !
  125.  
  126. floatAt: anAddress put: aValue
  127.     ^self type: 6 at: anAddress put: aValue
  128. !
  129.  
  130. doubleAt: anAddress put: aValue
  131.     ^self type: 7 at: anAddress put: aValue
  132. !
  133.  
  134. stringAt: anAddress put: aValue
  135.     ^self type: 8 at: anAddress put: aValue
  136. !!
  137.  
  138.  
  139. !Memory methodsFor: 'basic'!
  140.  
  141. !
  142.