comparison src/lread.c @ 27852:98f55bbdbbad

(Fload): Use `xfree' instead of `free'. (init_obarray): Use `xmalloc' instead of `malloc'.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 25 Feb 2000 13:13:08 +0000
parents 70a9799a393e
children 2e784b17f85a
comparison
equal deleted inserted replaced
27851:868b592aac4a 27852:98f55bbdbbad
732 free (saved_doc_string); 732 free (saved_doc_string);
733 saved_doc_string = 0; 733 saved_doc_string = 0;
734 saved_doc_string_size = 0; 734 saved_doc_string_size = 0;
735 735
736 if (prev_saved_doc_string) 736 if (prev_saved_doc_string)
737 free (prev_saved_doc_string); 737 xfree (prev_saved_doc_string);
738 prev_saved_doc_string = 0; 738 prev_saved_doc_string = 0;
739 prev_saved_doc_string_size = 0; 739 prev_saved_doc_string_size = 0;
740 740
741 if (!noninteractive && NILP (nomessage)) 741 if (!noninteractive && NILP (nomessage))
742 { 742 {
2913 2913
2914 Qvariable_documentation = intern ("variable-documentation"); 2914 Qvariable_documentation = intern ("variable-documentation");
2915 staticpro (&Qvariable_documentation); 2915 staticpro (&Qvariable_documentation);
2916 2916
2917 read_buffer_size = 100 + MAX_MULTIBYTE_LENGTH; 2917 read_buffer_size = 100 + MAX_MULTIBYTE_LENGTH;
2918 read_buffer = (char *) malloc (read_buffer_size); 2918 read_buffer = (char *) xmalloc (read_buffer_size);
2919 } 2919 }
2920 2920
2921 void 2921 void
2922 defsubr (sname) 2922 defsubr (sname)
2923 struct Lisp_Subr *sname; 2923 struct Lisp_Subr *sname;