annotate src/w32heap.h @ 20743:ffa67db916b4

Remove setting up of describe-european-environment-map and setup-european-environment-map. Exclude them in args of calls to set-language-info-alist. Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist. Add "German" language env. (setup-8-bit-environment): Delete CODING-SYSTEM arg. (iso-latin-1): Make it compatible with MIME-charset "iso-8859-1" (compound-text): New coding system. `ctext' is now alias of it. (setup-german-environment): New function.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:48:25 +0000
parents 6b326be52f18
children f3fc92afc65b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* Heap management routines (including unexec) for GNU Emacs on Windows NT.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2 Copyright (C) 1994 Free Software Foundation, Inc.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
4 This file is part of GNU Emacs.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
7 it under the terms of the GNU General Public License as published by
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
9 any later version.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
14 GNU General Public License for more details.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
16 You should have received a copy of the GNU General Public License
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11944
diff changeset
19 Boston, MA 02111-1307, USA.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 Geoff Voelker (voelker@cs.washington.edu) 7-29-94
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 #ifndef NTHEAP_H_
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 #define NTHEAP_H_
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <windows.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 /*
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 * Heap related stuff.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 */
11944
89ccf3b3208d (get_data_region_base): Undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 9803
diff changeset
32 #define get_reserved_heap_size() reserved_heap_size
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 #define get_committed_heap_size() (get_data_end () - get_data_start ())
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #define get_heap_start() get_data_start ()
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 #define get_heap_end() get_data_end ()
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 #define get_page_size() sysinfo_cache.dwPageSize
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 #define get_allocation_unit() sysinfo_cache.dwAllocationGranularity
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 #define get_processor_type() sysinfo_cache.dwProcessorType
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
39 #define get_w32_major_version() w32_major_version
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
40 #define get_w32_minor_version() w32_minor_version
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 extern unsigned char *get_data_start();
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 extern unsigned char *get_data_end();
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 extern unsigned long data_region_size;
11944
89ccf3b3208d (get_data_region_base): Undefined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 9803
diff changeset
45 extern unsigned long reserved_heap_size;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 extern SYSTEM_INFO sysinfo_cache;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 extern BOOL need_to_recreate_heap;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
48 extern int w32_major_version;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
49 extern int w32_minor_version;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50
19709
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
51 enum {
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
52 OS_WIN95 = 1,
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
53 OS_NT
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
54 };
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
55
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
56 extern int os_subtype;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
57
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 /* Emulation of Unix sbrk(). */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 extern void *sbrk (unsigned long size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 /* Recreate the heap created during dumping. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 extern void recreate_heap (char *executable_path);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 /* Round the heap to this size. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 extern void round_heap (unsigned long size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 /* Load in the dumped .bss section. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 extern void read_in_bss (char *name);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 /* Map in the dumped heap. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 extern void map_in_heap (char *name);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 /* Cache system info, e.g., the NT page size. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 extern void cache_system_info (void);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 /* Round ADDRESS up to be aligned with ALIGN. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 extern unsigned char *round_to_next (unsigned char *address,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 unsigned long align);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
19709
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
80 /* ----------------------------------------------------------------- */
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
81 /* Useful routines for manipulating memory-mapped files. */
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
82
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
83 typedef struct file_data {
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
84 char *name;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
85 unsigned long size;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
86 HANDLE file;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
87 HANDLE file_mapping;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
88 unsigned char *file_base;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
89 } file_data;
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
90
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
91 #define OFFSET_TO_RVA(var,section) \
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
92 (section->VirtualAddress + ((DWORD)(var) - section->PointerToRawData))
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
93
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
94 #define RVA_TO_OFFSET(var,section) \
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
95 (section->PointerToRawData + ((DWORD)(var) - section->VirtualAddress))
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
96
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
97 #define RVA_TO_PTR(var,section,filedata) \
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
98 ((void *)(RVA_TO_OFFSET(var,section) + (filedata).file_base))
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
99
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
100 int open_input_file (file_data *p_file, char *name);
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
101 int open_output_file (file_data *p_file, char *name, unsigned long size);
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
102 void close_file_data (file_data *p_file);
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
103
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
104 unsigned long get_section_size (PIMAGE_SECTION_HEADER p_section);
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
105
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
106 /* Return pointer to section header for named section. */
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
107 IMAGE_SECTION_HEADER * find_section (char * name, IMAGE_NT_HEADERS * nt_header);
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
108
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
109 /* Return pointer to section header for section containing the given
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
110 relative virtual address. */
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
111 IMAGE_SECTION_HEADER * rva_to_section (DWORD rva, IMAGE_NT_HEADERS * nt_header);
6b326be52f18 Enumerate operating system types.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
112
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 #endif /* NTHEAP_H_ */