2N/A * The contents of this file are subject to the terms of the 2N/A * Common Development and Distribution License, Version 1.0 only 2N/A * (the "License"). You may not use this file except in compliance 2N/A * See the License for the specific language governing permissions 2N/A * and limitations under the License. 2N/A * When distributing Covered Code, include this CDDL HEADER in each 2N/A * If applicable, add the following below this CDDL HEADER, with the 2N/A * fields enclosed by brackets "[]" replaced with your own identifying 2N/A * information: Portions Copyright [yyyy] [name of copyright owner] 2N/A * Copyright (c) 2000 by Sun Microsystems, Inc. 2N/A * All rights reserved. 2N/A#
pragma ident "%Z%%M% %I% %E% SMI" 2N/A * do-builtin-dropin ( -- ) 2N/A * Convoluted name just in case someone has "do-dropin" word in Fcode. 2N/A * Somewhat different from do-dropin in OBP, as we just load the Fcode, we 2N/A * don't do a byte-load. 2N/A * We need to lookup the builtin name via an FC_RUN_PRIV call to make sure 2N/A * the builtin exists. If it exists, then we need to leave the xt of 2N/A * do-builtin-dropin on the stack and remember the name for do-dropin. This is 2N/A * extremely convoluted because we can't a priori populate 2N/A * SUNW,builtin-drivers. 2N/A * Check for file in filesystem. If it exists, we'll just try to do 2N/A * find-builtin-driver ( str len -- xt true | false ) 2N/A * Check for file in filesystem. If it exists, we'll just try to do