Minor launcher fixes

release
slava 2006-04-09 23:14:30 +00:00
parent 5279cd99bc
commit 0989004dd2
3 changed files with 7 additions and 3 deletions

View File

@ -6,6 +6,7 @@ should fix in 0.82:
- when generating a 32-bit image on a 64-bit system, large numbers which should - when generating a 32-bit image on a 64-bit system, large numbers which should
be bignums become fixnums be bignums become fixnums
- httpd fep - httpd fep
- SBUF" " i/o bug
- clicks sent twice - clicks sent twice
- speed up ideas: - speed up ideas:
- only do clipping for certain gadgets - only do clipping for certain gadgets

View File

@ -64,6 +64,7 @@ int main(int argc, char** argv)
CELL literal_size = 128; CELL literal_size = 128;
CELL args; CELL args;
CELL i; CELL i;
bool image_given = true;
early_init(); early_init();
@ -88,7 +89,10 @@ int main(int argc, char** argv)
} }
if(image == NULL) if(image == NULL)
{
image_given = false;
image = default_image_path(); image = default_image_path();
}
init_factor(image, init_factor(image,
ds_size * 1024, ds_size * 1024,
@ -100,7 +104,7 @@ int main(int argc, char** argv)
literal_size * 1024); literal_size * 1024);
args = F; args = F;
while(--argc > 1) while(--argc > (image_given ? 1 : 0))
{ {
args = cons(tag_object(from_c_string(argv[argc])),args); args = cons(tag_object(from_c_string(argv[argc])),args);
} }

View File

@ -42,7 +42,6 @@ void early_init(void)
const char *default_image_path(void) const char *default_image_path(void)
{ {
NSBundle *bundle = [NSBundle mainBundle]; NSBundle *bundle = [NSBundle mainBundle];
NSString *path = [bundle bundlePath]; NSString *image = [[bundle resourcePath] stringByAppendingString:@"/factor.image"];
NSString *image = [path stringByAppendingString:@"/Contents/Resources/factor.image"];
return [image cString]; return [image cString];
} }