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

Diff of /gcl/o/alloc.c

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

revision 1.41 by camm, Thu Aug 12 16:35:04 2004 UTC revision 1.42 by camm, Mon Aug 16 17:28:55 2004 UTC
# Line 560  ONCE_MORE: Line 560  ONCE_MORE:
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                    }                    }
# Line 706  ONCE_MORE: Line 710  ONCE_MORE:
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              }              }

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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