m3front/src/exprs/DivExpr.i3


 Copyright (C) 1992, Digital Equipment Corporation           
 All rights reserved.                                        
 See the file COPYRIGHT for a full description.              

File: DivExpr.i3 Last Modified On Thu Dec 15 13:46:12 PST 1994 By kalsow

INTERFACE DivExpr;

IMPORT Expr, Target;

PROCEDURE New (a, b: Expr.T): Expr.T;

PROCEDURE SmallPowerOfTwo (READONLY x: Target.Int;  VAR log: INTEGER): BOOLEAN;
If 'x' is a small positive power of 2, sets 'log' to the base 2 logorithm of 'x' and returns 'TRUE', otherwise returns 'FALSE'

END DivExpr.