slof/fs/fcode/little-big.fs

\ *****************************************************************************
\ * Copyright (c) 2004, 2011 IBM Corporation
\ * All rights reserved.
\ * This program and the accompanying materials
\ * are made available under the terms of the BSD License
\ * which accompanies this distribution, and is available at
\ * http://www.opensource.org/licenses/bsd-license.php
\ *
\ * Contributors:
\ *     IBM Corporation - initial implementation
\ ****************************************************************************/

\ little- and big-endian FCODE IP access functions


?bigendian [IF]                       \ Big endian access functions first


: read-fcode-num16 ( -- n )
   0 fcode-num !
   ?arch64 IF
      read-byte fcode-num 6 + C!
      next-ip
      read-byte fcode-num 7 + C!
   ELSE
      read-byte fcode-num 2 + C!
      next-ip
      read-byte fcode-num 3 + C!
   THEN
   fcode-num @
;

: read-fcode-num32 ( -- n )
   0 fcode-num !
   ?arch64 IF
      read-byte fcode-num 4 + C!
      next-ip
      read-byte fcode-num 5 + C!
      next-ip
      read-byte fcode-num 6 + C!
      next-ip
      read-byte fcode-num 7 + C!
   ELSE
      read-byte fcode-num 0 + C!
      next-ip
      read-byte fcode-num 1 + C!
      next-ip
      read-byte fcode-num 2 + C!
      next-ip
      read-byte fcode-num 3 + C!
   THEN
   fcode-num @
;


[ELSE]                                \ Now the little endian access functions


: read-fcode-num16 ( -- n )
   0 fcode-num !
   ?arch64 IF
      read-byte fcode-num 7 + C!
      next-ip
      read-byte fcode-num 6 + C!
   ELSE
      read-byte fcode-num 1 + C!
      next-ip
      read-byte fcode-num 0 + C!
   THEN
   fcode-num @
;

: read-fcode-num32 ( adr -- n )
   0 fcode-num !
   ?arch64 IF
      read-byte fcode-num 7 + C!
      next-ip
      read-byte fcode-num 6 + C!
      next-ip
      read-byte fcode-num 5 + C!
      next-ip
      read-byte fcode-num 4 + C!
   ELSE
      read-byte fcode-num 3 + C!
      next-ip
      read-byte fcode-num 2 + C!
      next-ip
      read-byte fcode-num 1 + C!
      next-ip
      read-byte fcode-num 0 + C!
   THEN
   fcode-num @
;


[THEN]