*** empty log message ***
This commit is contained in:
parent
95540943a4
commit
855f95d490
21
ase/stx/makefile.bcc
Normal file
21
ase/stx/makefile.bcc
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
SRCS = \
|
||||||
|
stx.c memory.c object.c symbol.c hash.c misc.c context.c
|
||||||
|
OBJS = $(SRCS:.c=.obj)
|
||||||
|
OUT = xpstx.lib
|
||||||
|
|
||||||
|
CC = bcc32
|
||||||
|
CFLAGS = -O2 -WM -w -w-inl -w-sig -w-spa -w-hid -RT- -I../..
|
||||||
|
|
||||||
|
all: $(OBJS)
|
||||||
|
tlib $(OUT) @&&!
|
||||||
|
+-$(**: = &^
|
||||||
|
+-)
|
||||||
|
!
|
||||||
|
|
||||||
|
clean:
|
||||||
|
del $(OBJS) $(OUT) *.obj
|
||||||
|
|
||||||
|
.SUFFIXES: .c .obj
|
||||||
|
.c.obj:
|
||||||
|
$(CC) $(CFLAGS) -c $<
|
||||||
|
|
@ -1,5 +1,5 @@
|
|||||||
/*
|
/*
|
||||||
* $Id: stx.c,v 1.17 2005-05-18 04:12:15 bacon Exp $
|
* $Id: stx.c,v 1.18 2005-05-18 16:05:34 bacon Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <xp/stx/stx.h>
|
#include <xp/stx/stx.h>
|
||||||
@ -53,7 +53,7 @@ void xp_stx_close (xp_stx_t* stx)
|
|||||||
|
|
||||||
int xp_stx_bootstrap (xp_stx_t* stx)
|
int xp_stx_bootstrap (xp_stx_t* stx)
|
||||||
{
|
{
|
||||||
xp_stx_word_t symbol_Smalltalk, symbol_nil, symbol_true, symbol_false;
|
xp_stx_word_t symbol_Smalltalk;
|
||||||
xp_stx_word_t class_Object, class_Class;
|
xp_stx_word_t class_Object, class_Class;
|
||||||
xp_stx_word_t tmp;
|
xp_stx_word_t tmp;
|
||||||
|
|
||||||
@ -71,9 +71,9 @@ int xp_stx_bootstrap (xp_stx_t* stx)
|
|||||||
symbol_Smalltalk, stx->smalltalk);
|
symbol_Smalltalk, stx->smalltalk);
|
||||||
|
|
||||||
/* more initialization for nil, true, false */
|
/* more initialization for nil, true, false */
|
||||||
symbol_nil = xp_stx_new_symbol (stx, XP_STX_TEXT("nil"));
|
xp_stx_new_symbol (stx, XP_STX_TEXT("nil"));
|
||||||
symbol_true = xp_stx_new_symbol (stx, XP_STX_TEXT("true"));
|
xp_stx_new_symbol (stx, XP_STX_TEXT("true"));
|
||||||
symbol_false = xp_stx_new_symbol (stx, XP_STX_TEXT("false"));
|
xp_stx_new_symbol (stx, XP_STX_TEXT("false"));
|
||||||
|
|
||||||
XP_STX_CLASS(stx,stx->nil) =
|
XP_STX_CLASS(stx,stx->nil) =
|
||||||
xp_stx_new_class (stx, XP_STX_TEXT("UndefinedObject"));
|
xp_stx_new_class (stx, XP_STX_TEXT("UndefinedObject"));
|
||||||
|
20
ase/test/stx/makefile.bcc
Normal file
20
ase/test/stx/makefile.bcc
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
SRCS = stx.c
|
||||||
|
OBJS = stx.obj
|
||||||
|
OUT = stx.exe
|
||||||
|
|
||||||
|
CC = bcc32
|
||||||
|
CFLAGS = -I..\..\..
|
||||||
|
LDFLAGS = -L..\..\..\xp\bas -L..\..\..\xp\stx
|
||||||
|
LIBS = import32.lib cw32mt.lib xpbas.lib xpstx.lib
|
||||||
|
STARTUP = c0x32w.obj
|
||||||
|
|
||||||
|
all: $(OBJS)
|
||||||
|
ilink32 $(LDFLAGS) $(STARTUP) $(OBJS),$(OUT),,$(LIBS),,
|
||||||
|
|
||||||
|
clean:
|
||||||
|
del $(OBJS) *.obj $(OUT)
|
||||||
|
|
||||||
|
.SUFFIXES: .c .obj
|
||||||
|
.c.obj:
|
||||||
|
$(CC) $(CFLAGS) -c $<
|
||||||
|
|
Loading…
Reference in New Issue
Block a user