!=========================================================================
! Copyright (C) VMware, Inc. 2005-2011.  All Rights Reserved.
! 
!  smalldoub_11to20.gs - to be filed into Gemstone v6.1 prior to
!	conversion of repository to Gemstone64 v2.0
!
! $Id: smalldoub_61to20.gs,v 1.3 2008-01-09 22:50:18 stever Exp $
!
!=========================================================================

! must be logged in as SystemUser

category: 'Repository Conversion'
method: Object
_unsafeSetOop: aPositiveInteger

  "aPositiveInteger must be the integer value of a 5.0 OopType"

  <primitive: 385>
  ^ self _primitiveFailed: #_unsafeSetOop:
%
category: 'Repository Conversion'
method: Behavior
_setFormat: aSmallInt

format := aSmallInt
%

expectvalue %String
run
BinaryFloat _newKernelSubclass: 'SmallDouble'
  instVarNames: #()
  classVars: #()
  classInstVars: #()
  poolDictionaries: #[]
  inDictionary: Globals
  constraints: #[  ]
  instancesInvariant: true
  isModifiable: false
  reservedOop: 1897 
%
run
SmallDouble _setFormat: SmallInteger format .
^ true
%
run
Behavior removeSelector:#_setFormat: .
Object removeSelector: #_unsafeSetOop: .
^ true
%
commit

