lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Brace try/except in main() for Watcom

This commit is contained in:
Lassi Kortela 2019-08-21 22:08:21 +03:00
parent 60ff06fb6d
commit c76379e6f5
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
c/flmain.c
View File

@ -42,20 +42,22 @@ static value_t argv_list(int argc, char *argv[])
int main(int argc, char *argv[])
{
fl_init(512 * 1024);
FL_TRY_EXTERN
{
if (fl_load_boot_image())
return 1;
FL_TRY_EXTERN
{
if (fl_load_boot_image())
return 1;
(void)fl_applyn(1, symbol_value(symbol("__start")),
argv_list(argc, argv));
}
FL_CATCH_EXTERN
{
ios_puts("fatal error:\n", ios_stderr);
fl_print(ios_stderr, fl_lasterror);
ios_putc('\n', ios_stderr);
return 1;
(void)fl_applyn(1, symbol_value(symbol("__start")),
argv_list(argc, argv));
}
FL_CATCH_EXTERN
{
ios_puts("fatal error:\n", ios_stderr);
fl_print(ios_stderr, fl_lasterror);
ios_putc('\n', ios_stderr);
return 1;
}
}
return 0;
}