/[emacs]/emacs/src/macros.c
ViewVC logotype

Diff of /emacs/src/macros.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53 by monnier, Sat Feb 22 22:19:31 2003 UTC revision 1.53.2.1 by fx, Wed Jun 11 11:46:05 2003 UTC
# Line 20  Boston, MA 02111-1307, USA.  */ Line 20  Boston, MA 02111-1307, USA.  */
20    
21    
22  #include <config.h>  #include <config.h>
23    #ifdef BOEHM_GC
24    #include <gc.h>
25    #endif
26  #include "lisp.h"  #include "lisp.h"
27  #include "macros.h"  #include "macros.h"
28  #include "commands.h"  #include "commands.h"
# Line 74  macro before appending to it. */) Line 77  macro before appending to it. */)
77      {      {
78        current_kboard->kbd_macro_bufsize = 30;        current_kboard->kbd_macro_bufsize = 30;
79        current_kboard->kbd_macro_buffer        current_kboard->kbd_macro_buffer
80          = (Lisp_Object *)xmalloc (30 * sizeof (Lisp_Object));          = (Lisp_Object *)XGC_MALLOC (30 * sizeof (Lisp_Object));
81      }      }
82    update_mode_lines++;    update_mode_lines++;
83    if (NILP (append))    if (NILP (append))
# Line 83  macro before appending to it. */) Line 86  macro before appending to it. */)
86          {          {
87            current_kboard->kbd_macro_bufsize = 30;            current_kboard->kbd_macro_bufsize = 30;
88            current_kboard->kbd_macro_buffer            current_kboard->kbd_macro_buffer
89              = (Lisp_Object *)xrealloc (current_kboard->kbd_macro_buffer,              = (Lisp_Object *)XGC_REALLOC (current_kboard->kbd_macro_buffer,
90                                         30 * sizeof (Lisp_Object));                                           30 * sizeof (Lisp_Object));
91          }          }
92        current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer;        current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer;
93        current_kboard->kbd_macro_end = current_kboard->kbd_macro_buffer;        current_kboard->kbd_macro_end = current_kboard->kbd_macro_buffer;
# Line 109  macro before appending to it. */) Line 112  macro before appending to it. */)
112          {          {
113            current_kboard->kbd_macro_bufsize = len + 30;            current_kboard->kbd_macro_bufsize = len + 30;
114            current_kboard->kbd_macro_buffer            current_kboard->kbd_macro_buffer
115              = (Lisp_Object *)xrealloc (current_kboard->kbd_macro_buffer,              = (Lisp_Object *)XGC_REALLOC (current_kboard->kbd_macro_buffer,
116                                         (len + 30) * sizeof (Lisp_Object));                                           (len + 30) * sizeof (Lisp_Object));
117          }          }
118    
119        /* Must convert meta modifier when copying string to vector.  */        /* Must convert meta modifier when copying string to vector.  */
# Line 213  store_kbd_macro_char (c) Line 216  store_kbd_macro_char (c)
216            kb->kbd_macro_bufsize *= 2;            kb->kbd_macro_bufsize *= 2;
217            nbytes = kb->kbd_macro_bufsize * sizeof *kb->kbd_macro_buffer;            nbytes = kb->kbd_macro_bufsize * sizeof *kb->kbd_macro_buffer;
218            kb->kbd_macro_buffer            kb->kbd_macro_buffer
219              = (Lisp_Object *) xrealloc (kb->kbd_macro_buffer, nbytes);              = (Lisp_Object *) XGC_REALLOC (kb->kbd_macro_buffer, nbytes);
220            kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset;            kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset;
221            kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset;            kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset;
222          }          }

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.53.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26