+

sys/jit/kern_jit_asm.pas

@@ -57,7 +57,8 @@ uses
  vm_pmap,
  trap,
  md_context,
- signal;
+ signal,
+ subr_backtrace;
 
 //
 
@@ -67,6 +68,7 @@ function jmp_dispatcher(addr:Pointer;is_call:Boolean):Pointer; external;
 
 procedure jit_sigsegv(addr:Pointer);
 begin
+ print_backtrace_td(stderr);
  Writeln('jit_sigsegv:0x',HexStr(addr));
  Assert(False);
 end;

sys/kern/subr_backtrace.pas

@@ -168,7 +168,9 @@ begin
   if (Pointer(addr)>=obj^.map_base) and
      (Pointer(addr)<(obj^.map_base+obj^.map_size)) then
   begin
-   r:=Default(TLQRec);
+   r.LastAdr:=nil;
+   r.LastNid:=0;
+
    r.Addr:=Pointer(addr);
    r.Base:=fuptr(obj^.map_base);
 

sys/vm/vm_map.pas

@@ -2238,10 +2238,15 @@ begin
 
  growsize:=sgrowsiz;
 
+ {
  if (max_ssize<growsize) then
   init_ssize:=max_ssize
  else
   init_ssize:=growsize;
+ }
+
+ //No need to trim the stack
+ init_ssize:=max_ssize;
 
  vmemlim:=lim_cur(RLIMIT_VMEM);
 
@@ -2279,7 +2284,7 @@ begin
 
  {
   * We initially map a stack of only init_ssize.  We will grow as
-  * needed later.  Dep__ending on the orientation of the stack (i.e.
+  * needed later.  Depending on the orientation of the stack (i.e.
   * the grow direction) we either map at the top of the range, the
   * bottom of the range or in the middle.
   *