From c7c6cf6e3b420fed0c9074d25e0072a672a66b39 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 20 Feb 2016 06:49:40 +0100 Subject: trans-chap12: factorize code. --- src/vhdl/translate/trans-chap12.adb | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'src/vhdl') diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb index 35159e9b9..4786ffbbc 100644 --- a/src/vhdl/translate/trans-chap12.adb +++ b/src/vhdl/translate/trans-chap12.adb @@ -546,8 +546,6 @@ package body Trans.Chap12 is use Name_Table; use Configuration; - Primary_Id : Name_Id; - Secondary_Id : Name_Id; Unit : Iir_Design_Unit; Lib_Unit : Iir; Config : Iir_Design_Unit; @@ -558,13 +556,7 @@ package body Trans.Chap12 is Last_Design_Unit : Natural; Nbr_Pkgs : Natural; begin - Primary_Id := Get_Identifier (Primary); - if Secondary /= "" then - Secondary_Id := Get_Identifier (Secondary); - else - Secondary_Id := Null_Identifier; - end if; - Config := Configure (Primary_Id, Secondary_Id); + Config := Configure (Primary, Secondary); if Config = Null_Iir then return; end if; -- cgit v1.2.3 James
aboutsummaryrefslogtreecommitdiffstats
path: root/test/netlib/tservers.py
blob: 569745e68a27d931f24812d3ce3e1db81678e69f (plain) 
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
107
108
109