Return to hvcall.code CVS log

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

Annotation of qemu/roms/SLOF/lib/libhvcall/hvcall.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 <libhvcall.h>
                     13: 
                     14: // : hv-putchar ( char -- )
                     15: PRIM(hv_X2d_putchar)
                     16:        char c = TOS.n; POP;
                     17:        hv_putchar(c);
                     18: MIRP
                     19: 
                     20: // : hv-getchar ( -- char )
                     21: PRIM(hv_X2d_getchar)
                     22:        PUSH;
                     23:        TOS.n = hv_getchar();
                     24: MIRP
                     25: 
                     26: // : hv-haschar ( -- res )
                     27: PRIM(hv_X2d_haschar)
                     28:        PUSH;
                     29:        TOS.n = hv_haschar();
                     30: MIRP
                     31: 
                     32: // : hv-reg-crq ( unit qaddr qsize -- res )
                     33: PRIM(hv_X2d_reg_X2d_crq)
                     34:        unsigned long qsize = TOS.u; POP;
                     35:        unsigned long qaddr = TOS.u; POP;
                     36:        unsigned int unit = TOS.u;
                     37:        TOS.n = hv_reg_crq(unit, qaddr, qsize);
                     38: MIRP
                     39: 
                     40: // : hv-free-crq ( unit -- )
                     41: PRIM(hv_X2d_free_X2d_crq)
                     42:        unsigned int unit = TOS.u; POP;
                     43:        hv_free_crq(unit);
                     44: MIRP
                     45: 
                     46: // : hv-send-crq ( unit msgaddr -- rc )
                     47: PRIM(hv_X2d_send_X2d_crq)
                     48:        uint64_t *msgaddr = (uint64_t *)TOS.u; POP;
                     49:        unsigned int unit = TOS.u;
                     50:        TOS.n = hv_send_crq(unit, msgaddr);
                     51: MIRP

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