Re: alloca and (2^15)*5

The Carbon version of XEmacs sets the size of the stack explicitly. (see run.c: int stack_size = 0x800000; /* moby */) The Carbon version is two cooperative threads. The main thread fields Carbon events. The second thread is XEmacs. The line of code above sets the stack size of the second thread (XEmacs). I recently set the stack size to 8MB per Royar's suggestion. Carbon XEmacs no longer crashes with a segmentation fault in the regex code when opening a file in shell-mode (my .tcshrc file for example). Rather than crashing with a segmentation fault it fails with a warning. I can ignore the warning and proceed to edit my .tcshrc file, but only in fundamental mode. The warning is: (1) (file-mode-spec/warning) Error in File mode specification: sh-mode Backtrace follows: signal(error ("sh-mode")) # bind (args datum) cerror("%s" sh-mode) apply(cerror "%s" sh-mode) # bind (args datum) error("%s" sh-mode) # bind (name alist mode name keep-going) # (unwind-protect ...) # bind (just-from-file-name) set-auto-mode() #<compiled-function nil "...(5)" [set-auto-mode t] 1>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__ errstr error-message-string lwarn file-mode-spec warning "Error in %s: %s\n\nBacktrace follows:\n\n%s" "File mode specification" backtrace-in-condition-handler-eliminating-handler] 8> #<compiled-function nil "...(5)" [set-auto-mode t] 1>) # (condition-case ... . ((error))) # bind (find-file) normal-mode(t) # bind (nomodes after-find-file-from-revert-buffer noauto warn error) after-find-file(nil t) byte-code("..." [buffer-file-number number truename buffer-file-truename buf buffer-file-name set-buffer-major-mode erase-buffer nil (byte-code "´á¬ √\"à™Öƒ √\"à¬á" [rawfile filename insert-file-contents-literally t insert-file-contents] 3) ((file-error (byte-code "√\n!´åƒ\n!¨á≈∆«\nD\"à´Ñ»™á… !¨Ç»√á" [rawfile error filename file-exists-p file-readable-p signal file-error "File is not readable" t run-hook-with-args-until-success find-file-not-found-hooks] 4))) abbreviate-file-name file-name-directory make-local-variable backup-inhibited t after-find-file find-file-use-truenames default-directory backup-enable-predicate rawfile error nowarn] 3) # (condition-case ... . ((t (byte-code "¬!à√ ＠ A\"á" [buf data kill-buffer signal] 3)))) # (unwind-protect ...) # bind (error number truename buf rawfile nowarn filename) find-file-noselect("~/.tcshrc") # bind (codesys filename) find-file("~/.tcshrc" nil) # bind (command-debug-status) call-interactively(find-file) # (condition-case ... . error) # (catch top-level ...) On Monday, December 16, 2002, at 02:58 PM, robert delius royar wrote: