Return to bootmsg.code CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / lib / libbootmsg

Annotation of qemu/roms/SLOF/lib/libbootmsg/bootmsg.code, 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: #include <libbootmsg.h>
                     13: 
                     14: // : cp ( cp-id -- )
                     15: PRIM(bootmsg_X2d_cp)
                     16:        int cpid = TOS.n; POP;
                     17:        bootmsg_cp(cpid);
                     18: MIRP
                     19: 
                     20: // : bootmsg-warning ( cp-id lvl pstr -- )
                     21: PRIM(bootmsg_X2d_warning)
                     22:        char* str = TOS.a; POP;
                     23:        short lvl = TOS.n; POP;
                     24:        short cpid = TOS.n; POP;
                     25:        bootmsg_warning(cpid, (const char*)str, lvl);
                     26: MIRP
                     27: 
                     28: // : bootmsg-error ( cp-id pstr -- )
                     29: PRIM(bootmsg_X2d_error)
                     30:        char* str = TOS.a; POP;
                     31:        short cpid = TOS.n; POP;
                     32:        bootmsg_error(cpid, (const char*)str);
                     33: MIRP
                     34: 
                     35: // : bootmsg-debugcp ( cp-id lvl pstr -- )
                     36: PRIM(bootmsg_X2d_debugcp)
                     37:        char* str = TOS.a; POP;
                     38:        short lvl = TOS.n; POP;
                     39:        short cpid = TOS.n; POP;
                     40:        bootmsg_debugcp(cpid, (const char*)str, lvl);
                     41: MIRP
                     42: 
                     43: // : bootmsg-setlevel ( area lvl -- )
                     44: PRIM(bootmsg_X2d_setlevel)
                     45:        char lvl = TOS.n; POP;
                     46:        short area = TOS.n; POP;
                     47:        bootmsg_setlevel(area, lvl);
                     48: MIRP
                     49: 
                     50: // : bootmsg-checklevel ( area lvl -- [true|false] )
                     51: PRIM(bootmsg_X2d_checklevel)
                     52:        char lvl = TOS.n; POP;
                     53:        short area = TOS.n; POP;
                     54:        PUSH;
                     55:        TOS.n = (bootmsg_checklevel(area, lvl)) ? -1 : 0;
                     56: MIRP
                     57: 
                     58: // : bootmsg-nvupdate ( -- )
                     59: PRIM(bootmsg_X2d_nvupdate)
                     60:        bootmsg_nvupdate();
                     61: MIRP

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