560 |
if (available_pages < m) |
if (available_pages < m) |
561 |
sSAignore_maximum_pagesA->s.s_dbind = Cnil; |
sSAignore_maximum_pagesA->s.s_dbind = Cnil; |
562 |
if (!g) { |
if (!g) { |
563 |
|
/*GMP_WRAPPERS: Please see comments in gmp_wrappers.h 20040815 CM*/ |
564 |
switch (jmp_gmp) { |
switch (jmp_gmp) { |
565 |
case 0: |
case 0: /* not in gmp call*/ |
566 |
GBC(t_contiguous); |
GBC(t_contiguous); |
567 |
break; |
break; |
568 |
case 1: |
case 1: /* non-in-place gmp call*/ |
569 |
longjmp(gmp_jmp,t_contiguous); |
longjmp(gmp_jmp,t_contiguous); |
570 |
break; |
break; |
571 |
|
case -1: /* in-place gmp call */ |
572 |
|
jmp_gmp=-t_contiguous; |
573 |
|
break; |
574 |
default: |
default: |
575 |
break; |
break; |
576 |
} |
} |
710 |
|
|
711 |
if (rb_limit - rb_pointer < n) { |
if (rb_limit - rb_pointer < n) { |
712 |
if (!g && in_signal_handler == 0) { |
if (!g && in_signal_handler == 0) { |
713 |
|
/*GMP_WRAPPERS: Please see comments in gmp_wrappers.h 20040815 CM*/ |
714 |
switch (jmp_gmp) { |
switch (jmp_gmp) { |
715 |
case 0: |
case 0: /* not in gmp call*/ |
716 |
GBC(t_relocatable); |
GBC(t_relocatable); |
717 |
break; |
break; |
718 |
case 1: |
case 1: /* non-in-place gmp call*/ |
719 |
longjmp(gmp_jmp,t_relocatable); |
longjmp(gmp_jmp,t_relocatable); |
720 |
break; |
break; |
721 |
|
case -1: /* in-place gmp call */ |
722 |
|
jmp_gmp=-t_relocatable; |
723 |
|
break; |
724 |
default: |
default: |
725 |
break; |
break; |
726 |
} |
} |