Return to big.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / fcode

Annotation of qemu/roms/SLOF/slof/fs/fcode/big.fs, revision 1.1

1.1     ! root        1: \ *****************************************************************************
        !             2: \ * Copyright (c) 2004, 2008 IBM Corporation
        !             3: \ * All rights reserved.
        !             4: \ * This program and the accompanying materials
        !             5: \ * are made available under the terms of the BSD License
        !             6: \ * which accompanies this distribution, and is available at
        !             7: \ * http://www.opensource.org/licenses/bsd-license.php
        !             8: \ *
        !             9: \ * Contributors:
        !            10: \ *     IBM Corporation - initial implementation
        !            11: \ ****************************************************************************/
        !            12: 
        !            13: \ big-endian
        !            14: 
        !            15: ( ---------------------------------------------------- )
        !            16: 
        !            17: : read-fcode-num16 ( -- n )
        !            18:   0 fcode-num !
        !            19:   ?arch64 IF
        !            20:                        read-byte fcode-num 6 + C!
        !            21:                next-ip read-byte fcode-num 7 + C!
        !            22:           ELSE
        !            23:                        read-byte fcode-num 2 + C!
        !            24:                next-ip read-byte fcode-num 3 + C!
        !            25:                  THEN
        !            26:   fcode-num @
        !            27:   ;
        !            28: 
        !            29: : read-fcode-num32 ( -- n )
        !            30:   0 fcode-num !
        !            31:   ?arch64 IF
        !            32:                                          read-byte fcode-num 4 + C!
        !            33:                          next-ip read-byte fcode-num 5 + C!
        !            34:                          next-ip read-byte fcode-num 6 + C!
        !            35:                          next-ip read-byte fcode-num 7 + C!
        !            36:           ELSE
        !            37:                                          read-byte fcode-num 0 + C!
        !            38:                          next-ip read-byte fcode-num 1 + C!
        !            39:                          next-ip read-byte fcode-num 2 + C!
        !            40:                          next-ip read-byte fcode-num 3 + C!
        !            41:                  THEN
        !            42:   fcode-num @
        !            43:   ;
        !            44: 
        !            45: ( ---------------------------------------------------- )

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.