mirror of
https://github.com/UberGames/lilium-voyager.git
synced 2024-12-15 06:30:49 +00:00
1c66e30e7e
[The lcc source] overrides the libc memmove() with its own implementation, but that implementation fails to follow the specification. In particular, it returns NULL rather than memmove()'s first parameter. GCC now optimizes based on this aspect of the specification, so things go wrong at runtime. [Text & patch from http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56881#c8]
128 lines
2.5 KiB
C
128 lines
2.5 KiB
C
#include <stdio.h>
|
|
#include <stddef.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "cpp.h"
|
|
|
|
extern int lcc_getopt(int, char *const *, const char *);
|
|
extern char *optarg, rcsid[];
|
|
extern int optind;
|
|
int verbose;
|
|
int Mflag; /* only print active include files */
|
|
char *objname; /* "src.$O: " */
|
|
int Cplusplus = 1;
|
|
|
|
void
|
|
setup(int argc, char **argv)
|
|
{
|
|
int c, fd, i;
|
|
char *fp, *dp;
|
|
Tokenrow tr;
|
|
extern void setup_kwtab(void);
|
|
uchar *includeDirs[ NINCLUDE ] = { 0 };
|
|
int numIncludeDirs = 0;
|
|
|
|
setup_kwtab();
|
|
while ((c = lcc_getopt(argc, argv, "MNOVv+I:D:U:F:lg")) != -1)
|
|
switch (c) {
|
|
case 'N':
|
|
for (i=0; i<NINCLUDE; i++)
|
|
if (includelist[i].always==1)
|
|
includelist[i].deleted = 1;
|
|
break;
|
|
case 'I':
|
|
includeDirs[ numIncludeDirs++ ] = newstring( (uchar *)optarg, strlen( optarg ), 0 );
|
|
break;
|
|
case 'D':
|
|
case 'U':
|
|
setsource("<cmdarg>", -1, optarg);
|
|
maketokenrow(3, &tr);
|
|
gettokens(&tr, 1);
|
|
doadefine(&tr, c);
|
|
unsetsource();
|
|
break;
|
|
case 'M':
|
|
Mflag++;
|
|
break;
|
|
case 'v':
|
|
fprintf(stderr, "%s %s\n", argv[0], rcsid);
|
|
break;
|
|
case 'V':
|
|
verbose++;
|
|
break;
|
|
case '+':
|
|
Cplusplus++;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
dp = ".";
|
|
fp = "<stdin>";
|
|
fd = 0;
|
|
if (optind<argc) {
|
|
dp = basepath( argv[optind] );
|
|
fp = (char*)newstring((uchar*)argv[optind], strlen(argv[optind]), 0);
|
|
if ((fd = open(fp, 0)) <= 0)
|
|
error(FATAL, "Can't open input file %s", fp);
|
|
}
|
|
if (optind+1<argc) {
|
|
int fdo = creat(argv[optind+1], 0666);
|
|
if (fdo<0)
|
|
error(FATAL, "Can't open output file %s", argv[optind+1]);
|
|
dup2(fdo, 1);
|
|
}
|
|
if(Mflag)
|
|
setobjname(fp);
|
|
includelist[NINCLUDE-1].always = 0;
|
|
includelist[NINCLUDE-1].file = dp;
|
|
|
|
for( i = 0; i < numIncludeDirs; i++ )
|
|
appendDirToIncludeList( (char *)includeDirs[ i ] );
|
|
|
|
setsource(fp, fd, NULL);
|
|
}
|
|
|
|
|
|
char *basepath( char *fname )
|
|
{
|
|
char *dp = ".";
|
|
char *p;
|
|
if ((p = strrchr(fname, '/')) != NULL) {
|
|
int dlen = p - fname;
|
|
dp = (char*)newstring((uchar*)fname, dlen+1, 0);
|
|
dp[dlen] = '\0';
|
|
}
|
|
|
|
return dp;
|
|
}
|
|
|
|
/* memmove is defined here because some vendors don't provide it at
|
|
all and others do a terrible job (like calling malloc) */
|
|
// -- ouch, that hurts -- ln
|
|
#ifndef MACOS_X /* always use the system memmove() on Mac OS X. --ryan. */
|
|
#ifdef memmove
|
|
#undef memmove
|
|
#endif
|
|
void *
|
|
memmove(void *dp, const void *sp, size_t n)
|
|
{
|
|
unsigned char *cdp, *csp;
|
|
|
|
if (n<=0)
|
|
return dp;
|
|
cdp = dp;
|
|
csp = (unsigned char *)sp;
|
|
if (cdp < csp) {
|
|
do {
|
|
*cdp++ = *csp++;
|
|
} while (--n);
|
|
} else {
|
|
cdp += n;
|
|
csp += n;
|
|
do {
|
|
*--cdp = *--csp;
|
|
} while (--n);
|
|
}
|
|
return dp;
|
|
}
|
|
#endif
|