X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Ftrymap.c;h=f55f167b938eb4c7fcdc30b3ec1ba95928f96018;hb=37d3828773e2f847bb1ed7522b0af4fb8e736fc8;hp=013daf7f86f1d3c08be2c516775a726c7e32c816;hpb=35e306eeebc40ce947247e3df47a63f47d01734d;p=sbcl.git diff --git a/src/runtime/trymap.c b/src/runtime/trymap.c index 013daf7..f55f167 100644 --- a/src/runtime/trymap.c +++ b/src/runtime/trymap.c @@ -24,8 +24,8 @@ hexparse(char *s) { long result; if (1 != sscanf(s, "%lx", &result)) { - fprintf(stderr, "can't parse \"%s\" as hexadecimal integer\n", s); - exit(1); + fprintf(stderr, "can't parse \"%s\" as hexadecimal integer\n", s); + exit(1); } return result; } @@ -42,17 +42,17 @@ main(int argc, char *argv[]) * sanity check in make-target-2.sh before we try to execute sbcl * itself. */ if (argc != 3) { - fprintf(stderr, "usage: %s $addr $size\n", argv[0]); - exit(1); + fprintf(stderr, "usage: %s $addr $size\n", argv[0]); + exit(1); } requested_addr = (char*)hexparse(argv[1]); addr = mmap(requested_addr, - hexparse(argv[2]), - 0x7, - MAP_PRIVATE | MAP_ANON | MAP_FIXED, - -1, - 0); + hexparse(argv[2]), + 0x7, + MAP_PRIVATE | MAP_ANON | MAP_FIXED, + -1, + 0); /* FIXME: It would be nice to make this a stronger test. E.g. * besides just trying to mmap() the area, we could check that the @@ -61,8 +61,8 @@ main(int argc, char *argv[]) * (At least on OpenBSD, "A successful mmap deletes any previous * mapping in the allocated address range.") */ if (addr != requested_addr) { - perror("mmap"); + perror("mmap"); } - + exit(0); }