File: orboolea.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 (33 lines) | stat: -rw-r--r-- 853 bytes parent folder | download | duplicates (8) 
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
30
31
32
33
 
/*
                            O R B O O L E A . C
*/

#include "iccomp.h"

ESTRUC_ *or_boolean(lexp, rexp)
    ESTRUC_
        *lexp,
        *rexp;
{
    if (lexp->type & rexp->type & e_const)  /* two constants: compute result */
    {
        lexp->evalue =
            (test_type(lexp, e_str) || lexp->evalue)
            ||
            (test_type(rexp, e_str) || rexp->evalue);
        set_type(lexp, e_const | e_int);
    }
    else                                    /* at least one code-part */
    {
        fetob(lexp);                        /* boolean code */
        fetob(rexp);

        lexp->codelen -= rm_jmp_zero(lexp->codelen, lexp->falselist,
                                    lexp->falselen);
        patchup_false(lexp, 1);
        lexp = catcode(lexp, rexp);
        set_type(lexp, e_bool | e_code);
    }

    return (lexp);
}