1*45760Sbostic /*- 2*45760Sbostic * Copyright (c) 1986 The Regents of the University of California. 3*45760Sbostic * All rights reserved. 4*45760Sbostic * 5*45760Sbostic * This code is derived from software contributed to Berkeley by 6*45760Sbostic * Computer Consoles Inc. 7*45760Sbostic * 8*45760Sbostic * %sccs.include.redist.c% 9*45760Sbostic * 10*45760Sbostic * @(#)Aldfd.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229613Ssam 1345699Sbostic #include "align.h" ldfd(infop)1429613Ssamldfd(infop) process_info *infop; 1529613Ssam /* 1629613Ssam /* Load into accumulator float operand converted to double. 1729613Ssam /* 1829613Ssam /***************************************************************/ 1929613Ssam { 2029613Ssam register struct oprnd *oprnd_pnt; 2129613Ssam 2229613Ssam oprnd_pnt = operand(infop,0); 2329613Ssam if ( reserved( oprnd_pnt->data ) ) 2429613Ssam exception(infop, ILL_OPRND); 2529613Ssam acc_high = oprnd_pnt->data ; 2629613Ssam acc_low = 0; 2729613Ssam psl |= PSL_DBL; 2829613Ssam infop->acc_dbl = 1; 2929613Ssam } 30