!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: floatclasses.gs,v 1.9 2008-01-09 22:50:10 stever Exp $
!
!=========================================================================

! Create all the float classes

! gemstone64, deleted  dereference of old DecimalFloat, it should be ok

expectvalue %String
run
  Number _newKernelByteSubclass: 'DecimalFloat'
    classVars: #()
    poolDictionaries: #[]
    inDictionary: Globals
    instancesInvariant: false
    reservedOop: 547
%

! gs64v2.0,  BinaryFloat created in bom.c
! gs64v2.0,  Float       created in bom.c
! gs64v2.0,  SmallDouble created in bom.c
! gs64v2.0,  SmallFloat created in bom.c

! create the following two classes to maintain semantics of OOP_LAST_KERNEL_OOP
!    in gcioop.ht
expectvalue %String
run
  BinaryFloat _newKernelSubclass: 'UnimplementedFloat1'
    instVarNames: #()
    classVars: #()
    classInstVars: #()
    poolDictionaries: #[]
    inDictionary: Globals
    constraints: #() 
    instancesInvariant: false
    isModifiable: false
    reservedOop: 765
%
expectvalue %String
run
  BinaryFloat _newKernelSubclass: 'UnimplementedFloat2'
    instVarNames: #()
    classVars: #()
    classInstVars: #()
    poolDictionaries: #[]
    inDictionary: Globals
    constraints: #() 
    instancesInvariant: false
    isModifiable: false  
    reservedOop: 767
%
