* alloc.c (allocate_string) [macintosh]: Call check_string_bytes

[gnu-emacs] / src / alloc.c

diff --git a/src/alloc.c b/src/alloc.c
index b516695c0dd65221dfd5d76b4b57c9accdde1b8b..4134d26fbd911997d34c3bd0bfc1cb4a3856a07a 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1322,7 +1322,11 @@ allocate_string ()
   consing_since_gc += sizeof *s;
 
 #ifdef GC_CHECK_STRING_BYTES
-  if (!noninteractive)
+  if (!noninteractive
+#ifdef macintosh
+      && current_sblock
+#endif
+     )
     {
       if (++check_string_bytes_count == 200)
        {