| 123456789101112131415161718192021222324252627282930313233343536 |
- %
- % NON-KL-COMP.SL - Patches to compiler for KI processor
- %
- % Author: Eric Benson
- % Symbolic Computation Group
- % Computer Science Dept.
- % University of Utah
- % Date: 10 May 1982
- % Copyright (c) 1982 University of Utah
- %
- % <PSL.COMP-20>NON-KL-COMP.SL.6, 13-Oct-82 13:39:27, Edit by BENSON
- % Removed unnecessary patch of floating point arith for DMOVE
- (setq system_list* (delete 'KL10 system_list*))_
- (DefCMacro !*Alloc
- ((ZeroP))
- ((add (REG st) (lit (halfword ARGONE ARGONE)))
- (jumpge (REG st) (Entry StackOverflow))))
- (DefCMacro !*DeAlloc
- ((ZeroP))
- ((sub (REG st) (lit (halfword ARGONE ARGONE)))))
- (ForEach X in '(Byte PutByte HalfWord PutHalfWord BitTable PutBitTable) do
- (RemProp X 'OpenCode)
- (RemProp X 'Destroys))
- (RemProp 'AdjustStackPointer 'OpenFn)
- (dm AdjustStackPointer (U)
- (list 'WPlus2
- (cadr U)
- (list 'WPlus2 (caddr U) (list 'WShift (caddr U) 18))))
|
