File: optintsp.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 (29 lines) | stat: -rw-r--r-- 709 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
21
22
23
24
25
26
27
28
29
 
/*
                             O P T I N T S P . C

*/

#include "iccomp.h"

ESTRUC_ *optint_special(type, larg, rarg)
    E_TYPE_
        type;
    ESTRUC_
        *larg,
        *rarg;
{
    ESTRUC_
        tmp;

    etoc(larg);                             /* arg to stack */

    if (!test_type(larg, e_int))            /* no first int arg */
    {                                       /* prefix the first argument */
        rarg = insertarg(larg, rarg);
                                            /* make 0-argument */
        tmp = stackframe(e_int | e_const);
        larg = &tmp;                        /* larg points to inserted arg */
    }

    return (specials(type, insertarg(larg, rarg)));
}