Return to pci-aliases.fs CVS log

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

Annotation of qemu/roms/SLOF/board-js2x/slof/pci-aliases.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: \ Starting alias number for net devices after the onboard devices.
                     14: 2 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:        u3? IF
                     33:                pci-device-vec c@ CASE 
                     34:                2 OF pci-device-vec-len 1 >= IF  
                     35:                                        pci-device-vec 1+ c@ CASE 
                     36:                                                1 OF dup pci-addr2fn 1 >= IF 1 ELSE 0 THEN  ENDOF 
                     37:                                                dup OF  unknown-enet ENDOF
                     38:                                        ENDCASE
                     39:                                ELSE
                     40:                                        unknown-enet
                     41:                                THEN
                     42:                        ENDOF
                     43:                        dup OF unknown-enet  ENDOF      
                     44:                ENDCASE
                     45:        ELSE
                     46:                pci-device-vec c@ CASE 
                     47:                2 OF pci-device-vec-len 1 >= IF  
                     48:                                        pci-device-vec 1+ c@ CASE 
                     49:                                                4 OF dup pci-addr2fn 1 >= IF 1 ELSE 0 THEN  ENDOF 
                     50:                                                dup OF  unknown-enet ENDOF
                     51:                                        ENDCASE
                     52:                                ELSE
                     53:                                        unknown-enet
                     54:                                THEN
                     55:                        ENDOF
                     56:                        dup OF unknown-enet  ENDOF      
                     57:                ENDCASE
                     58:        THEN
                     59:        swap drop                               \ forget the config address
                     60: 
                     61:         s" net" rot pci-set-alias              \ create the alias
                     62: ;
                     63: 
                     64: \ define a new disk alias
                     65: : pci-alias-disk ( config-addr -- )
                     66:         drop                                    \ forget the config address
                     67:         pci-disk-num dup 1+ TO pci-disk-num     \ increase the pci-disk-num
                     68:         s" disk" rot pci-set-alias              \ create the alias
                     69: ;
                     70: \ define a new cdrom alias
                     71: : pci-alias-cdrom ( config-addr -- )
                     72:         drop                                    \ forget the config address
                     73:         pci-cdrom-num dup 1+ TO pci-cdrom-num     \ increase the pci-cdrom-num
                     74:         s" cdrom" rot pci-set-alias              \ create the alias
                     75: ;
                     76: 
                     77: \ define the alias for the calling device
                     78: : pci-alias ( config-addr -- )
                     79:         dup pci-class@ 
                     80:         10 rshift CASE
                     81:                 01 OF   pci-alias-disk ENDOF
                     82:                 02 OF   pci-alias-net  ENDOF
                     83:                dup OF   drop           ENDOF
                     84:         ENDCASE
                     85: ;

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