| \ ***************************************************************************** |
| \ * Copyright (c) 2011 IBM Corporation |
| \ * All rights reserved. |
| \ * This program and the accompanying materials |
| \ * are made available under the terms of the BSD License |
| \ * which accompanies this distribution, and is available at |
| \ * http://www.opensource.org/licenses/bsd-license.php |
| \ * |
| \ * Contributors: |
| \ * IBM Corporation - initial implementation |
| \ ****************************************************************************/ |
| |
| 1000 VALUE size |
| : ibm,client-architecture-support ( vec -- err? ) |
| \ Store require parameters in nvram |
| \ to come back to right boot device |
| \ Allocate memory for H_CALL |
| size alloc-mem ( vec memaddr ) |
| swap over size ( memaddr vec memaddr size ) |
| \ make h_call to hypervisor |
| hv-cas 0= IF ( memaddr ) |
| dup l@ 1 >= IF \ Version number >= 1 |
| \ Make required changes |
| " /" find-node set-node |
| dup 4 + fdt-init |
| fdt-check-header |
| fdt-struct fdt-fix-cas-node |
| THEN |
| FALSE |
| ELSE |
| TRUE |
| THEN |
| >r size free-mem r> |
| ; |