tools.c (94290) | tools.c (167850) |
---|---|
1/******************************************************************* 2** t o o l s . c 3** Forth Inspired Command Language - programming tools 4** Author: John Sadler (john_sadler@alum.mit.edu) 5** Created: 20 June 2000 6** $Id: tools.c,v 1.11 2001/12/05 07:21:34 jsadler Exp $ 7*******************************************************************/ 8/* --- 40 unchanged lines hidden (view full) --- 49** colonParen doDoes createParen variableParen userParen constantParen 50** 51** Step and break debugger for Ficl 52** debug ( xt -- ) Start debugging an xt 53** Set a breakpoint 54** Specify breakpoint default action 55*/ 56 | 1/******************************************************************* 2** t o o l s . c 3** Forth Inspired Command Language - programming tools 4** Author: John Sadler (john_sadler@alum.mit.edu) 5** Created: 20 June 2000 6** $Id: tools.c,v 1.11 2001/12/05 07:21:34 jsadler Exp $ 7*******************************************************************/ 8/* --- 40 unchanged lines hidden (view full) --- 49** colonParen doDoes createParen variableParen userParen constantParen 50** 51** Step and break debugger for Ficl 52** debug ( xt -- ) Start debugging an xt 53** Set a breakpoint 54** Specify breakpoint default action 55*/ 56 |
57/* $FreeBSD: head/sys/boot/ficl/tools.c 94290 2002-04-09 17:45:28Z dcs $ */ | 57/* $FreeBSD: head/sys/boot/ficl/tools.c 167850 2007-03-23 22:26:01Z jkim $ */ |
58 59#ifdef TESTMAIN 60#include <stdlib.h> 61#include <stdio.h> /* sprintf */ 62#include <ctype.h> 63#else 64#include <stand.h> 65#endif --- 173 unchanged lines hidden (view full) --- 239 c = *++pc; 240 if (c.i > 0) 241 sprintf(cp, "if / while (branch %d)", pc+c.i-param0); 242 else 243 sprintf(cp, "until (branch %d)", pc+c.i-param0); 244 break; 245 case BRANCH: 246 c = *++pc; | 58 59#ifdef TESTMAIN 60#include <stdlib.h> 61#include <stdio.h> /* sprintf */ 62#include <ctype.h> 63#else 64#include <stand.h> 65#endif --- 173 unchanged lines hidden (view full) --- 239 c = *++pc; 240 if (c.i > 0) 241 sprintf(cp, "if / while (branch %d)", pc+c.i-param0); 242 else 243 sprintf(cp, "until (branch %d)", pc+c.i-param0); 244 break; 245 case BRANCH: 246 c = *++pc; |
247 if (c.i > 0) | 247 if (c.i == 0) 248 sprintf(cp, "repeat (branch %d)", pc+c.i-param0); 249 else if (c.i == 1) |
248 sprintf(cp, "else (branch %d)", pc+c.i-param0); 249 else | 250 sprintf(cp, "else (branch %d)", pc+c.i-param0); 251 else |
250 sprintf(cp, "repeat (branch %d)", pc+c.i-param0); | 252 sprintf(cp, "endof (branch %d)", pc+c.i-param0); |
251 break; 252 | 253 break; 254 |
255 case OF: 256 c = *++pc; 257 sprintf(cp, "of (branch %d)", pc+c.i-param0); 258 break; 259 |
|
253 case QDO: 254 c = *++pc; 255 sprintf(cp, "?do (leave %d)", (CELL *)c.p-param0); 256 break; 257 case DO: 258 c = *++pc; 259 sprintf(cp, "do (leave %d)", (CELL *)c.p-param0); 260 break; --- 647 unchanged lines hidden --- | 260 case QDO: 261 c = *++pc; 262 sprintf(cp, "?do (leave %d)", (CELL *)c.p-param0); 263 break; 264 case DO: 265 c = *++pc; 266 sprintf(cp, "do (leave %d)", (CELL *)c.p-param0); 267 break; --- 647 unchanged lines hidden --- |