*** empty log message ***

This commit is contained in:
hyung-hwan 2005-05-06 16:07:58 +00:00
parent 80b708c99a
commit 7998a3a150
4 changed files with 207 additions and 4 deletions

View File

@ -1,16 +1,17 @@
/* /*
* $Id: memory.c,v 1.1 2005-05-06 15:54:47 bacon Exp $ * $Id: memory.c,v 1.2 2005-05-06 16:07:58 bacon Exp $
*/ */
#include <xp/stx/memory.h> #include <xp/stx/memory.h>
#include <xp/bas/memory.h> #include <xp/bas/memory.h>
#include <xp/bas/assert.h>
xp_stx_memory_t* xp_stx_memory_open ( xp_stx_memory_t* xp_stx_memory_open (
xp_stx_memory_t* mem, xp_stx_word_t capacity) xp_stx_memory_t* mem, xp_stx_word_t capacity)
{ {
xp_assert (capacity > 0);
xp_stx_object_t** slots; xp_stx_object_t** slots;
xp_assert (capacity > 0);
if (mem == XP_NULL) { if (mem == XP_NULL) {
mem = (xp_stx_memory_t*)xp_malloc(xp_sizeof(xp_stx_memory_t)); mem = (xp_stx_memory_t*)xp_malloc(xp_sizeof(xp_stx_memory_t));
if (mem == XP_NULL) return XP_NULL; if (mem == XP_NULL) return XP_NULL;

View File

@ -1,5 +1,5 @@
/* /*
* $Id: memory.h,v 1.1 2005-05-06 15:54:47 bacon Exp $ * $Id: memory.h,v 1.2 2005-05-06 16:07:58 bacon Exp $
*/ */
#ifndef _XP_STX_MEMORY_H_ #ifndef _XP_STX_MEMORY_H_
@ -11,7 +11,7 @@
typedef struct xp_stx_memory_t xp_stx_memory_t; typedef struct xp_stx_memory_t xp_stx_memory_t;
typedef struct xp_stx_object_t xp_stx_object_t; typedef struct xp_stx_object_t xp_stx_object_t;
typedef xp_byte xp_stx_byte_t; typedef xp_byte_t xp_stx_byte_t;
typedef xp_size_t xp_stx_word_t; typedef xp_size_t xp_stx_word_t;
typedef xp_size_t xp_stx_size_t; typedef xp_size_t xp_stx_size_t;
typedef xp_size_t xp_stx_index_t; typedef xp_size_t xp_stx_index_t;
@ -40,6 +40,8 @@ struct xp_stx_memory_t
//xp_stx_word_t smalltalk; //xp_stx_word_t smalltalk;
//xp_stx_word_t classes[]; //xp_stx_word_t classes[];
xp_stx_word_t symbol_table; xp_stx_word_t symbol_table;
xp_bool_t __malloced;
}; };
#ifdef __cplusplus #ifdef __cplusplus

157
ase/stx/xpstx.tgt Normal file
View File

@ -0,0 +1,157 @@
40
targetIdent
0
MProject
1
MComponent
0
2
WString
3
LIB
3
WString
5
n_2sn
1
0
1
4
MCommand
0
5
MCommand
0
6
MItem
9
xpstx.lib
7
WString
3
LIB
8
WVList
0
9
WVList
0
-1
1
1
0
10
WPickList
4
11
MItem
3
*.c
12
WString
4
COBJ
13
WVList
3
14
MVState
15
WString
3
WCC
16
WString
25
n????Include directories:
1
17
WString
34
$(%watcom)\h;$(%watcom)\h\nt;..\..
0
18
MRState
19
WString
3
WCC
20
WString
35
??2??Pentium Register based calling
1
0
21
MRState
22
WString
3
WCC
23
WString
32
??2??Pentium Stack based calling
1
1
24
WVList
0
-1
1
1
0
25
MItem
8
memory.c
26
WString
4
COBJ
27
WVList
0
28
WVList
0
11
1
1
0
29
MItem
3
*.h
30
WString
3
NIL
31
WVList
0
32
WVList
0
-1
1
1
0
33
MItem
8
memory.h
34
WString
3
NIL
35
WVList
0
36
WVList
0
29
1
1
0

43
ase/stx/xpstx.wpj Normal file
View File

@ -0,0 +1,43 @@
40
projectIdent
0
VpeMain
1
WRect
4300
333
4330
9200
2
MProject
3
MCommand
0
4
MCommand
0
1
5
WFileName
9
xpstx.tgt
6
WVList
1
7
VComponent
8
WRect
0
0
3690
4280
0
0
9
WFileName
9
xpstx.tgt
0
0
7