Difference between revisions of "Source:NetHack 3.6.0/src/alloc.c"
Jump to navigation
Jump to search
Dizzylizzy (talk | contribs) m (Fix indentation) |
|||
Line 6: | Line 6: | ||
== Top of file == | == Top of file == | ||
− | <span id="line1">1. /* NetHack 3.6 alloc.c $NHDT-Date: 1446975460 2015/11/08 09:37:40 $ $NHDT-Branch: master $:$NHDT-Revision: 1.14 $ */</span> | + | <span id="line1">1. /* NetHack 3.6 alloc.c $NHDT-Date: 1446975460 2015/11/08 09:37:40 $ $NHDT-Branch: master $:$NHDT-Revision: 1.14 $ */</span> |
− | <span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span> | + | <span id="line2">2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span> |
− | <span id="line3">3. /* NetHack may be freely redistributed. See license for details. */</span> | + | <span id="line3">3. /* NetHack may be freely redistributed. See license for details. */</span> |
− | <span id="line4">4. </span> | + | <span id="line4">4. </span> |
− | <span id="line5">5. /* to get the malloc() prototype from system.h */</span> | + | <span id="line5">5. /* to get the malloc() prototype from system.h */</span> |
− | <span id="line6">6. #define ALLOC_C /* comment line for pre-compiled headers */</span> | + | <span id="line6">6. #define ALLOC_C /* comment line for pre-compiled headers */</span> |
− | <span id="line7">7. /* since this file is also used in auxiliary programs, don't include all the</span> | + | <span id="line7">7. /* since this file is also used in auxiliary programs, don't include all the</span> |
− | <span id="line8">8. | + | <span id="line8">8. * function declarations for all of nethack</span> |
− | <span id="line9">9. | + | <span id="line9">9. */</span> |
− | <span id="line10">10. #define EXTERN_H /* comment line for pre-compiled headers */</span> | + | <span id="line10">10. #define EXTERN_H /* comment line for pre-compiled headers */</span> |
− | <span id="line11">11. #include "config.h"</span> | + | <span id="line11">11. #include "config.h"</span> |
− | <span id="line12">12. </span> | + | <span id="line12">12. </span> |
− | <span id="line13">13. | + | <span id="line13">13. char *FDECL(fmt_ptr, (const genericptr));</span> |
− | <span id="line14">14. </span> | + | <span id="line14">14. </span> |
− | <span id="line15">15. #ifdef MONITOR_HEAP</span> | + | <span id="line15">15. #ifdef MONITOR_HEAP</span> |
− | <span id="line16">16. #undef alloc</span> | + | <span id="line16">16. #undef alloc</span> |
− | <span id="line17">17. #undef free</span> | + | <span id="line17">17. #undef free</span> |
− | <span id="line18">18. | + | <span id="line18">18. extern void FDECL(free, (genericptr_t));</span> |
− | <span id="line19">19. | + | <span id="line19">19. static void NDECL(heapmon_init);</span> |
− | <span id="line20">20. </span> | + | <span id="line20">20. </span> |
− | <span id="line21">21. | + | <span id="line21">21. static FILE *heaplog = 0;</span> |
− | <span id="line22">22. | + | <span id="line22">22. static boolean tried_heaplog = FALSE;</span> |
− | <span id="line23">23. #endif</span> | + | <span id="line23">23. #endif</span> |
− | <span id="line24">24. </span> | + | <span id="line24">24. </span> |
− | <span id="line25">25. | + | <span id="line25">25. long *FDECL(alloc, (unsigned int));</span> |
− | <span id="line26">26. | + | <span id="line26">26. extern void</span> |
− | <span id="line27">27. | + | <span id="line27">27. VDECL(panic, (const char *, ...))</span> |
− | <span id="line28">28. | + | <span id="line28">28. PRINTF_F(1, 2);</span> |
− | <span id="line29">29. </span> | + | <span id="line29">29. </span> |
== alloc == | == alloc == | ||
− | <span id="line30">30. | + | <span id="line30">30. long *</span> |
− | <span id="line31">31. | + | <span id="line31">31. alloc(lth)</span> |
− | <span id="line32">32. | + | <span id="line32">32. register unsigned int lth;</span> |
− | <span id="line33">33. {</span> | + | <span id="line33">33. {</span> |
− | <span id="line34">34. #ifdef LINT</span> | + | <span id="line34">34. #ifdef LINT</span> |
− | <span id="line35">35. | + | <span id="line35">35. /*</span> |
− | <span id="line36">36. | + | <span id="line36">36. * a ridiculous definition, suppressing</span> |
− | <span id="line37">37. | + | <span id="line37">37. * "possible pointer alignment problem" for (long *) malloc()</span> |
− | <span id="line38">38. | + | <span id="line38">38. * from lint</span> |
− | <span id="line39">39. | + | <span id="line39">39. */</span> |
− | <span id="line40">40. | + | <span id="line40">40. long dummy = ftell(stderr);</span> |
− | <span id="line41">41. </span> | + | <span id="line41">41. </span> |
− | <span id="line42">42. | + | <span id="line42">42. if (lth)</span> |
− | <span id="line43">43. | + | <span id="line43">43. dummy = 0; /* make sure arg is used */</span> |
− | <span id="line44">44. | + | <span id="line44">44. return &dummy;</span> |
− | <span id="line45">45. #else</span> | + | <span id="line45">45. #else</span> |
− | <span id="line46">46. | + | <span id="line46">46. register genericptr_t ptr;</span> |
− | <span id="line47">47. </span> | + | <span id="line47">47. </span> |
− | <span id="line48">48. | + | <span id="line48">48. ptr = malloc(lth);</span> |
− | <span id="line49">49. #ifndef MONITOR_HEAP</span> | + | <span id="line49">49. #ifndef MONITOR_HEAP</span> |
− | <span id="line50">50. | + | <span id="line50">50. if (!ptr)</span> |
− | <span id="line51">51. | + | <span id="line51">51. panic("Memory allocation failure; cannot get %u bytes", lth);</span> |
− | <span id="line52">52. #endif</span> | + | <span id="line52">52. #endif</span> |
− | <span id="line53">53. | + | <span id="line53">53. return (long *) ptr;</span> |
− | <span id="line54">54. #endif</span> | + | <span id="line54">54. #endif</span> |
− | <span id="line55">55. }</span> | + | <span id="line55">55. }</span> |
− | <span id="line56">56. </span> | + | <span id="line56">56. </span> |
== fmt_ptr == | == fmt_ptr == | ||
− | <span id="line57">57. #ifdef HAS_PTR_FMT</span> | + | <span id="line57">57. #ifdef HAS_PTR_FMT</span> |
− | <span id="line58">58. #define PTR_FMT "%p"</span> | + | <span id="line58">58. #define PTR_FMT "%p"</span> |
− | <span id="line59">59. #define PTR_TYP genericptr_t</span> | + | <span id="line59">59. #define PTR_TYP genericptr_t</span> |
− | <span id="line60">60. #else</span> | + | <span id="line60">60. #else</span> |
− | <span id="line61">61. #define PTR_FMT "%06lx"</span> | + | <span id="line61">61. #define PTR_FMT "%06lx"</span> |
− | <span id="line62">62. #define PTR_TYP unsigned long</span> | + | <span id="line62">62. #define PTR_TYP unsigned long</span> |
− | <span id="line63">63. #endif</span> | + | <span id="line63">63. #endif</span> |
− | <span id="line64">64. </span> | + | <span id="line64">64. </span> |
− | <span id="line65">65. /* A small pool of static formatting buffers.</span> | + | <span id="line65">65. /* A small pool of static formatting buffers.</span> |
− | <span id="line66">66. | + | <span id="line66">66. * PTRBUFSIZ: We assume that pointers will be formatted as integers in</span> |
− | <span id="line67">67. | + | <span id="line67">67. * hexadecimal, requiring at least 16+1 characters for each buffer to handle</span> |
− | <span id="line68">68. | + | <span id="line68">68. * 64-bit systems, but the standard doesn't mandate that encoding and an</span> |
− | <span id="line69">69. | + | <span id="line69">69. * implementation could do something different for %p, so we make some</span> |
− | <span id="line70">70. | + | <span id="line70">70. * extra room.</span> |
− | <span id="line71">71. | + | <span id="line71">71. * PTRBUFCNT: Number of formatted values which can be in use at the same</span> |
− | <span id="line72">72. | + | <span id="line72">72. * time. To have more, callers need to make copies of them as they go.</span> |
− | <span id="line73">73. | + | <span id="line73">73. */</span> |
− | <span id="line74">74. #define PTRBUFCNT 4</span> | + | <span id="line74">74. #define PTRBUFCNT 4</span> |
− | <span id="line75">75. #define PTRBUFSIZ 32</span> | + | <span id="line75">75. #define PTRBUFSIZ 32</span> |
− | <span id="line76">76. | + | <span id="line76">76. static char ptrbuf[PTRBUFCNT][PTRBUFSIZ];</span> |
− | <span id="line77">77. | + | <span id="line77">77. static int ptrbufidx = 0;</span> |
− | <span id="line78">78. </span> | + | <span id="line78">78. </span> |
− | <span id="line79">79. /* format a pointer for display purposes; returns a static buffer */</span> | + | <span id="line79">79. /* format a pointer for display purposes; returns a static buffer */</span> |
− | <span id="line80">80. | + | <span id="line80">80. char *</span> |
− | <span id="line81">81. | + | <span id="line81">81. fmt_ptr(ptr)</span> |
− | <span id="line82">82. | + | <span id="line82">82. const genericptr ptr;</span> |
− | <span id="line83">83. {</span> | + | <span id="line83">83. {</span> |
− | <span id="line84">84. | + | <span id="line84">84. char *buf;</span> |
− | <span id="line85">85. </span> | + | <span id="line85">85. </span> |
− | <span id="line86">86. | + | <span id="line86">86. buf = ptrbuf[ptrbufidx];</span> |
− | <span id="line87">87. | + | <span id="line87">87. if (++ptrbufidx >= PTRBUFCNT)</span> |
− | <span id="line88">88. | + | <span id="line88">88. ptrbufidx = 0;</span> |
− | <span id="line89">89. </span> | + | <span id="line89">89. </span> |
− | <span id="line90">90. | + | <span id="line90">90. Sprintf(buf, PTR_FMT, (PTR_TYP) ptr);</span> |
− | <span id="line91">91. | + | <span id="line91">91. return buf;</span> |
− | <span id="line92">92. }</span> | + | <span id="line92">92. }</span> |
− | <span id="line93">93. </span> | + | <span id="line93">93. </span> |
== heapmon_init == | == heapmon_init == | ||
− | <span id="line94">94. #ifdef MONITOR_HEAP</span> | + | <span id="line94">94. #ifdef MONITOR_HEAP</span> |
− | <span id="line95">95. </span> | + | <span id="line95">95. </span> |
− | <span id="line96">96. /* If ${NH_HEAPLOG} is defined and we can create a file by that name,</span> | + | <span id="line96">96. /* If ${NH_HEAPLOG} is defined and we can create a file by that name,</span> |
− | <span id="line97">97. | + | <span id="line97">97. then we'll log the allocation and release information to that file. */</span> |
− | <span id="line98">98. | + | <span id="line98">98. static void</span> |
− | <span id="line99">99. | + | <span id="line99">99. heapmon_init()</span> |
− | <span id="line100">100. {</span> | + | <span id="line100">100. {</span> |
− | <span id="line101">101. | + | <span id="line101">101. char *logname = getenv("NH_HEAPLOG");</span> |
− | <span id="line102">102. </span> | + | <span id="line102">102. </span> |
− | <span id="line103">103. | + | <span id="line103">103. if (logname && *logname)</span> |
− | <span id="line104">104. | + | <span id="line104">104. heaplog = fopen(logname, "w");</span> |
− | <span id="line105">105. | + | <span id="line105">105. tried_heaplog = TRUE;</span> |
− | <span id="line106">106. }</span> | + | <span id="line106">106. }</span> |
− | <span id="line107">107. </span> | + | <span id="line107">107. </span> |
== nhalloc == | == nhalloc == | ||
− | <span id="line108">108. | + | <span id="line108">108. long *</span> |
− | <span id="line109">109. | + | <span id="line109">109. nhalloc(lth, file, line)</span> |
− | <span id="line110">110. | + | <span id="line110">110. unsigned int lth;</span> |
− | <span id="line111">111. | + | <span id="line111">111. const char *file;</span> |
− | <span id="line112">112. | + | <span id="line112">112. int line;</span> |
− | <span id="line113">113. {</span> | + | <span id="line113">113. {</span> |
− | <span id="line114">114. | + | <span id="line114">114. long *ptr = alloc(lth);</span> |
− | <span id="line115">115. </span> | + | <span id="line115">115. </span> |
− | <span id="line116">116. | + | <span id="line116">116. if (!tried_heaplog)</span> |
− | <span id="line117">117. | + | <span id="line117">117. heapmon_init();</span> |
− | <span id="line118">118. | + | <span id="line118">118. if (heaplog)</span> |
− | <span id="line119">119. | + | <span id="line119">119. (void) fprintf(heaplog, "+%5u %s %4d %s\n", lth,</span> |
− | <span id="line120">120. | + | <span id="line120">120. fmt_ptr((genericptr_t) ptr), line, file);</span> |
− | <span id="line121">121. | + | <span id="line121">121. /* potential panic in alloc() was deferred til here */</span> |
− | <span id="line122">122. | + | <span id="line122">122. if (!ptr)</span> |
− | <span id="line123">123. | + | <span id="line123">123. panic("Cannot get %u bytes, line %d of %s", lth, line, file);</span> |
− | <span id="line124">124. </span> | + | <span id="line124">124. </span> |
− | <span id="line125">125. | + | <span id="line125">125. return ptr;</span> |
− | <span id="line126">126. }</span> | + | <span id="line126">126. }</span> |
− | <span id="line127">127. </span> | + | <span id="line127">127. </span> |
== nhfree == | == nhfree == | ||
− | <span id="line128">128. | + | <span id="line128">128. void</span> |
− | <span id="line129">129. | + | <span id="line129">129. nhfree(ptr, file, line)</span> |
− | <span id="line130">130. | + | <span id="line130">130. genericptr_t ptr;</span> |
− | <span id="line131">131. | + | <span id="line131">131. const char *file;</span> |
− | <span id="line132">132. | + | <span id="line132">132. int line;</span> |
− | <span id="line133">133. {</span> | + | <span id="line133">133. {</span> |
− | <span id="line134">134. | + | <span id="line134">134. if (!tried_heaplog)</span> |
− | <span id="line135">135. | + | <span id="line135">135. heapmon_init();</span> |
− | <span id="line136">136. | + | <span id="line136">136. if (heaplog)</span> |
− | <span id="line137">137. | + | <span id="line137">137. (void) fprintf(heaplog, "- %s %4d %s\n",</span> |
− | <span id="line138">138. | + | <span id="line138">138. fmt_ptr((genericptr_t) ptr), line, file);</span> |
− | <span id="line139">139. </span> | + | <span id="line139">139. </span> |
− | <span id="line140">140. | + | <span id="line140">140. free(ptr);</span> |
− | <span id="line141">141. }</span> | + | <span id="line141">141. }</span> |
− | <span id="line142">142. </span> | + | <span id="line142">142. </span> |
== nhdupstr == | == nhdupstr == | ||
− | <span id="line143">143. /* strdup() which uses our alloc() rather than libc's malloc(),</span> | + | <span id="line143">143. /* strdup() which uses our alloc() rather than libc's malloc(),</span> |
− | <span id="line144">144. | + | <span id="line144">144. with caller tracking */</span> |
− | <span id="line145">145. | + | <span id="line145">145. char *</span> |
− | <span id="line146">146. | + | <span id="line146">146. nhdupstr(string, file, line)</span> |
− | <span id="line147">147. | + | <span id="line147">147. const char *string;</span> |
− | <span id="line148">148. | + | <span id="line148">148. const char *file;</span> |
− | <span id="line149">149. | + | <span id="line149">149. int line;</span> |
− | <span id="line150">150. {</span> | + | <span id="line150">150. {</span> |
− | <span id="line151">151. | + | <span id="line151">151. return strcpy((char *) nhalloc(strlen(string) + 1, file, line), string);</span> |
− | <span id="line152">152. }</span> | + | <span id="line152">152. }</span> |
− | <span id="line153">153. #undef dupstr</span> | + | <span id="line153">153. #undef dupstr</span> |
− | <span id="line154">154. </span> | + | <span id="line154">154. </span> |
− | <span id="line155">155. #endif /* MONITOR_HEAP */</span> | + | <span id="line155">155. #endif /* MONITOR_HEAP */</span> |
− | <span id="line156">156. </span> | + | <span id="line156">156. </span> |
== dupstr == | == dupstr == | ||
− | <span id="line157">157. /* strdup() which uses our alloc() rather than libc's malloc();</span> | + | <span id="line157">157. /* strdup() which uses our alloc() rather than libc's malloc();</span> |
− | <span id="line158">158. | + | <span id="line158">158. not used when MONITOR_HEAP is enabled, but included unconditionally</span> |
− | <span id="line159">159. | + | <span id="line159">159. in case utility programs get built using a different setting for that */</span> |
− | <span id="line160">160. | + | <span id="line160">160. char *</span> |
− | <span id="line161">161. | + | <span id="line161">161. dupstr(string)</span> |
− | <span id="line162">162. | + | <span id="line162">162. const char *string;</span> |
− | <span id="line163">163. {</span> | + | <span id="line163">163. {</span> |
− | <span id="line164">164. | + | <span id="line164">164. return strcpy((char *) alloc(strlen(string) + 1), string);</span> |
− | <span id="line165">165. }</span> | + | <span id="line165">165. }</span> |
− | <span id="line166">166. </span> | + | <span id="line166">166. </span> |
− | <span id="line167">167. /*alloc.c*/</span> | + | <span id="line167">167. /*alloc.c*/</span> |
[[Category:NetHack 3.6.0 source code|src/alloc.c]] | [[Category:NetHack 3.6.0 source code|src/alloc.c]] |
Latest revision as of 14:01, 15 December 2015
Below is the full text to alloc.c from the source code of NetHack 3.6.0. To link to a particular line, write [[Source:NetHack 3.6.0/src/alloc.c#line123]], for example.
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.
Top of file
/* NetHack 3.6 alloc.c $NHDT-Date: 1446975460 2015/11/08 09:37:40 $ $NHDT-Branch: master $:$NHDT-Revision: 1.14 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed. See license for details. */
/* to get the malloc() prototype from system.h */
#define ALLOC_C /* comment line for pre-compiled headers */
/* since this file is also used in auxiliary programs, don't include all the
* function declarations for all of nethack
*/
#define EXTERN_H /* comment line for pre-compiled headers */
#include "config.h"
char *FDECL(fmt_ptr, (const genericptr));
#ifdef MONITOR_HEAP
#undef alloc
#undef free
extern void FDECL(free, (genericptr_t));
static void NDECL(heapmon_init);
static FILE *heaplog = 0;
static boolean tried_heaplog = FALSE;
#endif
long *FDECL(alloc, (unsigned int));
extern void
VDECL(panic, (const char *, ...))
PRINTF_F(1, 2);
alloc
long *
alloc(lth)
register unsigned int lth;
{
#ifdef LINT
/*
* a ridiculous definition, suppressing
* "possible pointer alignment problem" for (long *) malloc()
* from lint
*/
long dummy = ftell(stderr);
if (lth)
dummy = 0; /* make sure arg is used */
return &dummy;
#else
register genericptr_t ptr;
ptr = malloc(lth);
#ifndef MONITOR_HEAP
if (!ptr)
panic("Memory allocation failure; cannot get %u bytes", lth);
#endif
return (long *) ptr;
#endif
}
fmt_ptr
#ifdef HAS_PTR_FMT
#define PTR_FMT "%p"
#define PTR_TYP genericptr_t
#else
#define PTR_FMT "%06lx"
#define PTR_TYP unsigned long
#endif
/* A small pool of static formatting buffers.
* PTRBUFSIZ: We assume that pointers will be formatted as integers in
* hexadecimal, requiring at least 16+1 characters for each buffer to handle
* 64-bit systems, but the standard doesn't mandate that encoding and an
* implementation could do something different for %p, so we make some
* extra room.
* PTRBUFCNT: Number of formatted values which can be in use at the same
* time. To have more, callers need to make copies of them as they go.
*/
#define PTRBUFCNT 4
#define PTRBUFSIZ 32
static char ptrbuf[PTRBUFCNT][PTRBUFSIZ];
static int ptrbufidx = 0;
/* format a pointer for display purposes; returns a static buffer */
char *
fmt_ptr(ptr)
const genericptr ptr;
{
char *buf;
buf = ptrbuf[ptrbufidx];
if (++ptrbufidx >= PTRBUFCNT)
ptrbufidx = 0;
Sprintf(buf, PTR_FMT, (PTR_TYP) ptr);
return buf;
}
heapmon_init
#ifdef MONITOR_HEAP
/* If ${NH_HEAPLOG} is defined and we can create a file by that name,
then we'll log the allocation and release information to that file. */
static void
heapmon_init()
{
char *logname = getenv("NH_HEAPLOG");
if (logname && *logname)
heaplog = fopen(logname, "w");
tried_heaplog = TRUE;
}
nhalloc
long *
nhalloc(lth, file, line)
unsigned int lth;
const char *file;
int line;
{
long *ptr = alloc(lth);
if (!tried_heaplog)
heapmon_init();
if (heaplog)
(void) fprintf(heaplog, "+%5u %s %4d %s\n", lth,
fmt_ptr((genericptr_t) ptr), line, file);
/* potential panic in alloc() was deferred til here */
if (!ptr)
panic("Cannot get %u bytes, line %d of %s", lth, line, file);
return ptr;
}
nhfree
void
nhfree(ptr, file, line)
genericptr_t ptr;
const char *file;
int line;
{
if (!tried_heaplog)
heapmon_init();
if (heaplog)
(void) fprintf(heaplog, "- %s %4d %s\n",
fmt_ptr((genericptr_t) ptr), line, file);
free(ptr);
}
nhdupstr
/* strdup() which uses our alloc() rather than libc's malloc(),
with caller tracking */
char *
nhdupstr(string, file, line)
const char *string;
const char *file;
int line;
{
return strcpy((char *) nhalloc(strlen(string) + 1, file, line), string);
}
#undef dupstr
#endif /* MONITOR_HEAP */
dupstr
/* strdup() which uses our alloc() rather than libc's malloc();
not used when MONITOR_HEAP is enabled, but included unconditionally
in case utility programs get built using a different setting for that */
char *
dupstr(string)
const char *string;
{
return strcpy((char *) alloc(strlen(string) + 1), string);
}
/*alloc.c*/