suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mark variables as used so they are not removed by LTO

Browse Source 
Fixes #2324
This commit is contained in:
Paulo Matos 2018-10-22 15:50:11 +02:00 committed by Matthew Flatt
parent 08c1ba619c
commit 071406d10d
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/src/start/config.inc
View File

@ -3,6 +3,13 @@
#pragma GCC diagnostic ignored "-Wwrite-strings" #pragma GCC diagnostic ignored "-Wwrite-strings"
#if defined(__GNUC__)
# define PRESERVE_IN_EXECUTABLE __attribute__((used))
#else
# define PRESERVE_IN_EXECUTABLE /* empty */
#endif
PRESERVE_IN_EXECUTABLE
char * volatile scheme_cmdline_exe_hack = (char *) char * volatile scheme_cmdline_exe_hack = (char *)
("[Replace me for EXE hack " ("[Replace me for EXE hack "
" ]"); " ]");
@ -14,6 +21,7 @@ char * volatile scheme_cmdline_exe_hack = (char *)
#else #else
# define GC_PRECISION_TYPE "c" # define GC_PRECISION_TYPE "c"
#endif #endif
PRESERVE_IN_EXECUTABLE
char * volatile scheme_binary_type_hack = "bINARy tYPe:" INITIAL_BIN_TYPE GC_PRECISION_TYPE; char * volatile scheme_binary_type_hack = "bINARy tYPe:" INITIAL_BIN_TYPE GC_PRECISION_TYPE;
/* The format of bINARy tYPe is e?[zr]i[3cs]. /* The format of bINARy tYPe is e?[zr]i[3cs].
e indicates a starter executable e indicates a starter executable
@ -29,6 +37,7 @@ char * volatile scheme_binary_type_hack = "bINARy tYPe:" INITIAL_BIN_TYPE GC_PRE
# endif # endif
#endif #endif
PRESERVE_IN_EXECUTABLE
char * volatile scheme_coldir = "coLLECTs dIRECTORy:" /* <- this tag stays, so we can find it again */ char * volatile scheme_coldir = "coLLECTs dIRECTORy:" /* <- this tag stays, so we can find it again */
INITIAL_COLLECTS_DIRECTORY INITIAL_COLLECTS_DIRECTORY
"\0\0" /* <- 1st nul terminates path, 2nd terminates path list */ "\0\0" /* <- 1st nul terminates path, 2nd terminates path list */
@ -59,6 +68,7 @@ static int _coldir_offset = 19; /* Skip permanent tag */
# endif # endif
#endif #endif
PRESERVE_IN_EXECUTABLE
char * volatile scheme_configdir = "coNFIg dIRECTORy:" /* <- this tag stays, so we can find it again */ char * volatile scheme_configdir = "coNFIg dIRECTORy:" /* <- this tag stays, so we can find it again */
INITIAL_CONFIG_DIRECTORY INITIAL_CONFIG_DIRECTORY
"\0" "\0"

10
racket/src/start/ustart.c
View File

@ -12,6 +12,12 @@
#include <errno.h> #include <errno.h>
#include <stdio.h> #include <stdio.h>
#if defined(__GNUC__)
# define PRESERVE_IN_EXECUTABLE __attribute__((used))
#else
# define PRESERVE_IN_EXECUTABLE /* empty */
#endif
/* The config string after : is replaced with ! followed by a sequence /* The config string after : is replaced with ! followed by a sequence
of little-endian 4-byte ints: of little-endian 4-byte ints:
start - offset into the binary start - offset into the binary
@ -33,14 +39,17 @@
adjusted. Using a seciton offset allows linking tools (such as adjusted. Using a seciton offset allows linking tools (such as
`strip') to move the data in the executable. `strip') to move the data in the executable.
*/ */
PRESERVE_IN_EXECUTABLE
char *config = "cOnFiG:[***************************"; char *config = "cOnFiG:[***************************";
PRESERVE_IN_EXECUTABLE
char *binary_type_hack = "bINARy tYPe:ezic"; char *binary_type_hack = "bINARy tYPe:ezic";
/* This path list is used instead of the one in the Racket/GRacket /* This path list is used instead of the one in the Racket/GRacket
binary. That way, the same Racket/GRacket binary can be shared binary. That way, the same Racket/GRacket binary can be shared
among embedding exectuables that have different collection among embedding exectuables that have different collection
paths. */ paths. */
PRESERVE_IN_EXECUTABLE
char *_coldir = "coLLECTs dIRECTORy:" /* <- this tag stays, so we can find it again */ char *_coldir = "coLLECTs dIRECTORy:" /* <- this tag stays, so we can find it again */
"../collects" "../collects"
"\0\0" /* <- 1st nul terminates path, 2nd terminates path list */ "\0\0" /* <- 1st nul terminates path, 2nd terminates path list */
@ -63,6 +72,7 @@ char *_coldir = "coLLECTs dIRECTORy:" /* <- this tag stays, so we can find it ag
"****************************************************************"; "****************************************************************";
static int _coldir_offset = 19; /* Skip permanent tag */ static int _coldir_offset = 19; /* Skip permanent tag */
PRESERVE_IN_EXECUTABLE
char * volatile _configdir = "coNFIg dIRECTORy:" /* <- this tag stays, so we can find it again */ char * volatile _configdir = "coNFIg dIRECTORy:" /* <- this tag stays, so we can find it again */
"../etc" "../etc"
"\0" "\0"