File: optintsp.c

package info (click to toggle)
icmake 7.18.00-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 2,840 kB
  • sloc: ansic: 7,784; makefile: 3,811; sh: 319; cpp: 83
file content (29 lines) | stat: -rw-r--r-- 708 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));
}