2N/A * The contents of this file are subject to the terms of the 2N/A * Common Development and Distribution License (the "License"). 2N/A * You may not use this file except in compliance with the License. 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, 2012, Oracle and/or its affiliates. All rights reserved. 2N/A * Logical or DOES NOT guarantee left to right evaluation... 2N/A * Logical or DOES NOT guarantee left to right evaluation... 2N/A * We look down the stack for a branch location 2N/A * that isn't pointing to zero (i.e. a forward branch label). 2N/A * We move the first one we find to the top of the stack, 2N/A * which is what gets compiled in with 'compile_comma'. 2N/A * Not finding a valid branch label is bad. 2N/A "no branch loc on stack\n");
2N/A /* Move branch_loc to top of data stack */ 2N/A /* Now form the entry in the dictionary */ 2N/A /* save any existing interpret state */ 2N/A "%s: %04x %03x %s (%x)",
2N/A "Compile" :
"Execute",
2N/A /* Compile in references */ 2N/A /* restore old state */ 2N/A /* We are Version 3.0 */ 2N/A * (is-user-word) ( name-str name-len xt -- ) 2N/A/* md-next-prop ( md-node-handle md-prop-handle -- md-prop-handle' | 0 ) */ 2N/A /* Call it "old-dma-alloc" so no one gets confused */