forked from dolphinsmalltalk/DolphinVM
-
Notifications
You must be signed in to change notification settings - Fork 0
/
STObject.h
51 lines (37 loc) · 984 Bytes
/
STObject.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
/******************************************************************************
File: STObject.h
Description:
VM representation of base Object class.
As of 3.10 VM, class moved to OTE
******************************************************************************/
#ifndef _ST_STOBJECT_H
#define _ST_STOBJECT_H
enum { ObjectFixedSize = 0 };
enum { ObjectHeaderSize = 0 };
enum { ObjectByteSize = ObjectHeaderSize*sizeof(MWORD) };
typedef void* POBJECT;
// Turn off warning about zero length arrays
#pragma warning ( disable : 4200)
// Not real Smalltalk classes
class VariantByteObject //: public Object
{
public:
BYTE m_fields[];
};
class VariantCharObject //: public Object
{
public:
char m_characters[];
};
// Useful for accessing an object by index
class VariantObject //: public Object
{
public:
Oop m_fields[];
};
#if defined (VM)
#include "ote.h"
typedef TOTE<VariantByteObject> BytesOTE;
typedef TOTE<VariantObject> PointersOTE;
#endif
#endif // EOF