mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-09 15:10:29 +02:00
Correct bogus git entry
This commit is contained in:
pcpa
parent
6e34a532ae
commit
2d3529ddb5
2 changed files with 123 additions and 228 deletions
228
check/ctramp
228
check/ctramp
|
|
@ -1,228 +0,0 @@
|
||||||
#! /bin/sh
|
|
||||||
|
|
||||||
# ctramp - temporary wrapper script for .libs/ctramp
|
|
||||||
# Generated by libtool (GNU libtool) 2.4.2
|
|
||||||
#
|
|
||||||
# The ctramp program cannot be directly executed until all the libtool
|
|
||||||
# libraries that it depends on are installed.
|
|
||||||
#
|
|
||||||
# This wrapper script should never be moved out of the build directory.
|
|
||||||
# If it is, it will not operate correctly.
|
|
||||||
|
|
||||||
# Sed substitution that helps us do robust quoting. It backslashifies
|
|
||||||
# metacharacters that are still active within double-quoted strings.
|
|
||||||
sed_quote_subst='s/\([`"$\\]\)/\\\1/g'
|
|
||||||
|
|
||||||
# Be Bourne compatible
|
|
||||||
if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then
|
|
||||||
emulate sh
|
|
||||||
NULLCMD=:
|
|
||||||
# Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which
|
|
||||||
# is contrary to our usage. Disable this feature.
|
|
||||||
alias -g '${1+"$@"}'='"$@"'
|
|
||||||
setopt NO_GLOB_SUBST
|
|
||||||
else
|
|
||||||
case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac
|
|
||||||
fi
|
|
||||||
BIN_SH=xpg4; export BIN_SH # for Tru64
|
|
||||||
DUALCASE=1; export DUALCASE # for MKS sh
|
|
||||||
|
|
||||||
# The HP-UX ksh and POSIX shell print the target directory to stdout
|
|
||||||
# if CDPATH is set.
|
|
||||||
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
|
|
||||||
|
|
||||||
relink_command="(cd /home/pcpa/gnu/lightning/check; { test -z \"\${LIBRARY_PATH+set}\" || unset LIBRARY_PATH || { LIBRARY_PATH=; export LIBRARY_PATH; }; }; { test -z \"\${COMPILER_PATH+set}\" || unset COMPILER_PATH || { COMPILER_PATH=; export COMPILER_PATH; }; }; { test -z \"\${GCC_EXEC_PREFIX+set}\" || unset GCC_EXEC_PREFIX || { GCC_EXEC_PREFIX=; export GCC_EXEC_PREFIX; }; }; { test -z \"\${LD_RUN_PATH+set}\" || unset LD_RUN_PATH || { LD_RUN_PATH=; export LD_RUN_PATH; }; }; { test -z \"\${LD_LIBRARY_PATH+set}\" || unset LD_LIBRARY_PATH || { LD_LIBRARY_PATH=; export LD_LIBRARY_PATH; }; }; PATH=/usr/lib64/ccache:/usr/local/bin:/usr/bin:/bin:/usr/games:/usr/local/sbin:/usr/sbin:/home/pcpa/bin; export PATH; gcc -I../include -D_GNU_SOURCE -O0 -g3 -o \$progdir/\$file ctramp.o ../lib/.libs/liblightning.so -lm -ldl -lopcodes -lz -lbfd -liberty -Wl,-rpath -Wl,/home/pcpa/gnu/lightning/lib/.libs)"
|
|
||||||
|
|
||||||
# This environment variable determines our operation mode.
|
|
||||||
if test "$libtool_install_magic" = "%%%MAGIC variable%%%"; then
|
|
||||||
# install mode needs the following variables:
|
|
||||||
generated_by_libtool_version='2.4.2'
|
|
||||||
notinst_deplibs=' ../lib/liblightning.la'
|
|
||||||
else
|
|
||||||
# When we are sourced in execute mode, $file and $ECHO are already set.
|
|
||||||
if test "$libtool_execute_magic" != "%%%MAGIC variable%%%"; then
|
|
||||||
file="$0"
|
|
||||||
|
|
||||||
# A function that is used when there is no print builtin or printf.
|
|
||||||
func_fallback_echo ()
|
|
||||||
{
|
|
||||||
eval 'cat <<_LTECHO_EOF
|
|
||||||
$1
|
|
||||||
_LTECHO_EOF'
|
|
||||||
}
|
|
||||||
ECHO="printf %s\\n"
|
|
||||||
fi
|
|
||||||
|
|
||||||
# Very basic option parsing. These options are (a) specific to
|
|
||||||
# the libtool wrapper, (b) are identical between the wrapper
|
|
||||||
# /script/ and the wrapper /executable/ which is used only on
|
|
||||||
# windows platforms, and (c) all begin with the string --lt-
|
|
||||||
# (application programs are unlikely to have options which match
|
|
||||||
# this pattern).
|
|
||||||
#
|
|
||||||
# There are only two supported options: --lt-debug and
|
|
||||||
# --lt-dump-script. There is, deliberately, no --lt-help.
|
|
||||||
#
|
|
||||||
# The first argument to this parsing function should be the
|
|
||||||
# script's ../libtool value, followed by no.
|
|
||||||
lt_option_debug=
|
|
||||||
func_parse_lt_options ()
|
|
||||||
{
|
|
||||||
lt_script_arg0=$0
|
|
||||||
shift
|
|
||||||
for lt_opt
|
|
||||||
do
|
|
||||||
case "$lt_opt" in
|
|
||||||
--lt-debug) lt_option_debug=1 ;;
|
|
||||||
--lt-dump-script)
|
|
||||||
lt_dump_D=`$ECHO "X$lt_script_arg0" | /usr/bin/sed -e 's/^X//' -e 's%/[^/]*$%%'`
|
|
||||||
test "X$lt_dump_D" = "X$lt_script_arg0" && lt_dump_D=.
|
|
||||||
lt_dump_F=`$ECHO "X$lt_script_arg0" | /usr/bin/sed -e 's/^X//' -e 's%^.*/%%'`
|
|
||||||
cat "$lt_dump_D/$lt_dump_F"
|
|
||||||
exit 0
|
|
||||||
;;
|
|
||||||
--lt-*)
|
|
||||||
$ECHO "Unrecognized --lt- option: '$lt_opt'" 1>&2
|
|
||||||
exit 1
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
|
|
||||||
# Print the debug banner immediately:
|
|
||||||
if test -n "$lt_option_debug"; then
|
|
||||||
echo "ctramp:ctramp:${LINENO}: libtool wrapper (GNU libtool) 2.4.2" 1>&2
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
# Used when --lt-debug. Prints its arguments to stdout
|
|
||||||
# (redirection is the responsibility of the caller)
|
|
||||||
func_lt_dump_args ()
|
|
||||||
{
|
|
||||||
lt_dump_args_N=1;
|
|
||||||
for lt_arg
|
|
||||||
do
|
|
||||||
$ECHO "ctramp:ctramp:${LINENO}: newargv[$lt_dump_args_N]: $lt_arg"
|
|
||||||
lt_dump_args_N=`expr $lt_dump_args_N + 1`
|
|
||||||
done
|
|
||||||
}
|
|
||||||
|
|
||||||
# Core function for launching the target application
|
|
||||||
func_exec_program_core ()
|
|
||||||
{
|
|
||||||
|
|
||||||
if test -n "$lt_option_debug"; then
|
|
||||||
$ECHO "ctramp:ctramp:${LINENO}: newargv[0]: $progdir/$program" 1>&2
|
|
||||||
func_lt_dump_args ${1+"$@"} 1>&2
|
|
||||||
fi
|
|
||||||
exec "$progdir/$program" ${1+"$@"}
|
|
||||||
|
|
||||||
$ECHO "$0: cannot exec $program $*" 1>&2
|
|
||||||
exit 1
|
|
||||||
}
|
|
||||||
|
|
||||||
# A function to encapsulate launching the target application
|
|
||||||
# Strips options in the --lt-* namespace from $@ and
|
|
||||||
# launches target application with the remaining arguments.
|
|
||||||
func_exec_program ()
|
|
||||||
{
|
|
||||||
case " $* " in
|
|
||||||
*\ --lt-*)
|
|
||||||
for lt_wr_arg
|
|
||||||
do
|
|
||||||
case $lt_wr_arg in
|
|
||||||
--lt-*) ;;
|
|
||||||
*) set x "$@" "$lt_wr_arg"; shift;;
|
|
||||||
esac
|
|
||||||
shift
|
|
||||||
done ;;
|
|
||||||
esac
|
|
||||||
func_exec_program_core ${1+"$@"}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Parse options
|
|
||||||
func_parse_lt_options "$0" ${1+"$@"}
|
|
||||||
|
|
||||||
# Find the directory that this script lives in.
|
|
||||||
thisdir=`$ECHO "$file" | /usr/bin/sed 's%/[^/]*$%%'`
|
|
||||||
test "x$thisdir" = "x$file" && thisdir=.
|
|
||||||
|
|
||||||
# Follow symbolic links until we get to the real thisdir.
|
|
||||||
file=`ls -ld "$file" | /usr/bin/sed -n 's/.*-> //p'`
|
|
||||||
while test -n "$file"; do
|
|
||||||
destdir=`$ECHO "$file" | /usr/bin/sed 's%/[^/]*$%%'`
|
|
||||||
|
|
||||||
# If there was a directory component, then change thisdir.
|
|
||||||
if test "x$destdir" != "x$file"; then
|
|
||||||
case "$destdir" in
|
|
||||||
[\\/]* | [A-Za-z]:[\\/]*) thisdir="$destdir" ;;
|
|
||||||
*) thisdir="$thisdir/$destdir" ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
|
|
||||||
file=`$ECHO "$file" | /usr/bin/sed 's%^.*/%%'`
|
|
||||||
file=`ls -ld "$thisdir/$file" | /usr/bin/sed -n 's/.*-> //p'`
|
|
||||||
done
|
|
||||||
|
|
||||||
# Usually 'no', except on cygwin/mingw when embedded into
|
|
||||||
# the cwrapper.
|
|
||||||
WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=no
|
|
||||||
if test "$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR" = "yes"; then
|
|
||||||
# special case for '.'
|
|
||||||
if test "$thisdir" = "."; then
|
|
||||||
thisdir=`pwd`
|
|
||||||
fi
|
|
||||||
# remove .libs from thisdir
|
|
||||||
case "$thisdir" in
|
|
||||||
*[\\/].libs ) thisdir=`$ECHO "$thisdir" | /usr/bin/sed 's%[\\/][^\\/]*$%%'` ;;
|
|
||||||
.libs ) thisdir=. ;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
|
|
||||||
# Try to get the absolute directory name.
|
|
||||||
absdir=`cd "$thisdir" && pwd`
|
|
||||||
test -n "$absdir" && thisdir="$absdir"
|
|
||||||
|
|
||||||
program=lt-'ctramp'
|
|
||||||
progdir="$thisdir/.libs"
|
|
||||||
|
|
||||||
if test ! -f "$progdir/$program" ||
|
|
||||||
{ file=`ls -1dt "$progdir/$program" "$progdir/../$program" 2>/dev/null | /usr/bin/sed 1q`; \
|
|
||||||
test "X$file" != "X$progdir/$program"; }; then
|
|
||||||
|
|
||||||
file="$$-$program"
|
|
||||||
|
|
||||||
if test ! -d "$progdir"; then
|
|
||||||
mkdir "$progdir"
|
|
||||||
else
|
|
||||||
rm -f "$progdir/$file"
|
|
||||||
fi
|
|
||||||
|
|
||||||
# relink executable if necessary
|
|
||||||
if test -n "$relink_command"; then
|
|
||||||
if relink_command_output=`eval $relink_command 2>&1`; then :
|
|
||||||
else
|
|
||||||
printf %s\n "$relink_command_output" >&2
|
|
||||||
rm -f "$progdir/$file"
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
|
|
||||||
mv -f "$progdir/$file" "$progdir/$program" 2>/dev/null ||
|
|
||||||
{ rm -f "$progdir/$program";
|
|
||||||
mv -f "$progdir/$file" "$progdir/$program"; }
|
|
||||||
rm -f "$progdir/$file"
|
|
||||||
fi
|
|
||||||
|
|
||||||
if test -f "$progdir/$program"; then
|
|
||||||
if test "$libtool_execute_magic" != "%%%MAGIC variable%%%"; then
|
|
||||||
# Run the actual program with our arguments.
|
|
||||||
func_exec_program ${1+"$@"}
|
|
||||||
fi
|
|
||||||
else
|
|
||||||
# The program doesn't exist.
|
|
||||||
$ECHO "$0: error: \`$progdir/$program' does not exist" 1>&2
|
|
||||||
$ECHO "This script is just a wrapper for $program." 1>&2
|
|
||||||
$ECHO "See the libtool documentation for more information." 1>&2
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
123
check/ctramp.c
Normal file
123
check/ctramp.c
Normal file
|
|
@ -0,0 +1,123 @@
|
||||||
|
#include <lightning.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
jit_state_t *_jit;
|
||||||
|
long top;
|
||||||
|
long stk[1024];
|
||||||
|
|
||||||
|
int
|
||||||
|
main(int argc, char *argv[])
|
||||||
|
{
|
||||||
|
void *address;
|
||||||
|
void (*call)(void*);
|
||||||
|
jit_state_t *frame_jit, *tramp_jit;
|
||||||
|
jit_node_t *arg, *done, *xfibs, *out, *ret1, *ret2;
|
||||||
|
|
||||||
|
init_jit(argv[0]);
|
||||||
|
_jit = frame_jit = jit_new_state();
|
||||||
|
jit_name("main");
|
||||||
|
jit_prolog();
|
||||||
|
jit_frame(64);
|
||||||
|
|
||||||
|
arg = jit_arg();
|
||||||
|
jit_getarg(JIT_R1, arg);
|
||||||
|
|
||||||
|
/* Initialize language stack */
|
||||||
|
jit_movi(JIT_R0, (jit_word_t)stk);
|
||||||
|
jit_sti(&top, JIT_R0);
|
||||||
|
|
||||||
|
/* return address */
|
||||||
|
done = jit_movi(JIT_R0, 0);
|
||||||
|
/* argument */
|
||||||
|
jit_movi(JIT_V0, 32);
|
||||||
|
/* jump to code */
|
||||||
|
jit_jmpr(JIT_R1);
|
||||||
|
jit_patch(done);
|
||||||
|
|
||||||
|
jit_prepare();
|
||||||
|
jit_pushargi((jit_word_t)"xfibs(%d) = %d\n");
|
||||||
|
jit_ellipsis();
|
||||||
|
jit_pushargi(32);
|
||||||
|
jit_pushargr(JIT_V0);
|
||||||
|
jit_finishi(printf);
|
||||||
|
jit_ret();
|
||||||
|
jit_epilog();
|
||||||
|
call = jit_emit();
|
||||||
|
jit_clear_state();
|
||||||
|
|
||||||
|
#define SIZE sizeof(jit_word_t)
|
||||||
|
_jit = tramp_jit = jit_new_state();
|
||||||
|
jit_name("xfibs");
|
||||||
|
xfibs = jit_label();
|
||||||
|
jit_prolog();
|
||||||
|
jit_tramp(64);
|
||||||
|
out = jit_blti(JIT_V0, 2);
|
||||||
|
jit_subi(JIT_V1, JIT_V0, 1); /* V1 = N-1 */
|
||||||
|
jit_subi(JIT_V2, JIT_V0, 2); /* V1 = N-2 */
|
||||||
|
|
||||||
|
/* save return address */
|
||||||
|
jit_ldi(JIT_R1, &top);
|
||||||
|
jit_stxi(SIZE * 0, JIT_R1, JIT_R0);
|
||||||
|
/* save operands */
|
||||||
|
jit_stxi(SIZE * 1, JIT_R1, JIT_V0);
|
||||||
|
jit_stxi(SIZE * 2, JIT_R1, JIT_V1);
|
||||||
|
jit_stxi(SIZE * 3, JIT_R1, JIT_V2);
|
||||||
|
/* adjust "language" stack */
|
||||||
|
jit_addi(JIT_R1, JIT_R1, SIZE * 4);
|
||||||
|
jit_sti(&top, JIT_R1);
|
||||||
|
|
||||||
|
/* return address */
|
||||||
|
ret1 = jit_movi(JIT_R0, 0);
|
||||||
|
/* argument */
|
||||||
|
jit_movr(JIT_V0, JIT_V1);
|
||||||
|
/* indirect goto */
|
||||||
|
jit_patch_at(jit_jmpi(), xfibs);
|
||||||
|
jit_patch(ret1);
|
||||||
|
jit_movr(JIT_V1, JIT_V0); /* V1 = rfibs(N-1) */
|
||||||
|
/* save V1 */
|
||||||
|
jit_ldi(JIT_R1, &top);
|
||||||
|
jit_stxi(-SIZE * 2, JIT_R1, JIT_V1);
|
||||||
|
|
||||||
|
/* reload V2 */
|
||||||
|
jit_ldxi(JIT_V2, JIT_R1, -SIZE * 1);
|
||||||
|
|
||||||
|
/* return address */
|
||||||
|
ret2 = jit_movi(JIT_R0, 0);
|
||||||
|
/* argument */
|
||||||
|
jit_movr(JIT_V0, JIT_V2);
|
||||||
|
/* indirect goto */
|
||||||
|
jit_patch_at(jit_jmpi(), xfibs);
|
||||||
|
jit_patch(ret2);
|
||||||
|
jit_movr(JIT_V2, JIT_V0); /* V2 = rfibs(N-2) */
|
||||||
|
|
||||||
|
/* reload return address */
|
||||||
|
jit_ldi(JIT_R1, &top);
|
||||||
|
jit_subi(JIT_R1, JIT_R1, SIZE * 4);
|
||||||
|
jit_ldxi(JIT_R0, JIT_R1, SIZE * 0);
|
||||||
|
/* reload operands */
|
||||||
|
jit_ldxi(JIT_V0, JIT_R1, SIZE * 1);
|
||||||
|
jit_ldxi(JIT_V1, JIT_R1, SIZE * 2);
|
||||||
|
/* V2 already loaded */
|
||||||
|
/* update "language" stack */
|
||||||
|
jit_sti(&top, JIT_R1);
|
||||||
|
|
||||||
|
jit_addi(JIT_V1, JIT_V1, 1);
|
||||||
|
jit_addr(JIT_V0, JIT_V1, JIT_V2);
|
||||||
|
jit_jmpr(JIT_R0);
|
||||||
|
|
||||||
|
jit_patch(out);
|
||||||
|
jit_movi(JIT_V0, 1);
|
||||||
|
jit_jmpr(JIT_R0);
|
||||||
|
jit_epilog();
|
||||||
|
|
||||||
|
address = jit_emit();
|
||||||
|
jit_clear_state();
|
||||||
|
|
||||||
|
(*call)(address);
|
||||||
|
|
||||||
|
jit_destroy_state();
|
||||||
|
|
||||||
|
_jit = frame_jit;
|
||||||
|
jit_destroy_state();
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
Loading…
Add table
Add a link
Reference in a new issue