|
|
1.1 ! root 1: #include "../h/rt.h" ! 2: ! 3: /* ! 4: * .x - produce value of x by dereferencing it. ! 5: */ ! 6: ! 7: value(nargs, arg1, arg0) ! 8: int nargs; ! 9: struct descrip arg1, arg0; ! 10: { ! 11: DclSave ! 12: SetBound; ! 13: arg0 = arg1; ! 14: DeRef(arg0) ! 15: ClearBound; ! 16: } ! 17: ! 18: Opblock(value,1,".")
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.