hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2005-05-08 10:44:58 +00:00
parent 273adcb58d
commit 108d071ef0
4 changed files with 24 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ase/test/stx/makefile.in
View File

@ -3,7 +3,7 @@ OUTS = $(SRCS:.c=.x)
CC = @CC@
CFLAGS = @CFLAGS@ -I@abs_top_builddir@
LDFLAGS = @LDFLAGS@ -L@abs_top_builddir@/xp/bas -L@abs_top_builddir@/xp/lisp
LDFLAGS = @LDFLAGS@ -L@abs_top_builddir@/xp/bas -L@abs_top_builddir@/xp/stx
LIBS = @LIBS@ -lxpstx -lxpbas
all: $(OUTS)

10
ase/test/stx/stx.c
View File

@ -7,13 +7,15 @@ int xp_main ()
xp_stx_word_t i;
if (xp_stx_open (&stx, 10) == XP_NULL) {
xp_printf (XP_TEXT("cannot open memory\n"));
xp_printf (XP_TEXT("cannot open stx\n"));
return -1;
}
stx.nil = xp_stx_memory_alloc(&stx.memory, 0);
stx.true = xp_stx_memory_alloc(&stx.memory, 0);
stx.false = xp_stx_memory_alloc(&stx.memory, 0);
if (xp_stx_bootstrap(&stx) == -1) {
xp_stx_close (&stx);
xp_printf (XP_TEXT("cannot bootstrap\n"));
return -1;
}
xp_printf (XP_TEXT("stx.nil %d\n"), stx.nil);
xp_printf (XP_TEXT("stx.true %d\n"), stx.true);