Mercurial > emacs
view src/unexsol.c @ 58391:4252820dfd91
(calc-curve-nvars, calc-curve-varnames, calc-curve-model)
(calc-curve-coefnames): New variable.
(calc-curve-fit, calc-get-fit-variables): Replace variables nvars,
varnames, model and coefnames by declared variables.
(math-root-widen): New variable.
(math-search-root, math-find-root): Replace variable root-widen by
declared variable.
(var-DUMMY): Declare it.
(math-root-vars, math-min-vars): Move the declarations to earlier in
the file.
(math-brent-min): Make d a local variable.
(math-find-minimum): Replace non-existent variable.
(math-ninteg-romberg): Remove unnecessary variable.
(math-ninteg-temp): New variable.
(math-ninteg-romberg, math-ninteg-midpoint): Replace variable
integ-temp by declared variable.
(math-fit-first-var, math-fit-first-coef, math-fit-new-coefs): New variables.
(math-general-fit): Replace variables first-var, first-coef and
new-coefs by declared variables.
(calcFunc-fitvar): Replace variable first-var by declared variable.
(calcFunc-fitparam): Replace variable first-coef by declared variable.
(calcFunc-fitdummy): Replace variable new-coefs by declared variable.
(math-all-vars-vars, math-all-vars-found): New variables.
(math-all-vars-in, math-all-vars-rec): Replace variables vars and
found by declared variable math-all-vars-vars.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Sun, 21 Nov 2004 05:55:43 +0000 |
parents | 695cf19ef79e |
children | b7bf941f8049 375f2633d815 |
line wrap: on
line source
/* Trivial unexec for Solaris. */ #include <config.h> #include <stdlib.h> #include <dlfcn.h> #include "lisp.h" #include "buffer.h" #include "charset.h" #include "coding.h" int unexec (char *new_name, char *old_name, unsigned int data_start, unsigned int bss_start, unsigned int entry_address) { Lisp_Object data; Lisp_Object errstring; if (! dldump (0, new_name, RTLD_MEMORY)) return 0; data = Fcons (build_string (new_name), Qnil); synchronize_system_messages_locale (); errstring = code_convert_string_norecord (build_string (dlerror ()), Vlocale_coding_system, 0); Fsignal (Qfile_error, Fcons (build_string ("Cannot unexec"), Fcons (errstring, data))); } /* arch-tag: d8ff72b3-8198-4011-8ef5-011b12027f59 (do not change this comment) */