Search
lxdream.org :: lxdream/src/sh4/ia32abi.h
lxdream 0.9.1
released Jun 29
Download Now
filename src/sh4/ia32abi.h
changeset 944:a4e31314bee1
prev939:6f2302afeb89
next947:aa80962d6439
author nkeynes
date Mon Jan 05 04:17:20 2009 +0000 (13 years ago)
branchlxdream-mem
permissions -rw-r--r--
last change Actually use sh4_user_address_space for user code
file annotate diff log raw
nkeynes@539
     1
/**
nkeynes@586
     2
 * $Id$
nkeynes@539
     3
 * 
nkeynes@926
     4
 * Provides the implementation for the ia32 ABI variant 
nkeynes@926
     5
 * (eg prologue, epilogue, and calling conventions). Stack frame is
nkeynes@926
     6
 * aligned on 16-byte boundaries for the benefit of OS X (which 
nkeynes@926
     7
 * requires it).
nkeynes@539
     8
 *
nkeynes@539
     9
 * Copyright (c) 2007 Nathan Keynes.
nkeynes@539
    10
 *
nkeynes@539
    11
 * This program is free software; you can redistribute it and/or modify
nkeynes@539
    12
 * it under the terms of the GNU General Public License as published by
nkeynes@539
    13
 * the Free Software Foundation; either version 2 of the License, or
nkeynes@539
    14
 * (at your option) any later version.
nkeynes@539
    15
 *
nkeynes@539
    16
 * This program is distributed in the hope that it will be useful,
nkeynes@539
    17
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
nkeynes@539
    18
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
nkeynes@539
    19
 * GNU General Public License for more details.
nkeynes@539
    20
 */
nkeynes@539
    21
nkeynes@926
    22
#ifndef lxdream_ia32mac_H
nkeynes@926
    23
#define lxdream_ia32mac_H 1
nkeynes@539
    24
nkeynes@539
    25
#define load_ptr( reg, ptr ) load_imm32( reg, (uint32_t)ptr );
nkeynes@539
    26
nkeynes@930
    27
static inline decode_address( int addr_reg )
nkeynes@930
    28
{
nkeynes@944
    29
    uintptr_t base = (sh4r.xlat_sh4_mode&SR_MD) ? (uintptr_t)sh4_address_space : (uintptr_t)sh4_user_address_space;
nkeynes@930
    30
    MOV_r32_r32( addr_reg, R_ECX ); 
nkeynes@930
    31
    SHR_imm8_r32( 12, R_ECX ); 
nkeynes@944
    32
    MOV_r32disp32x4_r32( R_ECX, base, R_ECX );
nkeynes@930
    33
}
nkeynes@930
    34
nkeynes@539
    35
/**
nkeynes@539
    36
 * Note: clobbers EAX to make the indirect call - this isn't usually
nkeynes@539
    37
 * a problem since the callee will usually clobber it anyway.
nkeynes@539
    38
 */
nkeynes@539
    39
static inline void call_func0( void *ptr )
nkeynes@539
    40
{
nkeynes@926
    41
    CALL_ptr(ptr);
nkeynes@539
    42
}
nkeynes@539
    43
nkeynes@905
    44
#ifdef HAVE_FASTCALL
nkeynes@905
    45
static inline void call_func1( void *ptr, int arg1 )
nkeynes@905
    46
{
nkeynes@905
    47
    if( arg1 != R_EAX ) {
nkeynes@905
    48
        MOV_r32_r32( arg1, R_EAX );
nkeynes@905
    49
    }
nkeynes@926
    50
    CALL_ptr(ptr);
nkeynes@905
    51
}
nkeynes@905
    52
nkeynes@929
    53
static inline void call_func1_r32( int addr_reg, int arg1 )
nkeynes@929
    54
{
nkeynes@929
    55
    if( arg1 != R_EAX ) {
nkeynes@929
    56
        MOV_r32_r32( arg1, R_EAX );
nkeynes@929
    57
    }
nkeynes@929
    58
    CALL_r32(addr_reg);
nkeynes@929
    59
}
nkeynes@929
    60
nkeynes@930
    61
static inline void call_func1_r32disp8( int preg, uint32_t disp8, int arg1 )
nkeynes@929
    62
{
nkeynes@929
    63
    if( arg1 != R_EAX ) {
nkeynes@929
    64
        MOV_r32_r32( arg1, R_EAX );
nkeynes@929
    65
    }
nkeynes@930
    66
    CALL_r32disp8(preg, disp8);
nkeynes@929
    67
}
nkeynes@929
    68
nkeynes@939
    69
static inline void call_func1_r32disp8_exc( int preg, uint32_t disp8, int arg1, int pc )
nkeynes@939
    70
{
nkeynes@939
    71
    if( arg1 != R_EAX ) {
nkeynes@939
    72
        MOV_r32_r32( arg1, R_EAX );
nkeynes@939
    73
    }
nkeynes@939
    74
    load_exc_backpatch(R_EDX);
nkeynes@939
    75
    CALL_r32disp8(preg, disp8);
nkeynes@939
    76
}
nkeynes@939
    77
nkeynes@905
    78
static inline void call_func2( void *ptr, int arg1, int arg2 )
nkeynes@905
    79
{
nkeynes@905
    80
    if( arg2 != R_EDX ) {
nkeynes@905
    81
        MOV_r32_r32( arg2, R_EDX );
nkeynes@905
    82
    }
nkeynes@905
    83
    if( arg1 != R_EAX ) {
nkeynes@905
    84
        MOV_r32_r32( arg1, R_EAX );
nkeynes@905
    85
    }
nkeynes@926
    86
    CALL_ptr(ptr);
nkeynes@905
    87
}
nkeynes@905
    88
nkeynes@929
    89
static inline void call_func2_r32( int addr_reg, int arg1, int arg2 )
nkeynes@929
    90
{
nkeynes@929
    91
    if( arg2 != R_EDX ) {
nkeynes@929
    92
        MOV_r32_r32( arg2, R_EDX );
nkeynes@929
    93
    }
nkeynes@929
    94
    if( arg1 != R_EAX ) {
nkeynes@929
    95
        MOV_r32_r32( arg1, R_EAX );
nkeynes@929
    96
    }
nkeynes@929
    97
    CALL_r32(addr_reg);
nkeynes@929
    98
}
nkeynes@929
    99
nkeynes@930
   100
static inline void call_func2_r32disp8( int preg, uint32_t disp8, int arg1, int arg2 )
nkeynes@929
   101
{
nkeynes@929
   102
    if( arg2 != R_EDX ) {
nkeynes@929
   103
        MOV_r32_r32( arg2, R_EDX );
nkeynes@929
   104
    }
nkeynes@929
   105
    if( arg1 != R_EAX ) {
nkeynes@929
   106
        MOV_r32_r32( arg1, R_EAX );
nkeynes@929
   107
    }
nkeynes@930
   108
    CALL_r32disp8(preg, disp8);
nkeynes@929
   109
}
nkeynes@929
   110
nkeynes@939
   111
static inline void call_func2_r32disp8_exc( int preg, uint32_t disp8, int arg1, int arg2, int pc )
nkeynes@939
   112
{
nkeynes@939
   113
    if( arg2 != R_EDX ) {
nkeynes@939
   114
        MOV_r32_r32( arg2, R_EDX );
nkeynes@939
   115
    }
nkeynes@939
   116
    if( arg1 != R_EAX ) {
nkeynes@939
   117
        MOV_r32_r32( arg1, R_EAX );
nkeynes@939
   118
    }
nkeynes@939
   119
    MOV_backpatch_esp8( 0 );
nkeynes@939
   120
    CALL_r32disp8(preg, disp8);
nkeynes@939
   121
}
nkeynes@939
   122
nkeynes@929
   123
nkeynes@929
   124
nkeynes@927
   125
static inline void call_func1_exc( void *ptr, int arg1, int pc )
nkeynes@927
   126
{
nkeynes@927
   127
    if( arg1 != R_EAX ) {
nkeynes@927
   128
        MOV_r32_r32( arg1, R_EAX );
nkeynes@927
   129
    }
nkeynes@927
   130
    load_exc_backpatch(R_EDX);
nkeynes@927
   131
    CALL_ptr(ptr);
nkeynes@927
   132
}   
nkeynes@927
   133
nkeynes@927
   134
static inline void call_func2_exc( void *ptr, int arg1, int arg2, int pc )
nkeynes@927
   135
{
nkeynes@927
   136
    if( arg2 != R_EDX ) {
nkeynes@927
   137
        MOV_r32_r32( arg2, R_EDX );
nkeynes@927
   138
    }
nkeynes@927
   139
    if( arg1 != R_EAX ) {
nkeynes@927
   140
        MOV_r32_r32( arg1, R_EAX );
nkeynes@927
   141
    }
nkeynes@927
   142
    load_exc_backpatch(R_ECX);
nkeynes@927
   143
    CALL_ptr(ptr);
nkeynes@927
   144
}
nkeynes@927
   145
nkeynes@905
   146
#else
nkeynes@539
   147
static inline void call_func1( void *ptr, int arg1 )
nkeynes@539
   148
{
nkeynes@926
   149
    SUB_imm8s_r32( 12, R_ESP );
nkeynes@539
   150
    PUSH_r32(arg1);
nkeynes@926
   151
    CALL_ptr(ptr);
nkeynes@926
   152
    ADD_imm8s_r32( 16, R_ESP );
nkeynes@539
   153
}
nkeynes@539
   154
nkeynes@539
   155
static inline void call_func2( void *ptr, int arg1, int arg2 )
nkeynes@539
   156
{
nkeynes@926
   157
    SUB_imm8s_r32( 8, R_ESP );
nkeynes@539
   158
    PUSH_r32(arg2);
nkeynes@539
   159
    PUSH_r32(arg1);
nkeynes@926
   160
    CALL_ptr(ptr);
nkeynes@926
   161
    ADD_imm8s_r32( 16, R_ESP );
nkeynes@539
   162
}
nkeynes@539
   163
nkeynes@905
   164
#endif
nkeynes@539
   165
nkeynes@539
   166
/**
nkeynes@539
   167
 * Emit the 'start of block' assembly. Sets up the stack frame and save
nkeynes@539
   168
 * SI/DI as required
nkeynes@926
   169
 * Allocates 8 bytes for local variables, which also has the convenient
nkeynes@926
   170
 * side-effect of aligning the stack.
nkeynes@539
   171
 */
nkeynes@901
   172
void enter_block( ) 
nkeynes@539
   173
{
nkeynes@539
   174
    PUSH_r32(R_EBP);
nkeynes@669
   175
    load_ptr( R_EBP, ((uint8_t *)&sh4r) + 128 );
nkeynes@930
   176
    SUB_imm8s_r32( 8, R_ESP ); 
nkeynes@926
   177
}
nkeynes@736
   178
nkeynes@926
   179
static inline void exit_block( )
nkeynes@926
   180
{
nkeynes@930
   181
    ADD_imm8s_r32( 8, R_ESP );
nkeynes@926
   182
    POP_r32(R_EBP);
nkeynes@926
   183
    RET();
nkeynes@539
   184
}
nkeynes@539
   185
nkeynes@539
   186
/**
nkeynes@926
   187
 * Exit the block with sh4r.new_pc written with the target pc
nkeynes@539
   188
 */
nkeynes@586
   189
void exit_block_pcset( sh4addr_t pc )
nkeynes@539
   190
{
nkeynes@539
   191
    load_imm32( R_ECX, ((pc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5
nkeynes@539
   192
    ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) );    // 6
nkeynes@590
   193
    load_spreg( R_EAX, R_PC );
nkeynes@590
   194
    if( sh4_x86.tlb_on ) {
nkeynes@736
   195
        call_func1(xlat_get_code_by_vma,R_EAX);
nkeynes@590
   196
    } else {
nkeynes@736
   197
        call_func1(xlat_get_code,R_EAX);
nkeynes@926
   198
    }
nkeynes@926
   199
    exit_block();
nkeynes@590
   200
}
nkeynes@590
   201
nkeynes@590
   202
/**
nkeynes@590
   203
 * Exit the block with sh4r.new_pc written with the target pc
nkeynes@590
   204
 */
nkeynes@590
   205
void exit_block_newpcset( sh4addr_t pc )
nkeynes@590
   206
{
nkeynes@590
   207
    load_imm32( R_ECX, ((pc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5
nkeynes@590
   208
    ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) );    // 6
nkeynes@590
   209
    load_spreg( R_EAX, R_NEW_PC );
nkeynes@590
   210
    store_spreg( R_EAX, R_PC );
nkeynes@586
   211
    if( sh4_x86.tlb_on ) {
nkeynes@736
   212
        call_func1(xlat_get_code_by_vma,R_EAX);
nkeynes@586
   213
    } else {
nkeynes@736
   214
        call_func1(xlat_get_code,R_EAX);
nkeynes@926
   215
    }
nkeynes@926
   216
    exit_block();
nkeynes@539
   217
}
nkeynes@539
   218
nkeynes@586
   219
nkeynes@539
   220
/**
nkeynes@539
   221
 * Exit the block to an absolute PC
nkeynes@539
   222
 */
nkeynes@926
   223
void exit_block_abs( sh4addr_t pc, sh4addr_t endpc )
nkeynes@539
   224
{
nkeynes@539
   225
    load_imm32( R_ECX, pc );                            // 5
nkeynes@539
   226
    store_spreg( R_ECX, REG_OFFSET(pc) );               // 3
nkeynes@586
   227
    if( IS_IN_ICACHE(pc) ) {
nkeynes@736
   228
        MOV_moff32_EAX( xlat_get_lut_entry(GET_ICACHE_PHYS(pc)) ); // 5
nkeynes@926
   229
        AND_imm8s_r32( 0xFC, R_EAX ); // 3
nkeynes@586
   230
    } else if( sh4_x86.tlb_on ) {
nkeynes@736
   231
        call_func1(xlat_get_code_by_vma,R_ECX);
nkeynes@586
   232
    } else {
nkeynes@736
   233
        call_func1(xlat_get_code,R_ECX);
nkeynes@586
   234
    }
nkeynes@586
   235
    load_imm32( R_ECX, ((endpc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5
nkeynes@586
   236
    ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) );     // 6
nkeynes@926
   237
    exit_block();
nkeynes@586
   238
}
nkeynes@586
   239
nkeynes@586
   240
/**
nkeynes@586
   241
 * Exit the block to a relative PC
nkeynes@586
   242
 */
nkeynes@586
   243
void exit_block_rel( sh4addr_t pc, sh4addr_t endpc )
nkeynes@586
   244
{
nkeynes@586
   245
    load_imm32( R_ECX, pc - sh4_x86.block_start_pc );   // 5
nkeynes@586
   246
    ADD_sh4r_r32( R_PC, R_ECX );
nkeynes@586
   247
    store_spreg( R_ECX, REG_OFFSET(pc) );               // 3
nkeynes@586
   248
    if( IS_IN_ICACHE(pc) ) {
nkeynes@736
   249
        MOV_moff32_EAX( xlat_get_lut_entry(GET_ICACHE_PHYS(pc)) ); // 5
nkeynes@926
   250
        AND_imm8s_r32( 0xFC, R_EAX ); // 3
nkeynes@586
   251
    } else if( sh4_x86.tlb_on ) {
nkeynes@736
   252
        call_func1(xlat_get_code_by_vma,R_ECX);
nkeynes@586
   253
    } else {
nkeynes@736
   254
        call_func1(xlat_get_code,R_ECX);
nkeynes@586
   255
    }
nkeynes@539
   256
    load_imm32( R_ECX, ((endpc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5
nkeynes@539
   257
    ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) );     // 6
nkeynes@926
   258
    exit_block();
nkeynes@539
   259
}
nkeynes@539
   260
nkeynes@539
   261
/**
nkeynes@539
   262
 * Write the block trailer (exception handling block)
nkeynes@539
   263
 */
nkeynes@539
   264
void sh4_translate_end_block( sh4addr_t pc ) {
nkeynes@539
   265
    if( sh4_x86.branch_taken == FALSE ) {
nkeynes@736
   266
        // Didn't exit unconditionally already, so write the termination here
nkeynes@736
   267
        exit_block_rel( pc, pc );
nkeynes@539
   268
    }
nkeynes@539
   269
    if( sh4_x86.backpatch_posn != 0 ) {
nkeynes@736
   270
        unsigned int i;
nkeynes@736
   271
        // Raise exception
nkeynes@736
   272
        uint8_t *end_ptr = xlat_output;
nkeynes@736
   273
        MOV_r32_r32( R_EDX, R_ECX );
nkeynes@736
   274
        ADD_r32_r32( R_EDX, R_ECX );
nkeynes@736
   275
        ADD_r32_sh4r( R_ECX, R_PC );
nkeynes@736
   276
        MOV_moff32_EAX( &sh4_cpu_period );
nkeynes@736
   277
        MUL_r32( R_EDX );
nkeynes@736
   278
        ADD_r32_sh4r( R_EAX, REG_OFFSET(slice_cycle) );
nkeynes@539
   279
nkeynes@926
   280
        POP_r32(R_EAX);
nkeynes@907
   281
        call_func1( sh4_raise_exception, R_EAX );
nkeynes@736
   282
        load_spreg( R_EAX, R_PC );
nkeynes@736
   283
        if( sh4_x86.tlb_on ) {
nkeynes@736
   284
            call_func1(xlat_get_code_by_vma,R_EAX);
nkeynes@736
   285
        } else {
nkeynes@736
   286
            call_func1(xlat_get_code,R_EAX);
nkeynes@736
   287
        }
nkeynes@926
   288
        exit_block();
nkeynes@539
   289
nkeynes@736
   290
        // Exception already raised - just cleanup
nkeynes@736
   291
        uint8_t *preexc_ptr = xlat_output;
nkeynes@736
   292
        MOV_r32_r32( R_EDX, R_ECX );
nkeynes@736
   293
        ADD_r32_r32( R_EDX, R_ECX );
nkeynes@736
   294
        ADD_r32_sh4r( R_ECX, R_SPC );
nkeynes@736
   295
        MOV_moff32_EAX( &sh4_cpu_period );
nkeynes@736
   296
        MUL_r32( R_EDX );
nkeynes@736
   297
        ADD_r32_sh4r( R_EAX, REG_OFFSET(slice_cycle) );
nkeynes@736
   298
        load_spreg( R_EAX, R_PC );
nkeynes@736
   299
        if( sh4_x86.tlb_on ) {
nkeynes@736
   300
            call_func1(xlat_get_code_by_vma,R_EAX);
nkeynes@736
   301
        } else {
nkeynes@736
   302
            call_func1(xlat_get_code,R_EAX);
nkeynes@736
   303
        }
nkeynes@926
   304
        exit_block();
nkeynes@586
   305
nkeynes@736
   306
        for( i=0; i< sh4_x86.backpatch_posn; i++ ) {
nkeynes@736
   307
            uint32_t *fixup_addr = (uint32_t *)&xlat_current_block->code[sh4_x86.backpatch_list[i].fixup_offset];
nkeynes@736
   308
            if( sh4_x86.backpatch_list[i].exc_code < 0 ) {
nkeynes@927
   309
                if( sh4_x86.backpatch_list[i].exc_code == -2 ) {
nkeynes@927
   310
                    *fixup_addr = (uint32_t)xlat_output;
nkeynes@927
   311
                } else {
nkeynes@927
   312
                    *fixup_addr += xlat_output - (uint8_t *)&xlat_current_block->code[sh4_x86.backpatch_list[i].fixup_offset] - 4;
nkeynes@927
   313
                }
nkeynes@736
   314
                load_imm32( R_EDX, sh4_x86.backpatch_list[i].fixup_icount );
nkeynes@736
   315
                int rel = preexc_ptr - xlat_output;
nkeynes@736
   316
                JMP_rel(rel);
nkeynes@736
   317
            } else {
nkeynes@927
   318
                *fixup_addr += xlat_output - (uint8_t *)&xlat_current_block->code[sh4_x86.backpatch_list[i].fixup_offset] - 4;
nkeynes@736
   319
                PUSH_imm32( sh4_x86.backpatch_list[i].exc_code );
nkeynes@736
   320
                load_imm32( R_EDX, sh4_x86.backpatch_list[i].fixup_icount );
nkeynes@736
   321
                int rel = end_ptr - xlat_output;
nkeynes@736
   322
                JMP_rel(rel);
nkeynes@736
   323
            }
nkeynes@736
   324
        }
nkeynes@539
   325
    }
nkeynes@539
   326
}
nkeynes@539
   327
nkeynes@926
   328
nkeynes@899
   329
/**
nkeynes@899
   330
 * The unwind methods only work if we compiled with DWARF2 frame information
nkeynes@899
   331
 * (ie -fexceptions), otherwise we have to use the direct frame scan.
nkeynes@899
   332
 */
nkeynes@899
   333
#ifdef HAVE_EXCEPTIONS
nkeynes@899
   334
#include <unwind.h>
nkeynes@899
   335
nkeynes@899
   336
struct UnwindInfo {
nkeynes@926
   337
    uintptr_t block_start;
nkeynes@926
   338
    uintptr_t block_end;
nkeynes@926
   339
    void *pc;
nkeynes@899
   340
};
nkeynes@899
   341
nkeynes@899
   342
_Unwind_Reason_Code xlat_check_frame( struct _Unwind_Context *context, void *arg )
nkeynes@899
   343
{
nkeynes@926
   344
    struct UnwindInfo *info = arg;
nkeynes@926
   345
    void *pc = (void *)_Unwind_GetIP(context);
nkeynes@926
   346
    if( ((uintptr_t)pc) >= info->block_start && ((uintptr_t)pc) < info->block_end ) {
nkeynes@926
   347
        info->pc = pc;
nkeynes@899
   348
        return _URC_NORMAL_STOP;
nkeynes@899
   349
    }
nkeynes@899
   350
nkeynes@899
   351
    return _URC_NO_REASON;
nkeynes@899
   352
}
nkeynes@899
   353
nkeynes@906
   354
void *xlat_get_native_pc( void *code, uint32_t code_size )
nkeynes@899
   355
{
nkeynes@899
   356
    struct _Unwind_Exception exc;
nkeynes@899
   357
    struct UnwindInfo info;
nkeynes@899
   358
nkeynes@926
   359
    info.pc = NULL;
nkeynes@926
   360
    info.block_start = (uintptr_t)code;
nkeynes@926
   361
    info.block_end = info.block_start + code_size;
nkeynes@899
   362
    void *result = NULL;
nkeynes@899
   363
    _Unwind_Backtrace( xlat_check_frame, &info );
nkeynes@926
   364
    return info.pc;
nkeynes@899
   365
}
nkeynes@899
   366
#else 
nkeynes@906
   367
void *xlat_get_native_pc( void *code, uint32_t code_size )
nkeynes@586
   368
{
nkeynes@586
   369
    void *result = NULL;
nkeynes@586
   370
    asm(
nkeynes@736
   371
        "mov %%ebp, %%eax\n\t"
nkeynes@736
   372
        "mov $0x8, %%ecx\n\t"
nkeynes@736
   373
        "mov %1, %%edx\n"
nkeynes@736
   374
        "frame_loop: test %%eax, %%eax\n\t"
nkeynes@736
   375
        "je frame_not_found\n\t"
nkeynes@736
   376
        "cmp (%%eax), %%edx\n\t"
nkeynes@736
   377
        "je frame_found\n\t"
nkeynes@736
   378
        "sub $0x1, %%ecx\n\t"
nkeynes@736
   379
        "je frame_not_found\n\t"
nkeynes@736
   380
        "movl (%%eax), %%eax\n\t"
nkeynes@736
   381
        "jmp frame_loop\n"
nkeynes@736
   382
        "frame_found: movl 0x4(%%eax), %0\n"
nkeynes@736
   383
        "frame_not_found:"
nkeynes@736
   384
        : "=r" (result)
nkeynes@736
   385
        : "r" (((uint8_t *)&sh4r) + 128 )
nkeynes@736
   386
        : "eax", "ecx", "edx" );
nkeynes@586
   387
    return result;
nkeynes@586
   388
}
nkeynes@899
   389
#endif
nkeynes@586
   390
nkeynes@926
   391
#endif /* !lxdream_ia32mac.h */
nkeynes@539
   392
nkeynes@539
   393
.