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

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.