File: funcopyv.c

package info (click to toggle)
icmake 6.30-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 2,360 kB
  • ctags: 1,415
  • sloc: ansic: 7,727; makefile: 1,465; sh: 244; asm: 126; cpp: 39
file content (20 lines) | stat: -rw-r--r-- 530 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#include "icmun.h"

void fun_copy_var ()
{
    INT16
        index;

    index = getint16 (infile);
    dumpint (index);

    if ((UNS16)index < 0x8000)
        printf ("copy global %s %s\n", varname (var [index].type),
                                    printvar (index));
    else if (index < (INT16) 0xc000)
        printf ("copy local %s %s\n",
                   varname (local_types[ (INT16) 0xc000 - (INT16) 1 - index]),
                   printvar (index));
    else
        printf ("copy arg %s\n", printvar (index));
}