-f from Nicos

This commit is contained in:
Vítor Santos Costa 2013-11-21 00:34:40 +00:00
parent f1f64bf25c
commit 90dd0229d7

View File

@ -248,17 +248,15 @@ YAP_parse_yap_arguments(int argc, char *argv[], YAP_init_args *iap)
argv++; argv++;
break; break;
case 'f': case 'f':
iap->FastBoot = TRUE;
if (argc > 1 && argv[1][0] != '-') { if (argc > 1 && argv[1][0] != '-') {
argc--; argc--;
argv++; argv++;
if (!strcmp(*argv,"none")) { if (strcmp(*argv,"none")) {
iap->FastBoot = TRUE;
} else {
iap->YapPrologRCFile = *argv; iap->YapPrologRCFile = *argv;
} }
break; break;
} }
iap->FastBoot = TRUE;
break; break;
#ifdef MYDDAS_MYSQL #ifdef MYDDAS_MYSQL
case 'm': case 'm':