qemu/roms/SLOF/board-js2x/slof/cpu.fs

   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
  14 \ CPU node.  Pretty minimal...
  15
  16 ( cpu# -- )
  17 new-device  set-space
  18
  19 : pvr>name  s" PowerPC," rot 10 rshift CASE
  20             39 OF s" 970"   ENDOF
  21             3c OF s" 970FX" ENDOF
  22             44 OF 1 my-space 1 xor lshift cpu-mask @ and IF
  23                   s" 970MP" ELSE s" 970GX" THEN ENDOF
  24                   \ On GX CPUs, the sibling is missing, numbering is the same.
  25        dup dup OF 0 <# # # # # [char] # hold #> ENDOF ENDCASE $cat ;
  26
  27 pvr@ pvr>name device-name
  28 s" cpu" device-type
  29
  30 my-space encode-int s" reg" property
  31
  32 tb-frequency  encode-int s" timebase-frequency" property
  33 cpu-frequency encode-int s" clock-frequency" property
  34
  35  8000 encode-int s" d-cache-size"      property
  36    80 encode-int s" d-cache-line-size" property
  37 10000 encode-int s" i-cache-size"      property
  38    80 encode-int s" i-cache-line-size" property
  39
  40 : open  true ;
  41 : close ;
  42
  43
  44 finish-device