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
|
- 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
|
||||||
|
|
|
@ -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);
|
||||||
}
|
}
|
||||||
|
|
|
@ -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];
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue