*** empty log message ***

2005-10-02 15:57:36 +00:00 · 2005-10-02 15:57:36 +00:00 · c85d0abc72
commit c85d0abc72
parent c7070af2cb
5 changed files with 6 additions and 222 deletions
--- a/ase/stx/makefile.lcc
+++ b/ase/stx/makefile.lcc
@ -7,7 +7,7 @@ OBJS = stx.obj memory.obj object.obj symbol.obj class.obj array.obj \
 OUT = xpstx.lib

 CC = lcc
-CFLAGS = -I../..  -A -ansic -libcdll 
+CFLAGS = -I../..  -A -ansic #-libcdll 
 LDFLAGS =
 LIBS = 

--- a/ase/test/stx/makefile.lcc
+++ b/ase/test/stx/makefile.lcc
@ -2,7 +2,8 @@ CC = lcc
 CFLAGS = -I../../.. -A -ansic -libcdll 
 #LDFLAGS = -L../../../xp/bas -L../../../xp/stx
 #LIBS = -lxpstx -lxpbas
-LDFLAGS = -subsystem console -dynamic -s
+#LDFLAGS = -subsystem console -dynamic -s
+LDFLAGS = -subsystem console -s
 LIBS = ..\..\..\xp\stx\xpstx.lib ..\..\..\xp\bas\xpbas.lib 

 all: stx parser
--- a/ase/test/stx/stx.tgt
+++ b/ase/test/stx/stx.tgt
@ -1,175 +0,0 @@
-40
-targetIdent
-0
-MProject
-1
-MComponent
-0
-2
-WString
-4
-NEXE
-3
-WString
-5
-nc2en
-1
-0
-1
-4
-MCommand
-0
-5
-MCommand
-0
-6
-MItem
-7
-stx.exe
-7
-WString
-4
-NEXE
-8
-WVList
-0
-9
-WVList
-0
-1
-1
-1
-0
-10
-WPickList
-5
-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
-37
-$(%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
-5
-stx.c
-26
-WString
-4
-COBJ
-27
-WVList
-0
-28
-WVList
-0
-11
-1
-1
-0
-29
-MItem
-5
-*.lib
-30
-WString
-3
-NIL
-31
-WVList
-0
-32
-WVList
-0
-1
-1
-1
-0
-33
-MItem
-19
-..\..\bas\xpbas.lib
-34
-WString
-3
-NIL
-35
-WVList
-0
-36
-WVList
-0
-29
-1
-1
-0
-37
-MItem
-19
-..\..\stx\xpstx.lib
-38
-WString
-3
-NIL
-39
-WVList
-0
-40
-WVList
-0
-29
-1
-1
-0
--- a/ase/test/stx/stx.wpj
+++ b/ase/test/stx/stx.wpj
@ -1,43 +0,0 @@
-40
-projectIdent
-0
-VpeMain
-1
-WRect
-1500
-440
-3770
-9200
-2
-MProject
-3
-MCommand
-0
-4
-MCommand
-0
-1
-5
-WFileName
-7
-stx.tgt
-6
-WVList
-1
-7
-VComponent
-8
-WRect
-0
-0
-3260
-4280
-0
-0
-9
-WFileName
-7
-stx.tgt
-0
-4
-7
--- a/ase/test/stx/test1.st
+++ b/ase/test/stx/test1.st
@ -1,9 +1,10 @@
 print: a1 and: a2
-	| t1 |
+	| t1 t2 |
 	<primitive: 3>
 	t1 := #abcdefg.
 	"a1 := 2341 arguments are not assignable"
-	t1 prim2: a2.
+	t2 := a2.
+	t1 prim2: t2.
 	super prim2: 999999.
 	self prim2: 999999.
 	^67891.