1 /**
2  * Compiler implementation of the
3  * $(LINK2 http://www.dlang.org, D programming language).
4  *
5  * Copyright:   Copyright (C) 1995-1998 by Symantec
6  *              Copyright (C) 2000-2020 by The D Language Foundation, All Rights Reserved
7  * Authors:     $(LINK2 http://www.digitalmars.com, Walter Bright)
8  * License:     $(LINK2 http://www.boost.org/LICENSE_1_0.txt, Boost License 1.0)
9  * Source:      $(LINK2 https://github.com/dlang/dmd/blob/master/src/dmd/backend/ee.d, backend/ee.d)
10  */
11 module dmd.backend.ee;
12 
13 /*
14  * Code to handle debugger expression evaluation
15  */
16 
17 version (SPP) {} else
18 {
19 
20 import core.stdc.stdio;
21 import core.stdc..string;
22 import core.stdc.time;
23 import dmd.backend.cc;
24 import dmd.backend.cdef;
25 import dmd.backend.global;
26 import dmd.backend.type;
27 import dmd.backend.oper;
28 import dmd.backend.el;
29 import dmd.backend.exh;
30 import dmd.backend.cgcv;
31 
32 version (SCPP)
33 {
34 import parser;
35 }
36 
37 import dmd.backend.iasm;
38 
39 extern(C++):
40 
41 nothrow:
42 
43 version (MARS)
44 {
45 __gshared EEcontext eecontext;
46 }
47 
48 //////////////////////////////////////
49 // Convert any symbols generated for the debugger expression to SCstack
50 // storage class.
51 
52 void eecontext_convs(uint marksi)
53 {   uint u;
54     uint top;
55     symtab_t *ps;
56 
57     // Change all generated SCauto's to SCstack's
58 version (SCPP)
59 {
60     ps = &globsym;
61 }
62 else
63 {
64     ps = cstate.CSpsymtab;
65 }
66     top = ps.top;
67     //printf("eecontext_convs(%d,%d)\n",marksi,top);
68     for (u = marksi; u < top; u++)
69     {   Symbol *s;
70 
71         s = ps.tab[u];
72         switch (s.Sclass)
73         {
74             case SCauto:
75             case SCregister:
76                 s.Sclass = SCstack;
77                 s.Sfl = FLstack;
78                 break;
79             default:
80                 break;
81         }
82     }
83 }
84 
85 ////////////////////////////////////////
86 // Parse the debugger expression.
87 
88 version (SCPP)
89 {
90 
91 void eecontext_parse()
92 {
93     if (eecontext.EEimminent)
94     {   type *t;
95         uint marksi;
96         Symbol *s;
97 
98         //printf("imminent\n");
99         marksi = globsym.top;
100         eecontext.EEin++;
101         s = symbol_genauto(tspvoid);
102         eecontext.EEelem = func_expr_dtor(true);
103         t = eecontext.EEelem.ET;
104         if (tybasic(t.Tty) != TYvoid)
105         {   uint op;
106             elem *e;
107 
108             e = el_unat(OPind,t,el_var(s));
109             op = tyaggregate(t.Tty) ? OPstreq : OPeq;
110             eecontext.EEelem = el_bint(op,t,e,eecontext.EEelem);
111         }
112         eecontext.EEin--;
113         eecontext.EEimminent = 0;
114         eecontext.EEfunc = funcsym_p;
115 
116         eecontext_convs(marksi);
117 
118         // Generate the typedef
119         if (eecontext.EEtypedef && config.fulltypes)
120         {   Symbol *s;
121 
122             s = symbol_name(eecontext.EEtypedef,SCtypedef,t);
123             cv_outsym(s);
124             symbol_free(s);
125         }
126     }
127 }
128 
129 }
130 }