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
10 \ * IBM Corporation - initial implementation
11 \ ****************************************************************************/
14 \ CPU node. Pretty minimal...
19 : pvr>name s" PowerPC," rot 10 rshift CASE
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 ;
27 pvr@ pvr>name device-name
30 my-space encode-int s" reg" property
32 tb-frequency encode-int s" timebase-frequency" property
33 cpu-frequency encode-int s" clock-frequency" property
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