/[gcl]/gcl/o/fasdump.c
ViewVC logotype

Diff of /gcl/o/fasdump.c

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

revision 1.6 by camm, Tue Sep 10 03:35:15 2002 UTC revision 1.7 by camm, Thu Dec 5 12:58:59 2002 UTC
# Line 446  getd(str) Line 446  getd(str)
446  #define  READ_STRING(leng,loc) do {BEGIN_NO_INTERRUPT;     \  #define  READ_STRING(leng,loc) do {BEGIN_NO_INTERRUPT;     \
447       *loc = alloc_simple_string(leng); \       *loc = alloc_simple_string(leng); \
448       (*loc)->st.st_self=alloc_relblock(leng); END_NO_INTERRUPT; \       (*loc)->st.st_self=alloc_relblock(leng); END_NO_INTERRUPT; \
449      memset((*loc)->st.st_self,0,leng); /* fread won't restart if it triggers an SGC segfault -- CM */ \
450    D_FREAD((*loc)->st.st_self,1,leng,fas_stream);} while(0)    D_FREAD((*loc)->st.st_self,1,leng,fas_stream);} while(0)
451    
452  /* if try_hash finds it we don't need to write the object  /* if try_hash finds it we don't need to write the object

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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