Mercurial > hg > xemacs-beta
annotate src/unexnt.c @ 5353:38e24b8be4ea
Improve the lexical scoping in #'block, #'return-from.
lisp/ChangeLog addition:
2011-02-07 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el:
* bytecomp.el (byte-compile-initial-macro-environment):
Shadow `block', `return-from' here, we implement them differently
when byte-compiling.
* bytecomp.el (byte-compile-active-blocks): New.
* bytecomp.el (byte-compile-block-1): New.
* bytecomp.el (byte-compile-return-from-1): New.
* bytecomp.el (return-from-1): New.
* bytecomp.el (block-1): New.
These are two aliases that exist to have their own associated
byte-compile functions, which functions implement `block' and
`return-from'.
* cl-extra.el (cl-macroexpand-all):
Fix a bug here when macros in the environment have been compiled.
* cl-macs.el (block):
* cl-macs.el (return):
* cl-macs.el (return-from):
Be more careful about lexical scope in these macros.
* cl.el:
* cl.el ('cl-block-wrapper): Removed.
* cl.el ('cl-block-throw): Removed.
These aren't needed in code generated by this XEmacs. They
shouldn't be needed in code generated by XEmacs 21.4, but if it
turns out the packages do need them, we can put them back.
2011-01-30 Mike Sperber <mike@xemacs.org>
* font-lock.el (font-lock-fontify-pending-extents): Don't fail if
`font-lock-mode' is unset, which can happen in the middle of
`revert-buffer'.
2011-01-23 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (delete):
* cl-macs.el (delq):
* cl-macs.el (remove):
* cl-macs.el (remq):
Don't use the compiler macro if these functions were given the
wrong number of arguments, as happens in lisp-tests.el.
* cl-seq.el (remove, remq): Removed.
I added these to subr.el, and forgot to remove them from here.
2011-01-22 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-setq, byte-compile-set):
Remove kludge allowing keywords' values to be set, all the code
that does that is gone.
* cl-compat.el (elt-satisfies-test-p):
* faces.el (set-face-parent):
* faces.el (face-doc-string):
* gtk-font-menu.el:
* gtk-font-menu.el (gtk-reset-device-font-menus):
* msw-font-menu.el:
* msw-font-menu.el (mswindows-reset-device-font-menus):
* package-get.el (package-get-installedp):
* select.el (select-convert-from-image-data):
* sound.el:
* sound.el (load-sound-file):
* x-font-menu.el (x-reset-device-font-menus-core):
Don't quote keywords, they're self-quoting, and the
win from backward-compatibility is sufficiently small now that the
style problem overrides it.
2011-01-22 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (block, return-from): Require that NAME be a symbol
in these macros, as always documented in the #'block docstring and
as required by Common Lisp.
* descr-text.el (unidata-initialize-unihan-database):
Correct the use of non-symbols in #'block and #'return-from in
this function.
2011-01-15 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (concatenate): Accept more complicated TYPEs in this
function, handing the sequences over to #'coerce if we don't
understand them here.
* cl-macs.el (inline): Don't proclaim #'concatenate as inline, its
compiler macro is more useful than doing that.
2011-01-11 Aidan Kehoe <kehoea@parhasard.net>
* subr.el (delete, delq, remove, remq): Move #'remove, #'remq
here, they don't belong in cl-seq.el; move #'delete, #'delq here
from fns.c, implement them in terms of #'delete*, allowing support
for sequences generally.
* update-elc.el (do-autoload-commands): Use #'delete*, not #'delq
here, now the latter's no longer dumped.
* cl-macs.el (delete, delq): Add compiler macros transforming
#'delete and #'delq to #'delete* calls.
2011-01-10 Aidan Kehoe <kehoea@parhasard.net>
* dialog.el (make-dialog-box): Correct a misplaced parenthesis
here, thank you Mats Lidell in 87zkr9gqrh.fsf@mail.contactor.se !
2011-01-02 Aidan Kehoe <kehoea@parhasard.net>
* dialog.el (make-dialog-box):
* list-mode.el (display-completion-list):
These functions used to use cl-parsing-keywords; change them to
use defun* instead, fixing the build. (Not sure what led to me
not including this change in d1b17a33450b!)
2011-01-02 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (define-star-compiler-macros):
Make sure the form has ITEM and LIST specified before attempting
to change to calls with explicit tests; necessary for some tests
in lisp-tests.el to compile correctly.
(stable-union, stable-intersection): Add compiler macros for these
functions, in the same way we do for most of the other functions
in cl-seq.el.
2011-01-01 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (dolist, dotimes, do-symbols, macrolet)
(symbol-macrolet):
Define these macros with defmacro* instead of parsing the argument
list by hand, for the sake of style and readability; use backquote
where appropriate, instead of calling #'list and and friends, for
the same reason.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* x-misc.el (device-x-display):
Provide this function, documented in the Lispref for years, but
not existing previously. Thank you Julian Bradfield, thank you
Jeff Mincy.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* cl-seq.el:
Move the heavy lifting from this file to C. Dump the
cl-parsing-keywords macro, but don't use defun* for the functions
we define that do take keywords, dynamic scope lossage makes that
not practical.
* subr.el (sort, fillarray): Move these aliases here.
(map-plist): #'nsublis is now built-in, but at this point #'eql
isn't necessarily available as a test; use #'eq.
* obsolete.el (cl-delete-duplicates): Make this available for old
compiler macros and old code.
(memql): Document that this is equivalent to #'member*, and worse.
* cl.el (adjoin, subst): Removed. These are in C.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (assoc-ignore-case): Remove a duplicate definition of
this function (it's already in subr.el).
* iso8859-1.el (char-width):
On non-Mule, make this function equivalent to that produced by
(constantly 1), but preserve its docstring.
* subr.el (subst-char-in-string): Define this in terms of
#'substitute, #'nsubstitute.
(string-width): Define this using #'reduce and #'char-width.
(char-width): Give this a simpler definition, it makes far more
sense to check for mule at load time and redefine, as we do in
iso8859-1.el.
(store-substring): Implement this in terms of #'replace, now
#'replace is cheap.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* update-elc.el (lisp-files-needed-for-byte-compilation)
(lisp-files-needing-early-byte-compilation):
cl-macs belongs in the former, not the latter, it is as
fundamental as bytecomp.el.
2010-12-30 Aidan Kehoe <kehoea@parhasard.net>
* cl.el:
Provde the Common Lisp program-error, type-error as error
symbols. This doesn't nearly go far enough for anyone using the
Common Lisp errors.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (delete-duplicates):
If the form has an incorrect number of arguments, don't attempt a
compiler macroexpansion.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (cl-safe-expr-p):
Forms that start with the symbol lambda are also safe.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (= < > <= >=):
For these functions' compiler macros, the optimisation is safe
even if the first and the last arguments have side effects, since
they're only used the once.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (inline-side-effect-free-compiler-macros):
Unroll a loop here at macro-expansion time, so these compiler
macros are compiled. Use #'eql instead of #'eq in a couple of
places for better style.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (notany, notevery): Avoid some dynamic scope
stupidity with local variable names in these functions, when they
weren't prefixed with cl-; go into some more detail in the doc
strings.
2010-12-29 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (side-effect-free-fns): #'remove, #'remq are
free of side-effects.
(side-effect-and-error-free-fns):
Drop dot, dot-marker from the list.
2010-11-17 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (coerce):
In the argument list, name the first argument OBJECT, not X; the
former name was always used in the doc string and is clearer.
Handle vector type specifications which include the length of the
target sequence, error if there's a mismatch.
* cl-macs.el (cl-make-type-test): Handle type specifications
starting with the symbol 'eql.
2010-11-14 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (eql): Don't remove the byte-compile property of this
symbol. That was necessary to override a bug in bytecomp.el where
#'eql was confused with #'eq, which bug we no longer have.
If neither expression is constant, don't attempt to handle the
expression in this compiler macro, leave it to byte-compile-eql,
which produces better code anyway.
* bytecomp.el (eq): #'eql is not the function associated with the
byte-eq byte code.
(byte-compile-eql): Add an explicit compile method for this
function, for cases where the cl-macs compiler macro hasn't
reduced it to #'eq or #'equal.
2010-10-25 Aidan Kehoe <kehoea@parhasard.net>
Add compiler macros and compilation sanity-checking for various
functions that take keywords.
* byte-optimize.el (side-effect-free-fns): #'symbol-value is
side-effect free and not error free.
* bytecomp.el (byte-compile-normal-call): Check keyword argument
lists for sanity; store information about the positions where
keyword arguments start using the new byte-compile-keyword-start
property.
* cl-macs.el (cl-const-expr-val): Take a new optional argument,
cl-not-constant, defaulting to nil, in this function; return it if
the expression is not constant.
(cl-non-fixnum-number-p): Make this into a separate function, we
want to pass it to #'every.
(eql): Use it.
(define-star-compiler-macros): Use the same code to generate the
member*, assoc* and rassoc* compiler macros; special-case some
code in #'add-to-list in subr.el.
(remove, remq): Add compiler macros for these two functions, in
preparation for #'remove being in C.
(define-foo-if-compiler-macros): Transform (remove-if-not ...) calls to
(remove ... :if-not) at compile time, which will be a real win
once the latter is in C.
(define-substitute-if-compiler-macros)
(define-subst-if-compiler-macros): Similarly for these functions.
(delete-duplicates): Change this compiler macro to use
#'plists-equal; if we don't have information about the type of
SEQUENCE at compile time, don't bother attempting to inline the
call, the function will be in C soon enough.
(equalp): Remove an old commented-out compiler macro for this, if
we want to see it it's in version control.
(subst-char-in-string): Transform this to a call to nsubstitute or
nsubstitute, if that is appropriate.
* cl.el (ldiff): Don't call setf here, this makes for a load-time
dependency problem in cl-macs.el
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* term/vt100.el:
Refer to XEmacs, not GNU Emacs, in permissions.
* term/bg-mouse.el:
* term/sup-mouse.el:
Put copyright notice in canonical "Copyright DATE AUTHOR" form.
Refer to XEmacs, not GNU Emacs, in permissions.
* site-load.el:
Add permission boilerplate.
* mule/canna-leim.el:
* alist.el:
Refer to XEmacs, not APEL/this program, in permissions.
* mule/canna-leim.el:
Remove my copyright, I've assigned it to the FSF.
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* gtk.el:
* gtk-widget-accessors.el:
* gtk-package.el:
* gtk-marshal.el:
* gtk-compose.el:
* gnome.el:
Add copyright notice based on internal evidence.
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* easymenu.el: Add reference to COPYING to permission notice.
* gutter.el:
* gutter-items.el:
* menubar-items.el:
Fix typo "Xmacs" in permissions notice.
2010-06-14 Stephen J. Turnbull <stephen@xemacs.org>
* auto-save.el:
* font.el:
* fontconfig.el:
* mule/kinsoku.el:
Add "part of XEmacs" text to permission notice.
2010-10-14 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (side-effect-free-fns):
* cl-macs.el (remf, getf):
* cl-extra.el (tailp, cl-set-getf, cl-do-remf):
* cl.el (ldiff, endp):
Tighten up Common Lisp compatibility for #'ldiff, #'endp, #'tailp;
add circularity checking for the first two.
#'cl-set-getf and #'cl-do-remf were Lisp implementations of
#'plist-put and #'plist-remprop; change the names to aliases,
changes the macros that use them to using #'plist-put and
#'plist-remprop directly.
2010-10-12 Aidan Kehoe <kehoea@parhasard.net>
* abbrev.el (fundamental-mode-abbrev-table, global-abbrev-table):
Create both these abbrev tables using the usual
#'define-abbrev-table calls, rather than attempting to
special-case them.
* cl-extra.el: Force cl-macs to be loaded here, if cl-extra.el is
being loaded interpreted. Previously other, later files would
redundantly call (load "cl-macs") when interpreted, it's more
reasonable to do it here, once.
* cmdloop.el (read-quoted-char-radix): Use defcustom here, we
don't have any dump-order dependencies that would prevent that.
* custom.el (eval-when-compile): Don't load cl-macs when
interpreted or when byte-compiling, rely on cl-extra.el in the
former case and the appropriate entry in bytecomp-load-hook in the
latter. Get rid of custom-declare-variable-list, we have no
dump-time dependencies that would require it.
* faces.el (eval-when-compile): Don't load cl-macs when
interpreted or when byte-compiling.
* packages.el: Remove some inaccurate comments.
* post-gc.el (cleanup-simple-finalizers): Use #'delete-if-not
here, now the order of preloaded-file-list has been changed to
make it available.
* subr.el (custom-declare-variable-list): Remove. No need for it.
Also remove a stub define-abbrev-table from this file, given the
current order of preloaded-file-list there's no need for it.
2010-10-10 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-constp) Forms quoted with FUNCTION are
also constant.
(byte-compile-initial-macro-environment): In #'the, if FORM is
constant and does not match TYPE, warn at byte-compile time.
2010-10-10 Aidan Kehoe <kehoea@parhasard.net>
* backquote.el (bq-vector-contents, bq-list*): Remove; the former
is equivalent to (append VECTOR nil), the latter to (list* ...).
(bq-process-2): Use (append VECTOR nil) instead of using
#'bq-vector-contents to convert to a list.
(bq-process-1): Now we use list* instead of bq-list
* subr.el (list*): Moved from cl.el, since it is now required to
be available the first time a backquoted form is encountered.
* cl.el (list*): Move to subr.el.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* test-harness.el (Check-Message):
Add an omitted comma here, thank you the buildbot.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* hash-table.el (hash-table-key-list, hash-table-value-list)
(hash-table-key-value-alist, hash-table-key-value-plist):
Remove some useless #'nreverse calls in these files; our hash
tables have no order, it's not helpful to pretend they do.
* behavior.el (read-behavior):
Do the same in this file, in some code evidently copied from
hash-table.el.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* info.el (Info-insert-dir):
* format.el (format-deannotate-region):
* files.el (cd, save-buffers-kill-emacs):
Use #'some, #'every and related functions for applying boolean
operations to lists, instead of rolling our own ones that cons and
don't short-circuit.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-initial-macro-environment):
* cl-macs.el (the):
Rephrase the docstring, make its implementation when compiling
files a little nicer.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* descr-text.el (unidata-initialize-unicodedata-database)
(unidata-initialize-unihan-database, describe-char-unicode-data)
(describe-char-unicode-data):
Wrap calls to the database functions with (with-fboundp ...),
avoiding byte compile warnings on builds without support for the
database functions.
(describe-char): (reduce #'max ...), not (apply #'max ...), no
need to cons needlessly.
(describe-char): Remove a redundant lambda wrapping
#'extent-properties.
(describe-char-unicode-data): Call #'nsubst when replacing "" with
nil in the result of #'split-string, instead of consing inside
mapcar.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* x-faces.el (x-available-font-sizes):
* specifier.el (let-specifier):
* package-ui.el (pui-add-required-packages):
* msw-faces.el (mswindows-available-font-sizes):
* modeline.el (modeline-minor-mode-menu):
* minibuf.el (minibuf-directory-files):
Replace the O2N (delq nil (mapcar (lambda (W) (and X Y)) Z)) with
the ON (mapcan (lambda (W) (and X (list Y))) Z) in these files.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (= < > <= >=):
When these functions are handed more than two arguments, and those
arguments have no side effects, transform to a series of two
argument calls, avoiding funcall in the byte-compiled code.
* mule/mule-cmds.el (finish-set-language-environment):
Take advantage of this change in a function called 256 times at
startup.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-function-form, byte-compile-quote)
(byte-compile-quote-form):
Warn at compile time, and error at runtime, if a (quote ...) or a
(function ...) form attempts to quote more than one object.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (byte-optimize-apply): Transform (apply 'nconc
(mapcar ...)) to (mapcan ...); warn about use of the first idiom.
* update-elc.el (do-autoload-commands):
* packages.el (packages-find-package-library-path):
* frame.el (frame-list):
* extents.el (extent-descendants):
* etags.el (buffer-tag-table-files):
* dumped-lisp.el (preloaded-file-list):
* device.el (device-list):
* bytecomp-runtime.el (proclaim-inline, proclaim-notinline)
Use #'mapcan, not (apply #'nconc (mapcar ...) in all these files.
* bytecomp-runtime.el (eval-when-compile, eval-and-compile):
In passing, mention that these macros also evaluate the body when
interpreted.
tests/ChangeLog addition:
2011-02-07 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Test lexical scope for `block', `return-from'; add a
Known-Bug-Expect-Failure for a contorted example that fails when
byte-compiled.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 07 Feb 2011 12:01:24 +0000 |
| parents | 6f2158fa75ed |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 613 | 1 /* unexec for XEmacs on Windows NT. |
| 428 | 2 Copyright (C) 1994 Free Software Foundation, Inc. |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4854
diff
changeset
|
3 Copyright (C) 2002, 2010 Ben Wing. |
| 428 | 4 |
| 5 This file is part of XEmacs. | |
| 6 | |
| 7 XEmacs is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 9 Free Software Foundation; either version 2, or (at your option) any | |
| 10 later version. | |
| 11 | |
| 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with XEmacs; see the file COPYING. If not, write to the Free | |
| 19 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
| 20 02111-1307, USA. | |
| 21 | |
| 22 Geoff Voelker (voelker@cs.washington.edu) 8-12-94 */ | |
| 23 | |
| 24 /* Adapted for XEmacs by David Hobley <david@spook-le0.cia.com.au> */ | |
| 25 | |
| 814 | 26 /* This file has been Mule-ized, Ben Wing, 4-13-02. */ |
| 27 | |
| 428 | 28 /* The linkers that come with MSVC >= 4.0 merge .bss into .data and reorder |
| 29 * uninitialised data so that the .data section looks like: | |
| 30 * | |
| 31 * crt0 initialised data | |
| 32 * emacs initialised data | |
| 33 * <my_edata> | |
| 34 * library initialised data | |
| 35 * <start of bss part of .data> | |
| 36 * emacs static uninitialised data | |
| 37 * library static uninitialised data | |
| 38 * emacs global uninitialised data | |
| 39 * <my_ebss> | |
| 40 * library global uninitialised data | |
| 41 * | |
| 42 * This means that we can't use the normal my_ebss in lastfile.c trick to | |
| 43 * differentiate between unitialised data that belongs to emacs and | |
| 44 * uninitialised data that belongs to system libraries. This is bad because | |
| 45 * we do want to initialise the emacs data, but we don't want to initialise | |
| 46 * the system library data. | |
| 47 * | |
| 48 * To solve this problem using MSVC >= 5.0 we use a pragma directive to tell | |
| 49 * the compiler to put emacs's data (both initialised and uninitialised) in | |
| 50 * a separate section in the executable, and we only dump that section. This | |
| 51 * means that all files that define initialized data must include config.h | |
| 52 * to pick up the pragma. We don't try to make any part of that section | |
| 53 * read-only. | |
| 54 * | |
| 55 * This pragma directive isn't supported by the MSVC 4.x compiler. Instead, | |
| 56 * we dump crt0 initialised data and library static uninitialised data in | |
| 57 * addition to the emacs data. This is wrong, but we appear to be able to | |
| 58 * get away with it. A proper fix might involve the introduction of a static | |
| 59 * version of my_ebss in lastfile.c and a new firstfile.c file. jhar */ | |
| 60 | |
| 61 #include <config.h> | |
| 442 | 62 #include "lisp.h" |
| 63 | |
| 558 | 64 #include "sysfile.h" |
| 442 | 65 #include "syswindows.h" |
| 66 | |
| 428 | 67 /* From IMAGEHLP.H which is not installed by default by MSVC < 5 */ |
| 68 /* The IMAGEHLP.DLL library is not distributed by default with Windows95 */ | |
| 442 | 69 typedef PIMAGE_NT_HEADERS |
| 70 (__stdcall * pfnCheckSumMappedFile_t) (LPVOID BaseAddress, DWORD FileLength, | |
| 71 LPDWORD HeaderSum, LPDWORD CheckSum); | |
| 72 | |
| 428 | 73 |
| 74 #if 0 | |
| 75 extern BOOL ctrl_c_handler (unsigned long type); | |
| 76 #endif | |
| 77 | |
| 442 | 78 /* Sync with FSF Emacs 19.34.6 |
| 79 note: struct file_data is now defined in nt.h */ | |
| 428 | 80 |
| 81 enum { | |
| 82 HEAP_UNINITIALIZED = 1, | |
| 83 HEAP_UNLOADED, | |
| 84 HEAP_LOADED | |
| 85 }; | |
| 86 | |
| 87 /* Basically, our "initialized" flag. */ | |
| 88 int heap_state = HEAP_UNINITIALIZED; | |
| 89 | |
| 90 /* So we can find our heap in the file to recreate it. */ | |
| 91 unsigned long heap_index_in_executable = UNINIT_LONG; | |
| 92 | |
| 93 void get_section_info (file_data *p_file); | |
| 94 void copy_executable_and_dump_data_section (file_data *, file_data *); | |
| 95 void dump_bss_and_heap (file_data *p_infile, file_data *p_outfile); | |
| 96 | |
| 97 /* Cached info about the .data section in the executable. */ | |
| 98 PUCHAR data_start_va = UNINIT_PTR; | |
| 99 DWORD data_start_file = UNINIT_LONG; | |
| 100 DWORD data_size = UNINIT_LONG; | |
| 101 | |
| 102 /* Cached info about the .bss section in the executable. */ | |
| 103 PUCHAR bss_start = UNINIT_PTR; | |
| 104 DWORD bss_size = UNINIT_LONG; | |
| 105 | |
| 106 /* Startup code for running on NT. When we are running as the dumped | |
| 107 version, we need to bootstrap our heap and .bss section into our | |
| 108 address space before we can actually hand off control to the startup | |
| 109 code supplied by NT (primarily because that code relies upon malloc ()). */ | |
| 440 | 110 |
| 111 /* ********************** | |
| 1204 | 112 Hackers please remember, this _start() thingy is *not* called either |
| 113 when dumping portably, or when running from temacs! Do not put | |
| 440 | 114 significant XEmacs initialization here! |
| 115 ********************** */ | |
| 116 | |
| 1204 | 117 EXTERN_C void mainCRTStartup (void); |
| 118 | |
| 119 EXTERN_C int _start (void); | |
| 120 | |
| 121 int | |
| 428 | 122 _start (void) |
| 123 { | |
| 124 /* Cache system info, e.g., the NT page size. */ | |
| 125 cache_system_info (); | |
| 814 | 126 /* Set OS type, so that tchar stuff below works */ |
| 127 init_win32_very_early (); | |
| 428 | 128 |
| 129 /* If we're a dumped version of emacs then we need to recreate | |
| 130 our heap and play tricks with our .bss section. Do this before | |
| 131 start up. (WARNING: Do not put any code before this section | |
| 132 that relies upon malloc () and runs in the dumped version. It | |
| 133 won't work.) */ | |
| 134 if (heap_state == HEAP_UNLOADED) | |
| 135 { | |
| 4854 | 136 Extbyte executable_path[PATH_MAX_TCHAR]; |
| 428 | 137 |
| 814 | 138 /* Don't use mswindows_get_module_file_name() because it uses |
| 139 xmalloc() */ | |
| 2421 | 140 if (qxeGetModuleFileName (NULL, executable_path, _MAX_PATH) == 0) |
| 428 | 141 { |
| 142 exit (1); | |
| 143 } | |
| 144 | |
| 440 | 145 /* #### This is super-bogus. When I rename xemacs.exe, |
| 146 the renamed file still loads its heap from xemacs.exe --kkm */ | |
| 147 #if 0 | |
| 148 { | |
| 814 | 149 Extbyte *p; |
| 150 | |
| 440 | 151 /* To allow profiling, make sure executable_path names the .exe |
| 152 file, not the file created by the profiler */ | |
| 2421 | 153 p = qxetcsrchr (executable_path, '\\'); |
| 154 qxetcscpy (p + 1, XETEXT (PATH_PROGNAME ".exe")); | |
| 440 | 155 } |
| 156 #endif | |
| 428 | 157 |
| 158 recreate_heap (executable_path); | |
| 159 heap_state = HEAP_LOADED; | |
| 160 } | |
| 161 | |
| 440 | 162 /* #### This is bogus, too. _fmode is set to different values |
| 163 when we run `xemacs' and `temacs run-emacs'. The sooner we | |
| 164 hit and fix all the weirdities this causes us, the better --kkm */ | |
| 165 #if 0 | |
| 428 | 166 /* The default behavior is to treat files as binary and patch up |
| 442 | 167 text files appropriately. */ |
| 428 | 168 _fmode = O_BINARY; |
| 440 | 169 #endif |
| 428 | 170 |
| 171 #if 0 | |
| 172 /* This prevents ctrl-c's in shells running while we're suspended from | |
| 173 having us exit. */ | |
| 174 SetConsoleCtrlHandler ((PHANDLER_ROUTINE) ctrl_c_handler, TRUE); | |
| 175 #endif | |
| 176 | |
| 177 mainCRTStartup (); | |
| 1204 | 178 return 0; /* not reached? */ |
| 428 | 179 } |
| 180 | |
| 181 /* Dump out .data and .bss sections into a new executable. */ | |
| 442 | 182 int |
| 2286 | 183 unexec (Ibyte *new_name, Ibyte *old_name, unsigned int UNUSED (start_data), |
| 184 unsigned int UNUSED (start_bss), unsigned int UNUSED (entry_address)) | |
| 428 | 185 { |
| 186 file_data in_file, out_file; | |
| 867 | 187 Ibyte *out_filename = alloca_ibytes (qxestrlen (new_name) + 10); |
| 188 Ibyte *in_filename = alloca_ibytes (qxestrlen (old_name) + 10); | |
| 428 | 189 unsigned long size; |
| 867 | 190 Ibyte *ptr; |
| 442 | 191 HINSTANCE hImagehelp; |
| 428 | 192 |
| 193 /* Make sure that the input and output filenames have the | |
| 194 ".exe" extension...patch them up if they don't. */ | |
| 814 | 195 qxestrcpy (in_filename, old_name); |
| 196 ptr = in_filename + qxestrlen (in_filename) - 4; | |
| 2367 | 197 if (qxestrcmp_ascii (ptr, ".exe")) |
| 198 qxestrcat_ascii (in_filename, ".exe"); | |
| 428 | 199 |
| 814 | 200 qxestrcpy (out_filename, new_name); |
| 201 ptr = out_filename + qxestrlen (out_filename) - 4; | |
| 2367 | 202 if (qxestrcmp_ascii (ptr, ".exe")) |
| 203 qxestrcat_ascii (out_filename, ".exe"); | |
| 428 | 204 |
| 814 | 205 stdout_out ("Dumping from %s\n", in_filename); |
| 206 stdout_out (" to %s\n", out_filename); | |
| 428 | 207 |
| 208 /* We need to round off our heap to NT's allocation unit (64KB). */ | |
| 209 round_heap (get_allocation_unit ()); | |
| 210 | |
| 211 /* Open the undumped executable file. */ | |
| 212 if (!open_input_file (&in_file, in_filename)) | |
| 213 { | |
| 814 | 214 stdout_out ("Failed to open %s (%d)...bailing.\n", |
| 215 in_filename, GetLastError ()); | |
| 428 | 216 exit (1); |
| 217 } | |
| 218 | |
| 219 /* Get the interesting section info, like start and size of .bss... */ | |
| 220 get_section_info (&in_file); | |
| 221 | |
| 222 /* The size of the dumped executable is the size of the original | |
| 223 executable plus the size of the heap and the size of the .bss section. */ | |
| 224 heap_index_in_executable = (unsigned long) | |
| 2367 | 225 round_to_next ((Rawbyte *) in_file.size, get_allocation_unit ()); |
| 428 | 226 size = heap_index_in_executable + get_committed_heap_size () + bss_size; |
| 227 if (!open_output_file (&out_file, out_filename, size)) | |
| 228 { | |
| 814 | 229 stdout_out ("Failed to open %s (%d)...bailing.\n", |
| 230 out_filename, GetLastError ()); | |
| 428 | 231 exit (1); |
| 232 } | |
| 233 | |
| 234 /* Set the flag (before dumping). */ | |
| 235 heap_state = HEAP_UNLOADED; | |
| 236 | |
| 237 copy_executable_and_dump_data_section (&in_file, &out_file); | |
| 238 dump_bss_and_heap (&in_file, &out_file); | |
| 239 | |
| 240 /* Patch up header fields; profiler is picky about this. */ | |
| 812 | 241 hImagehelp = LoadLibraryA ("imagehlp.dll"); |
| 428 | 242 if (hImagehelp) |
| 243 { | |
| 244 PIMAGE_DOS_HEADER dos_header; | |
| 245 PIMAGE_NT_HEADERS nt_header; | |
| 442 | 246 |
| 428 | 247 DWORD headersum; |
| 248 DWORD checksum; | |
| 442 | 249 pfnCheckSumMappedFile_t pfnCheckSumMappedFile; |
| 428 | 250 |
| 251 dos_header = (PIMAGE_DOS_HEADER) out_file.file_base; | |
| 2367 | 252 nt_header = (PIMAGE_NT_HEADERS) ((Rawbyte *) dos_header + |
| 814 | 253 dos_header->e_lfanew); |
| 428 | 254 |
| 255 nt_header->OptionalHeader.CheckSum = 0; | |
| 442 | 256 #if 0 |
| 257 nt_header->FileHeader.TimeDateStamp = time (NULL); | |
| 258 dos_header->e_cp = size / 512; | |
| 259 nt_header->OptionalHeader.SizeOfImage = size; | |
| 260 #endif | |
| 428 | 261 |
| 442 | 262 pfnCheckSumMappedFile = |
| 263 (pfnCheckSumMappedFile_t) GetProcAddress (hImagehelp, | |
| 264 "CheckSumMappedFile"); | |
| 428 | 265 if (pfnCheckSumMappedFile) |
| 266 { | |
| 442 | 267 #if 0 |
| 268 nt_header->FileHeader.TimeDateStamp = time (NULL); | |
| 269 #endif | |
| 428 | 270 pfnCheckSumMappedFile (out_file.file_base, |
| 271 out_file.size, | |
| 272 &headersum, | |
| 273 &checksum); | |
| 274 nt_header->OptionalHeader.CheckSum = checksum; | |
| 275 } | |
| 276 FreeLibrary (hImagehelp); | |
| 277 } | |
| 278 | |
| 279 close_file_data (&in_file); | |
| 280 close_file_data (&out_file); | |
| 281 | |
| 442 | 282 return 0; |
| 428 | 283 } |
| 284 | |
| 285 /* Routines to manipulate NT executable file sections. */ | |
| 286 | |
| 287 #ifndef DUMP_SEPARATE_SECTION | |
| 288 static void | |
| 289 get_bss_info_from_map_file (file_data *p_infile, PUCHAR *p_bss_start, | |
| 290 DWORD *p_bss_size) | |
| 291 { | |
| 292 int n, start, len; | |
| 867 | 293 Ibyte *map_filename = alloca_ibytes (qxestrlen (p_infile->name) + 10); |
| 814 | 294 Extbyte buffer[256]; |
| 428 | 295 FILE *map; |
| 296 | |
| 297 /* Overwrite the .exe extension on the executable file name with | |
| 298 the .map extension. */ | |
| 814 | 299 qxestrcpy (map_filename, p_infile->name); |
| 300 n = qxestrlen (map_filename) - 3; | |
| 301 qxestrcpy (&map_filename[n], "map"); | |
| 428 | 302 |
| 814 | 303 map = qxe_fopen (map_filename, "r"); |
| 428 | 304 if (!map) |
| 305 { | |
| 814 | 306 stdout_out ("Failed to open map file %s, error %d...bailing out.\n", |
| 307 map_filename, GetLastError ()); | |
| 428 | 308 exit (-1); |
| 309 } | |
| 310 | |
| 311 while (fgets (buffer, sizeof (buffer), map)) | |
| 312 { | |
| 313 if (!(strstr (buffer, ".bss") && strstr (buffer, "DATA"))) | |
| 314 continue; | |
| 315 n = sscanf (buffer, " %*d:%x %x", &start, &len); | |
| 316 if (n != 2) | |
| 317 { | |
| 814 | 318 /* printf with external data, stdout_out with internal */ |
| 428 | 319 printf ("Failed to scan the .bss section line:\n%s", buffer); |
| 320 exit (-1); | |
| 321 } | |
| 322 break; | |
| 323 } | |
| 324 *p_bss_start = (PUCHAR) start; | |
| 325 *p_bss_size = (DWORD) len; | |
| 326 } | |
| 327 #endif | |
| 328 | |
| 329 /* Flip through the executable and cache the info necessary for dumping. */ | |
| 330 static void | |
| 331 get_section_info (file_data *p_infile) | |
| 332 { | |
| 333 PIMAGE_DOS_HEADER dos_header; | |
| 334 PIMAGE_NT_HEADERS nt_header; | |
| 335 PIMAGE_SECTION_HEADER section, data_section; | |
| 2367 | 336 Rawbyte *ptr; |
| 428 | 337 int i; |
| 338 | |
| 339 dos_header = (PIMAGE_DOS_HEADER) p_infile->file_base; | |
| 340 if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) | |
| 341 { | |
| 814 | 342 stdout_out ("Unknown EXE header in %s...bailing.\n", p_infile->name); |
| 428 | 343 exit (1); |
| 344 } | |
| 345 nt_header = (PIMAGE_NT_HEADERS) (((unsigned long) dos_header) + | |
| 346 dos_header->e_lfanew); | |
| 347 if (nt_header == NULL) | |
| 348 { | |
| 814 | 349 stdout_out ("Failed to find IMAGE_NT_HEADER in %s...bailing.\n", |
| 350 p_infile->name); | |
| 428 | 351 exit (1); |
| 352 } | |
| 353 | |
| 354 /* Check the NT header signature ... */ | |
| 355 if (nt_header->Signature != IMAGE_NT_SIGNATURE) | |
| 356 { | |
| 814 | 357 stdout_out ("Invalid IMAGE_NT_SIGNATURE 0x%x in %s...bailing.\n", |
| 358 nt_header->Signature, p_infile->name); | |
| 428 | 359 } |
| 360 | |
| 361 /* Flip through the sections for .data and .bss ... */ | |
| 362 section = (PIMAGE_SECTION_HEADER) IMAGE_FIRST_SECTION (nt_header); | |
| 363 for (i = 0; i < nt_header->FileHeader.NumberOfSections; i++) | |
| 364 { | |
| 365 #ifndef DUMP_SEPARATE_SECTION | |
| 2367 | 366 if (!qxestrcmp_ascii (section->Name, ".bss")) |
| 428 | 367 { |
| 368 extern int my_ebss; /* From lastfile.c */ | |
| 369 | |
| 2367 | 370 ptr = (Rawbyte *) nt_header->OptionalHeader.ImageBase + |
| 428 | 371 section->VirtualAddress; |
| 372 bss_start = ptr; | |
| 2367 | 373 bss_size = (Rawbyte*) &my_ebss - (Rawbyte*) bss_start; |
| 428 | 374 } |
| 375 | |
| 2367 | 376 if (!qxestrcmp_ascii (section->Name, ".data")) |
| 428 | 377 #else |
| 2367 | 378 if (!qxestrcmp_ascii (section->Name, "xdata")) |
| 428 | 379 #endif |
| 380 { | |
| 2367 | 381 extern Rawbyte my_edata[]; /* From lastfile.c */ |
| 428 | 382 |
| 383 /* The .data section. */ | |
| 384 data_section = section; | |
| 2367 | 385 ptr = (Rawbyte *) nt_header->OptionalHeader.ImageBase + |
| 428 | 386 section->VirtualAddress; |
| 387 data_start_va = ptr; | |
| 388 data_start_file = section->PointerToRawData; | |
| 389 | |
| 390 #ifndef DUMP_SEPARATE_SECTION | |
| 391 /* Write only the part of the section that contains emacs data. */ | |
| 392 data_size = my_edata - data_start_va; | |
| 393 #else | |
| 394 /* Write back the full section. */ | |
| 395 data_size = section->SizeOfRawData; | |
| 396 | |
| 397 /* This code doesn't know how to grow the raw size of a section. */ | |
| 398 if (section->SizeOfRawData < section->Misc.VirtualSize) | |
| 399 { | |
| 814 | 400 stdout_out ("The emacs data section is smaller than expected" |
| 401 "...bailing.\n"); | |
| 428 | 402 exit (1); |
| 403 } | |
| 404 #endif | |
| 405 } | |
| 406 section++; | |
| 407 } | |
| 408 | |
| 409 #ifndef DUMP_SEPARATE_SECTION | |
| 410 if (bss_start == UNINIT_PTR) | |
| 411 { | |
| 412 /* Starting with MSVC 4.0, the .bss section has been eliminated | |
| 413 and appended virtually to the end of the .data section. Our | |
| 414 only hint about where the .bss section starts in the address | |
| 415 comes from the SizeOfRawData field in the .data section | |
| 416 header. Unfortunately, this field is only approximate, as it | |
| 417 is a rounded number and is typically rounded just beyond the | |
| 418 start of the .bss section. To find the start and size of the | |
| 419 .bss section exactly, we have to peek into the map file. */ | |
| 420 extern int my_ebss; | |
| 421 | |
| 422 get_bss_info_from_map_file (p_infile, &ptr, &bss_size); | |
| 423 bss_start = ptr + nt_header->OptionalHeader.ImageBase | |
| 424 + data_section->VirtualAddress; | |
| 2367 | 425 bss_size = (Rawbyte *) &my_ebss - (Rawbyte *) bss_start; |
| 428 | 426 } |
| 427 #else | |
| 428 bss_size = 0; | |
| 429 #endif | |
| 430 } | |
| 431 | |
| 432 | |
| 433 /* The dump routines. */ | |
| 434 | |
| 435 #ifdef DEBUG_XEMACS | |
| 814 | 436 /* printf with external data, stdout_out with internal */ |
| 428 | 437 #define DUMP_MSG(x) printf x |
| 438 #else | |
| 439 #define DUMP_MSG(x) | |
| 440 #endif | |
| 441 | |
| 442 static void | |
| 443 copy_executable_and_dump_data_section (file_data *p_infile, | |
| 444 file_data *p_outfile) | |
| 445 { | |
| 2367 | 446 Rawbyte *data_file, *data_va; |
| 428 | 447 unsigned long size, index; |
| 448 | |
| 449 /* Get a pointer to where the raw data should go in the executable file. */ | |
| 2367 | 450 data_file = (Rawbyte *) p_outfile->file_base + data_start_file; |
| 428 | 451 |
| 452 /* Get a pointer to the raw data in our address space. */ | |
| 453 data_va = data_start_va; | |
| 454 | |
| 455 size = (DWORD) data_file - (DWORD) p_outfile->file_base; | |
| 456 DUMP_MSG (("Copying executable up to data section...\n")); | |
| 457 DUMP_MSG (("\t0x%08x Offset in input file.\n", 0)); | |
| 458 DUMP_MSG (("\t0x%08x Offset in output file.\n", 0)); | |
| 459 DUMP_MSG (("\t0x%08x Size in bytes.\n", size)); | |
| 460 memcpy (p_outfile->file_base, p_infile->file_base, size); | |
| 461 | |
| 462 size = data_size; | |
| 463 DUMP_MSG (("Dumping data section...\n")); | |
| 464 DUMP_MSG (("\t0x%08x Address in process.\n", data_va)); | |
| 465 DUMP_MSG (("\t0x%08x Offset in output file.\n", | |
| 2367 | 466 (Rawbyte *) data_file - |
| 467 (Rawbyte *) p_outfile->file_base)); | |
| 428 | 468 DUMP_MSG (("\t0x%08x Size in bytes.\n", size)); |
| 469 memcpy (data_file, data_va, size); | |
| 470 | |
| 471 index = (DWORD) data_file + size - (DWORD) p_outfile->file_base; | |
| 472 size = p_infile->size - index; | |
| 473 DUMP_MSG (("Copying rest of executable...\n")); | |
| 474 DUMP_MSG (("\t0x%08x Offset in input file.\n", index)); | |
| 475 DUMP_MSG (("\t0x%08x Offset in output file.\n", index)); | |
| 476 DUMP_MSG (("\t0x%08x Size in bytes.\n", size)); | |
| 2367 | 477 memcpy ((Rawbyte *) p_outfile->file_base + index, |
| 478 (Rawbyte *) p_infile->file_base + index, size); | |
| 428 | 479 } |
| 480 | |
| 481 static void | |
| 2286 | 482 dump_bss_and_heap (file_data *UNUSED (p_infile), file_data *p_outfile) |
| 428 | 483 { |
| 2367 | 484 Rawbyte *heap_data; |
| 814 | 485 unsigned long size, index; |
| 428 | 486 |
| 814 | 487 DUMP_MSG (("Dumping heap onto end of executable...\n")); |
| 428 | 488 |
| 814 | 489 index = heap_index_in_executable; |
| 490 size = get_committed_heap_size (); | |
| 491 heap_data = get_heap_start (); | |
| 428 | 492 |
| 814 | 493 DUMP_MSG (("\t0x%08x Heap start in process.\n", heap_data)); |
| 494 DUMP_MSG (("\t0x%08x Heap offset in executable.\n", index)); | |
| 495 DUMP_MSG (("\t0x%08x Heap size in bytes.\n", size)); | |
| 428 | 496 |
| 814 | 497 memcpy ((PUCHAR) p_outfile->file_base + index, heap_data, size); |
| 428 | 498 |
| 499 #ifndef DUMP_SEPARATE_SECTION | |
| 814 | 500 DUMP_MSG (("Dumping bss onto end of executable...\n")); |
| 428 | 501 |
| 814 | 502 index += size; |
| 503 size = bss_size; | |
| 428 | 504 |
| 814 | 505 DUMP_MSG (("\t0x%08x BSS start in process.\n", bss_start)); |
| 506 DUMP_MSG (("\t0x%08x BSS offset in executable.\n", index)); | |
| 507 DUMP_MSG (("\t0x%08x BSS size in bytes.\n", size)); | |
| 2367 | 508 memcpy ((Rawbyte *) p_outfile->file_base + index, bss_start, size); |
| 428 | 509 #endif |
| 510 } | |
| 511 | |
| 512 #undef DUMP_MSG | |
| 513 | |
| 514 /* Reload and remap routines. */ | |
| 515 | |
| 516 | |
| 517 /* Load the dumped .bss section into the .bss area of our address space. */ | |
| 518 /* Already done if the .bss was part of a separate emacs data section */ | |
| 519 void | |
| 814 | 520 read_in_bss (Extbyte *filename) |
| 428 | 521 { |
| 522 #ifndef DUMP_SEPARATE_SECTION | |
| 523 HANDLE file; | |
| 524 unsigned long index, n_read; | |
| 525 | |
| 814 | 526 file = qxeCreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, |
| 527 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4854
diff
changeset
|
528 assert (file != INVALID_HANDLE_VALUE); |
| 428 | 529 |
| 530 /* Seek to where the .bss section is tucked away after the heap... */ | |
| 531 index = heap_index_in_executable + get_committed_heap_size (); | |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4854
diff
changeset
|
532 if (SetFilePointer (file, index, NULL, FILE_BEGIN) == 0xFFFFFFFF) |
| 2500 | 533 ABORT (); |
| 428 | 534 |
| 535 /* Ok, read in the saved .bss section and initialize all | |
| 536 uninitialized variables. */ | |
| 537 if (!ReadFile (file, bss_start, bss_size, &n_read, NULL)) | |
| 2500 | 538 ABORT (); |
| 428 | 539 |
| 540 CloseHandle (file); | |
| 541 #endif | |
| 542 } | |
| 543 | |
| 544 /* Map the heap dumped into the executable file into our address space. */ | |
| 545 void | |
| 814 | 546 map_in_heap (Extbyte *filename) |
| 428 | 547 { |
| 548 HANDLE file; | |
| 549 HANDLE file_mapping; | |
| 550 void *file_base; | |
| 551 unsigned long size, upper_size, n_read; | |
| 552 | |
| 814 | 553 file = qxeCreateFile (filename, GENERIC_READ, FILE_SHARE_READ, NULL, |
| 554 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); | |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4854
diff
changeset
|
555 assert (file != INVALID_HANDLE_VALUE); |
| 428 | 556 |
| 557 size = GetFileSize (file, &upper_size); | |
| 814 | 558 file_mapping = qxeCreateFileMapping (file, NULL, PAGE_WRITECOPY, |
| 559 0, size, NULL); | |
|
5050
6f2158fa75ed
Fix quick-build, use asserts() in place of ABORT()
Ben Wing <ben@xemacs.org>
parents:
4854
diff
changeset
|
560 assert (file_mapping); |
| 428 | 561 |
| 562 size = get_committed_heap_size (); | |
| 563 file_base = MapViewOfFileEx (file_mapping, FILE_MAP_COPY, 0, | |
| 564 heap_index_in_executable, size, | |
| 565 get_heap_start ()); | |
| 566 if (file_base != 0) | |
| 567 { | |
| 568 return; | |
| 569 } | |
| 570 | |
| 571 /* If we don't succeed with the mapping, then copy from the | |
| 572 data into the heap. */ | |
| 573 | |
| 574 CloseHandle (file_mapping); | |
| 575 | |
| 576 if (VirtualAlloc (get_heap_start (), get_committed_heap_size (), | |
| 577 MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE) == NULL) | |
| 2500 | 578 ABORT (); |
| 428 | 579 |
| 580 /* Seek to the location of the heap data in the executable. */ | |
| 581 if (SetFilePointer (file, heap_index_in_executable, | |
| 582 NULL, FILE_BEGIN) == 0xFFFFFFFF) | |
| 2500 | 583 ABORT (); |
| 428 | 584 |
| 585 /* Read in the data. */ | |
| 586 if (!ReadFile (file, get_heap_start (), | |
| 587 get_committed_heap_size (), &n_read, NULL)) | |
| 2500 | 588 ABORT (); |
| 428 | 589 |
| 590 CloseHandle (file); | |
| 591 } |