Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*> UNSAFE MODULE; PROCEDURE PaintPrivate CommandLength (cptr: CommandPtr): INTEGER = BEGIN IF cptr.command <= PaintCommand.TrapCom THEN RETURN ComSize[cptr.command] ELSE WITH varSzPtr = LOOPHOLE(cptr, VarSzPtr) DO RETURN varSzPtr^.szOfRec END END END CommandLength; VAR x := 1; p := LOOPHOLE(ADR(x), UNTRACED REF CHAR); BEGIN HostByteOrder := VAL(ORD(p^), ByteOrder) END PaintPrivate.