Minor launcher fixes
parent
5279cd99bc
commit
0989004dd2
|
@ -6,6 +6,7 @@ should fix in 0.82:
|
|||
- when generating a 32-bit image on a 64-bit system, large numbers which should
|
||||
be bignums become fixnums
|
||||
- httpd fep
|
||||
- SBUF" " i/o bug
|
||||
- clicks sent twice
|
||||
- speed up ideas:
|
||||
- only do clipping for certain gadgets
|
||||
|
|
|
@ -64,6 +64,7 @@ int main(int argc, char** argv)
|
|||
CELL literal_size = 128;
|
||||
CELL args;
|
||||
CELL i;
|
||||
bool image_given = true;
|
||||
|
||||
early_init();
|
||||
|
||||
|
@ -88,7 +89,10 @@ int main(int argc, char** argv)
|
|||
}
|
||||
|
||||
if(image == NULL)
|
||||
{
|
||||
image_given = false;
|
||||
image = default_image_path();
|
||||
}
|
||||
|
||||
init_factor(image,
|
||||
ds_size * 1024,
|
||||
|
@ -100,7 +104,7 @@ int main(int argc, char** argv)
|
|||
literal_size * 1024);
|
||||
|
||||
args = F;
|
||||
while(--argc > 1)
|
||||
while(--argc > (image_given ? 1 : 0))
|
||||
{
|
||||
args = cons(tag_object(from_c_string(argv[argc])),args);
|
||||
}
|
||||
|
|
|
@ -42,7 +42,6 @@ void early_init(void)
|
|||
const char *default_image_path(void)
|
||||
{
|
||||
NSBundle *bundle = [NSBundle mainBundle];
|
||||
NSString *path = [bundle bundlePath];
|
||||
NSString *image = [path stringByAppendingString:@"/Contents/Resources/factor.image"];
|
||||
NSString *image = [[bundle resourcePath] stringByAppendingString:@"/factor.image"];
|
||||
return [image cString];
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue