Return to pci-aliases.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof

Annotation of qemu/roms/SLOF/board-qemu/slof/pci-aliases.fs, revision 1.1.1.1

1.1       root        1: \ *****************************************************************************
                      2: \ * Copyright (c) 2004, 2011 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: \ Starting alias number for net devices after the onboard devices.
                     14: 0 VALUE pci-net-num
                     15: \ Starting alias number for disks after the onboard devices.
                     16: 0 VALUE pci-disk-num
                     17: \ Starting alias number for cdroms after the onboard devices.
                     18: 0 VALUE pci-cdrom-num
                     19: 
                     20: \ define a new alias for this device
                     21: : pci-set-alias ( str-addr str-len num -- )
                     22:         $cathex strdup       \ create alias name
                     23:         get-node node>path   \ get path string
                     24:         set-alias            \ and set the alias
                     25: ;
                     26: 
                     27: \ define a new net alias
                     28: : unknown-enet ( -- pci-net-num )
                     29:        pci-net-num dup 1+ TO pci-net-num
                     30: ;
                     31: : pci-alias-net ( config-addr -- )
                     32:         drop                                   \ forget the config address
                     33:         pci-net-num dup 1+ TO pci-net-num      \ increase the pci-net-num
                     34:         s" net" rot pci-set-alias              \ create the alias
                     35: ;
                     36: 
                     37: \ define a new disk alias
                     38: : pci-alias-disk ( config-addr -- )
                     39:         drop                                    \ forget the config address
                     40:         pci-disk-num dup 1+ TO pci-disk-num     \ increase the pci-disk-num
                     41:         s" disk" rot pci-set-alias              \ create the alias
                     42: ;
                     43: \ define a new cdrom alias
                     44: : pci-alias-cdrom ( config-addr -- )
                     45:         drop                                    \ forget the config address
                     46:         pci-cdrom-num dup 1+ TO pci-cdrom-num     \ increase the pci-cdrom-num
                     47:         s" cdrom" rot pci-set-alias              \ create the alias
                     48: ;
                     49: 
                     50: \ define the alias for the calling device
                     51: : pci-alias ( config-addr -- )
                     52:         dup pci-class@ 
                     53:         10 rshift CASE
                     54:                 01 OF   pci-alias-disk ENDOF
                     55:                 02 OF   pci-alias-net  ENDOF
                     56:                dup OF   drop           ENDOF
                     57:         ENDCASE
                     58: ;

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