Kestrel-3

Check-in [233d4785af]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove debugging code
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:233d4785afd341068566426e4d48495db97b06fceb3fa05a4cad36314be40dea
User & Date: kc5tja 2019-09-03 02:12:54
Context
2019-09-03
04:23
Support .word check-in: c0b13ae1bb user: kc5tja tags: trunk
02:12
Remove debugging code check-in: 233d4785af user: kc5tja tags: trunk
02:07
String expression support check-in: 88de4ec636 user: kc5tja tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to dev/src/bcpl/assemrv/test_parser.b.

189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
	                     IR_LIT, 'a', IR_DWORD,
	                     IR_LIT, 'b', IR_DWORD
	LET errlist = 0

	IF r DO RESULTIS r
	testid := "test_single_dword_string"

	writef("============*n")
	scb := findinoutput("RAM:")
	UNLESS NEQ(scb, 0, 0) DO GOTO unwind
	{
		LET outs = output()
		selectoutput(scb)
		writef(".dword 6, *"Abacab*"*n")
		selectoutput(outs)







<







189
190
191
192
193
194
195

196
197
198
199
200
201
202
	                     IR_LIT, 'a', IR_DWORD,
	                     IR_LIT, 'b', IR_DWORD
	LET errlist = 0

	IF r DO RESULTIS r
	testid := "test_single_dword_string"


	scb := findinoutput("RAM:")
	UNLESS NEQ(scb, 0, 0) DO GOTO unwind
	{
		LET outs = output()
		selectoutput(scb)
		writef(".dword 6, *"Abacab*"*n")
		selectoutput(outs)