Skip to content
Snippets Groups Projects
  1. May 11, 2000
    • Reuben Thomas's avatar
      [project @ 2000-05-11 10:45:34 by rrt] · a4017b81
      Reuben Thomas authored
      Removed dLL_ifs.hi from INSTALL_DATA under Windows (no longer exists).
      a4017b81
    • AndyGill's avatar
      [project @ 2000-05-11 07:20:36 by andy] · 189393d1
      AndyGill authored
      Wibble...
      
      The corrected example is as follows:
      
      myS :: (forall t t1 t2. (t -> t2 -> t1) -> (t -> t2) -> t -> t1)
      [NoDiscard] __AL 3
      myS
        = \ @ t @ t1 @ t2 f :: (t -> t2 -> t1) g :: (t -> t2) x :: t -> f x (g x)
      
      public class myS implements Code {
        public Object ENTER () {
          VM.COLLECT(3, this);
          final Object f = VM.POP();
          final Object g = VM.POP();
          final Object x = VM.POP();
          VM.PUSH(x);
          VM.PUSH(new Thunk(new myS$1(g, x)));
          return f;
        }
      }
      class myS$1 extends Code {
        final Object g;
        final Object x;
        public myS$1 (Object _g_, Object _x_) {
          g = _g_;
          x = _x_;
        }
        public Object ENTER () {
          VM.PUSH(x);
          return g;
        }
      }
      189393d1
    • AndyGill's avatar
      [project @ 2000-05-11 07:10:11 by andy] · 53a7fa7d
      AndyGill authored
      First attempt at at class lifter for the GHC GOO backend.
      
      This included a cleanup of the Java/GOO abstract syntax
        - Name is now a string, not a list of string
        - Type is used instead of name in some places
            (for example, with new)
        - other minor tweeks.
      
      Andy
      
      ---------
      Example for myS f g x = f x (g x)
      
      public class myS implements Code {
        public Object ENTER () {
          VM.COLLECT(3, this);
          final Object f = VM.POP();
          final Object g = VM.POP();
          final Object x = VM.POP();
          VM.PUSH(x);
          VM.PUSH(new Thunk(new Code(g, x)));
          return f;
        }
      }
      class myS$1 {
        final Object g;
        final Object x;
        public myS$1 (Object _g_, Object _x_) {
          g = _g_;
          x = _x_;
        }
        public Object ENTER () {
          VM.PUSH(x);
          return g;
        }
      }
      53a7fa7d
  2. May 10, 2000
  3. May 09, 2000
  4. May 08, 2000
Loading