goo/boot.patch

   1 --- goo-0_155-any-dev/c/g2c/goo/boot.c  2003-11-19 16:49:58.000000000 -0300
   2 +++ goo-0_155-any-dev-patched/c/g2c/goo/boot.c  2007-06-07 13:13:24.000000000 -0300
   3 @@ -982,11 +982,13 @@
   4
   5  /* FUNCTION CODES: */
   6
   7 +
   8 +
   9  P YPallocate_stack(P num_) {
  10    P retF1;
  11    P T0,T1,T2,T3;
  12  DEFCREGS();
  13 -  (P)YPdef_regs();
  14 +  regs = REGSREF();
  15    T3 = (P)YPsp_reg();
  16    retF1 = T3;
  17    T1 = (P)YPsp_reg();
  18 @@ -6761,7 +6763,7 @@
  19    P nF692;
  20    P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9;
  21  DEFCREGS();
  22 -  (P)YPdef_regs();
  23 +  regs = REGSREF();
  24    T9 = (P)YPsp_elt((P)-2);
  25    nF692 = T9;
  26    T8 = (P)YPi_((P)-2,nF692);
  27 @@ -6961,7 +6963,8 @@
  28    P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15;
  29    P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28;
  30  DEFCREGS();
  31 -  (P)YPset_regs(regs_);
  32 +  // (P)YPset_regs(regs_);
  33 +  regs = (REGS)(regs_);
  34    xF724 = fn_;
  35    T28 = (P)YPprop_elt(xF724,(P)1);
  36    xF725 = T28;
  37 @@ -7061,7 +7064,8 @@
  38    P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15;
  39    P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25;
  40  DEFCREGS();
  41 -  (P)YPset_regs(regs_);
  42 +  //(P)YPset_regs(regs_);
  43 +  regs = (REGS)(regs_);
  44    if (VARREF(YPclasses_readyQ) != YPfalse) {
  45      oF747 = res_;
  46      tF748 = type_;
  47 @@ -7134,7 +7138,8 @@
  48  INLINE P YPstack_check(P regs_) {
  49    P T0,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,T14,T15;
  50  DEFCREGS();
  51 -  (P)YPset_regs(regs_);
  52 +  //(P)YPset_regs(regs_);
  53 +  regs = (REGS)(regs_);
  54    T4 = (P)YPmax_stack_len();
  55    T3 = (P)YPi_(T4,(P)1000);
  56    T6 = (P)YPsp_reg();
  57 @@ -7202,7 +7207,8 @@
  58    P T16,T17,T18,T19,T20,T21,T22,T23,T24,T25,T26,T27,T28,T29,T30,T31;
  59    P T32,T33,T34,T35,T36,T37,T38,T39,T40,T41,T42,T43;
  60  DEFCREGS();
  61 -  (P)YPset_regs(regs_);
  62 +  //(P)YPset_regs(regs_);
  63 +  regs = (REGS)(regs_);
  64    T43 = (P)YPsp_elt((P)-1);
  65    fnF767 = T43;
  66    xF768 = fnF767;