void
main(int argc, char **argv)
{
argc--;
argv++;
bioout = &bp;
bin = &bi;
Binit(bioout, 1, OWRITE);
Binit(bin, 0, OREAD);
tlb.on = 1;
tlb.tlbsize = 24;
if(argc)
file = argv[0];
argc--;
argv++;
text = open(file, OREAD);
if(text < 0)
fatal(1, "open text '%s'", file);
Bprint(bioout, "5i\n");
inithdr(text);
initstk(argc, argv);
cmd();
}
void
colon(char *addr, char *cp)
{
int argc;
char *argv[100];
char tbuf[512];
cp = nextc(cp);
switch(*cp) {
default:
Bprint(bioout, "?\n");
return;
case 'b':
breakpoint(addr, cp+1);
return;
case 'd':
delbpt(addr);
return;
/* These fall through to print the stopped address */
case 'r':
reset();
argc = buildargv(cp+1, argv, 100);
initstk(argc, argv);
count = 0;
atbpt = 0;
run();
break;
case 'c':
count = 0;
atbpt = 0;
run();
break;
case 's':
cp = nextc(cp+1);
count = 0;
if(*cp)
count = strtoul(cp, 0, 0);
if(count == 0)
count = 1;
atbpt = 0;
run();
break;
}
dot = reg.pc;
Bprint(bioout, "%s at #%lux ", atbpt ? "breakpoint" : "stopped", dot);
symoff(tbuf, sizeof(tbuf), dot, CTEXT);
Bprint(bioout, tbuf);
if(fmt == 'z')
printsource(dot);
Bprint(bioout, "\n");
}
int main (void)
{
int argc;
char **argv;
char **envp;
/* These variables are used by the WEL library */
ghInstance = GetModuleHandle(NULL);
eif_hInstance = GetModuleHandle(NULL);
eif_hPrevInstance = NULL;
eif_lpCmdLine = GetCommandLine();
eif_nCmdShow = SW_SHOW;
/* Initialization of the command line which is going to be passed to eiffel */
get_argcargv (&argc, &argv);
/* We get ANSI version of environment variables */
envp = (char **) GetEnvironmentStringsA();
eif_alloc_init();
#ifdef EIF_THREADS
eif_thr_init_root();
#endif
{
GTCX
struct ex_vect *exvect;
jmp_buf exenv;
egc_init_plug();
initsig();
initstk();
exvect = exset((char *) 0, 0, (char *) 0);
exvect->ex_jbuf = &exenv;
if (setjmp(exenv))
failure();
eif_retrieve_root (&argc, argv);
eif_rtinit(argc, argv, envp);
eif_init_root();
egc_rcdt_init();
emain(argc, argv);
free_argv (&argv);
reclaim();
}
FreeEnvironmentStringsA ((LPSTR) envp);
exit(0);
return 0;
}
void
main(int argc, char **argv)
{
int pid, i;
argc--;
argv++;
bioout = &bp;
bin = &bi;
Binit(bioout, 1, OWRITE);
Binit(bin, 0, OREAD);
if(argc) {
pid = atoi(argv[0]);
if(pid != 0) {
procinit(pid);
cmd();
}
file = argv[0];
}
argc--;
argv++;
text = open(file, OREAD);
if(text < 0)
fatal(1, "open text '%s'", file);
Bprint(bioout, "qi\n");
inithdr(text);
initstk(argc, argv);
for(i=0; i<32; i++)
bits[i] = 1L << (31-i);
fpreginit();
cmd();
}
