diff options
Diffstat (limited to 'debian/patches/0004-bootshell-add-facility-to-load-embedded-scripts.patch')
| -rw-r--r-- | debian/patches/0004-bootshell-add-facility-to-load-embedded-scripts.patch | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/debian/patches/0004-bootshell-add-facility-to-load-embedded-scripts.patch b/debian/patches/0004-bootshell-add-facility-to-load-embedded-scripts.patch deleted file mode 100644 index 93840a0e..00000000 --- a/debian/patches/0004-bootshell-add-facility-to-load-embedded-scripts.patch +++ /dev/null @@ -1,45 +0,0 @@ -From 6e55b91fba8a84b5a337f02de7661c6399fa3c53 Mon Sep 17 00:00:00 2001 -From: Justus Winter <4winter@informatik.uni-hamburg.de> -Date: Sat, 24 Jan 2015 01:54:52 +0100 -Subject: [PATCH hurd 4/6] bootshell: add facility to load embedded scripts - -* bootshell/scheme.c (scheme_load_mem): New function. ---- - bootshell/scheme.c | 24 ++++++++++++++++++++++++ - 1 file changed, 24 insertions(+) - -diff --git a/bootshell/scheme.c b/bootshell/scheme.c -index 99f9106..94c2307 100644 ---- a/bootshell/scheme.c -+++ b/bootshell/scheme.c -@@ -5049,3 +5049,27 @@ Local variables: - c-file-style: "k&r" - End: - */ -+ -+/* Like scheme_load_string, but does not rely on a terminating zero. */ -+void -+scheme_load_mem (scheme *sc, const char *cmd_start, const char *cmd_end) -+{ -+ dump_stack_reset(sc); -+ sc->envir = sc->global_env; -+ sc->file_i=0; -+ sc->load_stack[0].kind=port_input|port_string; -+ /* This func respects const */ -+ sc->load_stack[0].rep.string.start=(char*) cmd_start; -+ sc->load_stack[0].rep.string.past_the_end=(char*) cmd_end; -+ sc->load_stack[0].rep.string.curr=(char*) cmd_start; -+ sc->loadport=mk_port(sc,sc->load_stack); -+ sc->retcode=0; -+ sc->interactive_repl=0; -+ sc->inport=sc->loadport; -+ sc->args = mk_integer(sc,sc->file_i); -+ Eval_Cycle(sc, OP_T0LVL); -+ typeflag(sc->loadport)=T_ATOM; -+ if(sc->retcode==0) { -+ sc->retcode=sc->nesting!=0; -+ } -+} --- -2.1.4 - |
