ui/src/vbt/PaintPrivate.m3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman, Mark Manasse and Greg Nelson           
<*PRAGMA LL*>

UNSAFE MODULE PaintPrivate;

PROCEDURE 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.