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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/**
* Inline assembler for the D programming language compiler.
*
* Specification: $(LINK2 https://dlang.org/spec/iasm.html, Inline Assembler)
*
* Copyright (C) 2018-2024 by The D Language Foundation, All Rights Reserved
* Authors: $(LINK2 https://www.digitalmars.com, Walter Bright)
* License: $(LINK2 https://www.boost.org/LICENSE_1_0.txt, Boost License 1.0)
* Source: $(LINK2 https://github.com/dlang/dmd/blob/master/src/dmd/iasm.d, _iasm.d)
* Documentation: https://dlang.org/phobos/dmd_iasm.html
* Coverage: https://codecov.io/gh/dlang/dmd/src/master/src/dmd/iasm.d
*/
module dmd.iasm;
import core.stdc.stdio;
import dmd.dscope;
import dmd.dsymbol;
import dmd.expression;
import dmd.func;
import dmd.mtype;
import dmd.tokens;
import dmd.statement;
import dmd.statementsem;
version (NoBackend)
{
}
else version (IN_GCC)
{
import dmd.iasmgcc;
}
else
{
import dmd.iasmdmd;
version = MARS;
}
/************************ AsmStatement ***************************************/
Statement asmSemantic(AsmStatement s, Scope *sc)
{
//printf("AsmStatement.semantic()\n");
FuncDeclaration fd = sc.parent.isFuncDeclaration();
assert(fd);
if (!s.tokens)
return null;
// Assume assembler code takes care of setting the return value
sc.func.hasReturnExp |= 8;
version (NoBackend)
{
return null;
}
else version (MARS)
{
/* If it starts with a string literal, it's gcc inline asm
*/
if (s.tokens.value == TOK.string_)
{
/* Replace the asm statement with an assert(0, msg) that trips at runtime.
*/
const loc = s.loc;
auto e = new IntegerExp(loc, 0, Type.tint32);
auto msg = new StringExp(loc, "Gnu Asm not supported - compile this function with gcc or clang");
auto ae = new AssertExp(loc, e, msg);
auto se = new ExpStatement(loc, ae);
return statementSemantic(se, sc);
}
auto ias = new InlineAsmStatement(s.loc, s.tokens);
ias.caseSensitive = s.caseSensitive;
return inlineAsmSemantic(ias, sc);
}
else version (IN_GCC)
{
auto eas = new GccAsmStatement(s.loc, s.tokens);
return gccAsmSemantic(eas, sc);
}
else
{
s.error("D inline assembler statements are not supported");
return new ErrorStatement();
}
}
/************************ CAsmDeclaration ************************************/
void asmSemantic(CAsmDeclaration ad, Scope *sc)
{
version (NoBackend)
{
}
else version (IN_GCC)
{
return gccAsmSemantic(ad, sc);
}
else
{
import dmd.errors : error;
error(ad.code.loc, "Gnu Asm not supported - compile this file with gcc or clang");
}
}
|
