1 | $
|
---|
2 | $ TOPPERS ATK2
|
---|
3 | $ Toyohashi Open Platform for Embedded Real-Time Systems
|
---|
4 | $ Automotive Kernel Version 2
|
---|
5 | $
|
---|
6 | $ Copyright (C) 2011-2015 by Center for Embedded Computing Systems
|
---|
7 | $ Graduate School of Information Science, Nagoya Univ., JAPAN
|
---|
8 | $ Copyright (C) 2011-2015 by FUJI SOFT INCORPORATED, JAPAN
|
---|
9 | $ Copyright (C) 2011-2013 by Spansion LLC, USA
|
---|
10 | $ Copyright (C) 2011-2015 by NEC Communication Systems, Ltd., JAPAN
|
---|
11 | $ Copyright (C) 2011-2015 by Panasonic Advanced Technology Development Co., Ltd., JAPAN
|
---|
12 | $ Copyright (C) 2011-2014 by Renesas Electronics Corporation, JAPAN
|
---|
13 | $ Copyright (C) 2011-2015 by Sunny Giken Inc., JAPAN
|
---|
14 | $ Copyright (C) 2011-2015 by TOSHIBA CORPORATION, JAPAN
|
---|
15 | $ Copyright (C) 2011-2015 by Witz Corporation
|
---|
16 | $ Copyright (C) 2014-2015 by AISIN COMCRUISE Co., Ltd., JAPAN
|
---|
17 | $ Copyright (C) 2014-2015 by eSOL Co.,Ltd., JAPAN
|
---|
18 | $ Copyright (C) 2014-2015 by SCSK Corporation, JAPAN
|
---|
19 | $ Copyright (C) 2015 by SUZUKI MOTOR CORPORATION
|
---|
20 | $
|
---|
21 | $ ä¸è¨èä½æ¨©è
|
---|
22 | ã¯ï¼ä»¥ä¸ã®(1)ã(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
|
---|
23 | $ ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹
|
---|
24 | $ å¤ã»åé
|
---|
25 | å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
---|
26 | $ (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
---|
27 | $ 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
---|
28 | $ ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
---|
29 | $ (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
30 | $ ç¨ã§ããå½¢ã§åé
|
---|
31 | å¸ããå ´åã«ã¯ï¼åé
|
---|
32 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
---|
33 | $ è
|
---|
34 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
---|
35 | $ ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
36 | $ (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
37 | $ ç¨ã§ããªãå½¢ã§åé
|
---|
38 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
---|
39 | $ ã¨ï¼
|
---|
40 | $ (a) åé
|
---|
41 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
---|
42 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
---|
43 | $ ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
44 | $ (b) åé
|
---|
45 | å¸ã®å½¢æ
|
---|
46 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
---|
47 | $ å ±åãããã¨ï¼
|
---|
48 | $ (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
---|
49 | $ 害ãããï¼ä¸è¨èä½æ¨©è
|
---|
50 | ããã³TOPPERSããã¸ã§ã¯ããå
|
---|
51 | 責ãããã¨ï¼
|
---|
52 | $ ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç
|
---|
53 | $ ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è
|
---|
54 | ããã³TOPPERSããã¸ã§ã¯ãã
|
---|
55 | $ å
|
---|
56 | 責ãããã¨ï¼
|
---|
57 | $
|
---|
58 | $ æ¬ã½ããã¦ã§ã¢ã¯ï¼AUTOSARï¼AUTomotive Open System ARchitectureï¼ä»
|
---|
59 | $ æ§ã«åºã¥ãã¦ããï¼ä¸è¨ã®è¨±è«¾ã¯ï¼AUTOSARã®ç¥ç財ç£æ¨©ã許諾ãããã®ã§
|
---|
60 | $ ã¯ãªãï¼AUTOSARã¯ï¼AUTOSARä»æ§ã«åºã¥ããã½ããã¦ã§ã¢ãåç¨ç®çã§å©
|
---|
61 | $ ç¨ããè
|
---|
62 | ã«å¯¾ãã¦ï¼AUTOSARãã¼ããã¼ã«ãªããã¨ãæ±ãã¦ããï¼
|
---|
63 | $
|
---|
64 | $ æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
---|
65 | ã
|
---|
66 | $ ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç
|
---|
67 | $ ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§
|
---|
68 | $ ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã
|
---|
69 | $ ã®è²¬ä»»ãè² ããªãï¼
|
---|
70 | $
|
---|
71 | $ $Id: kernel_common.tf 427 2015-12-07 12:26:47Z witz-itoyo $
|
---|
72 | $
|
---|
73 |
|
---|
74 | $ =====================================================================
|
---|
75 | $ TSK.STKã¨TSK.SSTKãæ´å½¢
|
---|
76 | $ =====================================================================
|
---|
77 |
|
---|
78 | $FOREACH tskid TSK.ID_LIST$
|
---|
79 | $ // çç¥ãããå ´åã¯NULLã«ãã
|
---|
80 | $IF !LENGTH(TSK.STK[tskid])$
|
---|
81 | $TSK.STK[tskid] = "NULL"$
|
---|
82 | $END$
|
---|
83 |
|
---|
84 | $ // çç¥ãããå ´åã¯NULLã«ãã
|
---|
85 | $IF !LENGTH(TSK.SSTK[tskid])$
|
---|
86 | $TSK.SSTK[tskid] = "NULL"$
|
---|
87 | $END$
|
---|
88 | $END$
|
---|
89 |
|
---|
90 | $ =====================================================================
|
---|
91 | $ ã¡ã¢ãªãªãã¸ã§ã¯ãã®å
|
---|
92 | é ã¨æ«å°¾ã®ã¢ãã¬ã¹ã®åãåºã
|
---|
93 | $ =====================================================================
|
---|
94 |
|
---|
95 | $IF !ISFUNCTION("START_SYMBOL")$
|
---|
96 | $FUNCTION START_SYMBOL$
|
---|
97 | $RESULT = SYMBOL(CONCAT("__start_", ARGV[1]))$
|
---|
98 | $END$
|
---|
99 | $END$
|
---|
100 |
|
---|
101 | $IF !ISFUNCTION("LIMIT_SYMBOL")$
|
---|
102 | $FUNCTION LIMIT_SYMBOL$
|
---|
103 | $RESULT = SYMBOL(CONCAT("__limit_", ARGV[1]))$
|
---|
104 | $END$
|
---|
105 | $END$
|
---|
106 |
|
---|
107 | $ =====================================================================
|
---|
108 | $ ãã¼ã¿ã»ã¯ã·ã§ã³ã®LMAããVMAã¸ã®ã³ãã¼
|
---|
109 | $ =====================================================================
|
---|
110 |
|
---|
111 | $FUNCTION COPY_LMA$
|
---|
112 | $FOREACH lma LMA.ORDER_LIST$
|
---|
113 | $start_data = SYMBOL(LMA.START_DATA[lma])$
|
---|
114 | $end_data = SYMBOL(LMA.END_DATA[lma])$
|
---|
115 | $start_idata = SYMBOL(LMA.START_IDATA[lma])$
|
---|
116 | $IF !LENGTH(start_data)$
|
---|
117 | $ERROR$
|
---|
118 | $FORMAT(_("symbol '%1%' not found"), LMA.START_DATA[lma])$
|
---|
119 | $END$
|
---|
120 | $ELIF !LENGTH(end_data)$
|
---|
121 | $ERROR$
|
---|
122 | $FORMAT(_("symbol '%1%' not found"), LMA.END_DATA[lma])$
|
---|
123 | $END$
|
---|
124 | $ELIF !LENGTH(start_idata)$
|
---|
125 | $ERROR$
|
---|
126 | $FORMAT(_("symbol '%1%' not found"), LMA.START_IDATA[lma])$
|
---|
127 | $END$
|
---|
128 | $ELSE$
|
---|
129 | $BCOPY(start_idata, start_data, end_data - start_data)$
|
---|
130 | $END$
|
---|
131 | $END$
|
---|
132 | $END$
|
---|
133 |
|
---|
134 | $
|
---|
135 | $ ã¿ã¹ã¯ã®ã¹ã¿ãã¯ãextern宣è¨ãã
|
---|
136 | $
|
---|
137 | $FUNCTION GENERATE_EXPORT_TSK_STK$
|
---|
138 | $FOREACH tskid TSK.ID_LIST$
|
---|
139 | $IF OSAP.TRUSTED[TSK.OSAPID[tskid]] || tmin_os_restarttask <= tskid$
|
---|
140 | $extern_sstk = EQ(TSK.STK[tskid], "NULL") && !LENGTH(TSK.SHARED_SSTK_ID[tskid])$
|
---|
141 | $extern_ustk = 0$
|
---|
142 | $ELSE$
|
---|
143 | $extern_sstk = EQ(TSK.SSTK[tskid], "NULL") && !LENGTH(TSK.SHARED_SSTK_ID[tskid])$
|
---|
144 | $extern_ustk = EQ(TSK.STK[tskid], "NULL") && !LENGTH(TSK.SHARED_USTK_ID[tskid])$
|
---|
145 | $END$
|
---|
146 |
|
---|
147 | $IF extern_sstk$
|
---|
148 | $IF !EQ(TSK.RESTARTTASK[tskid],"")$
|
---|
149 | extern StackType _kernel_sstack_restart_$TSK.RESTARTTASK[tskid]$[COUNT_STK_T($TSK.TINIB_SSTKSZ[tskid]$)];$NL$
|
---|
150 | $ELSE$
|
---|
151 | extern StackType _kernel_sstack_$tskid$[COUNT_STK_T($TSK.TINIB_SSTKSZ[tskid]$)];$NL$
|
---|
152 | $END$
|
---|
153 | $END$
|
---|
154 | $IF extern_ustk$
|
---|
155 | extern StackType _kernel_ustack_$tskid$[COUNT_STK_T($TSK.TINIB_USTKSZ[tskid]$)];$NL$
|
---|
156 | $END$
|
---|
157 | $END$
|
---|
158 | $FOREACH tskpri RANGE(TMIN_TPRI, TMAX_TPRI)$
|
---|
159 | $IF LENGTH(shared_ustack_size[tskpri])$
|
---|
160 | extern StackType _kernel_shared_ustack_$tskpri$[COUNT_STK_T(ROUND_STK_T($shared_ustack_size[tskpri]$))];$NL$
|
---|
161 | $END$
|
---|
162 | $IF LENGTH(shared_sstack_size[tskpri])$
|
---|
163 | extern StackType _kernel_shared_sstack_$tskpri$[COUNT_STK_T(ROUND_STK_T($shared_sstack_size[tskpri]$))];$NL$
|
---|
164 | $END$
|
---|
165 | $END$
|
---|
166 | $NL$
|
---|
167 | $END$
|
---|
168 |
|
---|
169 | $
|
---|
170 | $ ã¿ã¹ã¯ã®extern宣è¨
|
---|
171 | $
|
---|
172 | $FUNCTION EXTERN_TSK$
|
---|
173 | $ //ã¿ã¹ã¯ã®extern宣è¨
|
---|
174 | $FOREACH tskid TSK.ID_LIST$
|
---|
175 | $IF tskid < tmin_os_restarttask$
|
---|
176 | extern TASK($tskid$);$NL$
|
---|
177 | $END$
|
---|
178 | $END$
|
---|
179 | $NL$
|
---|
180 | $END$
|
---|
181 |
|
---|
182 | $
|
---|
183 | $ ã¿ã¹ã¯åæåãããã¯ã®åºå
|
---|
184 | $
|
---|
185 | $FUNCTION GENERATE_TINIB_TABLE$
|
---|
186 | /* Task Initialization Block */$NL$
|
---|
187 | $IF LENGTH(TSK.ID_LIST)$
|
---|
188 | const TINIB tinib_table[TNUM_TASK_INC_RT] = {$NL$
|
---|
189 | $JOINEACH tskid TSK.ID_LIST ",\n"$
|
---|
190 | $TAB${$NL$
|
---|
191 | $ //OSãçæãããªã¹ã¿ã¼ãã¿ã¹ã¯ã®å ´åã¯ï¼ãã®åæåãããã¯ãOSã«ãã£ã¦çæããããã®ã§ãããã¨ã示ãã³ã¡ã³ããåºåãã
|
---|
192 | $IF tmin_os_restarttask <= tskid$
|
---|
193 | $TAB$$TAB$/* this TINIB is genereted by OS */$NL$
|
---|
194 | $END$
|
---|
195 | $ //OSãçæãããªã¹ã¿ã¼ãã¿ã¹ã¯ã®å ´åã¯ï¼ã¿ã¹ã¯ã®å
|
---|
196 | é ã¢ãã¬ã¹ãNULLã«ãã
|
---|
197 | $IF tmin_os_restarttask <= tskid$
|
---|
198 | $TAB$$TAB$NULL,$NL$
|
---|
199 | $ELSE$
|
---|
200 | $TAB$$TAB$&TASKNAME($tskid$),$NL$
|
---|
201 | $END$
|
---|
202 | $ // ã¿ã¹ã¯åæåã³ã³ããã¹ããããã¯ï¼ã¹ã¿ãã¯é å
|
---|
203 | $IF USE_TSKINICTXB$
|
---|
204 | $GENERATE_TSKINICTXB(tskid)$
|
---|
205 | $ELSE$
|
---|
206 | $TAB$$TAB$$TSK.TINIB_SSTKSZ[tskid]$,$NL$
|
---|
207 | $TAB$$TAB$(void *) $TSK.TINIB_SSTK[tskid]$,$NL$
|
---|
208 | $TAB$$TAB$$TSK.TINIB_USTKSZ[tskid]$,$NL$
|
---|
209 | $TAB$$TAB$(void *) $TSK.TINIB_USTK[tskid]$,$NL$
|
---|
210 | $END$
|
---|
211 |
|
---|
212 | $TAB$$TAB$&(osapcb_table[$TSK.OSAPID[tskid]$]),$NL$
|
---|
213 | $TAB$$TAB$$FORMAT("0x%08xU", +TSK.ACSBTMP[tskid])$,$NL$
|
---|
214 | $TAB$$TAB$$TMAX_TPRI - TSK.PRIORITY[tskid]$,$NL$
|
---|
215 | $IF EQ(TSK.SCHEDULE[tskid], "NON") $
|
---|
216 | $TAB$$TAB$$+TPRI_MAXTASK$,$NL$
|
---|
217 | $ELSE$
|
---|
218 | $IF LENGTH(TSK.INRESPRI[tskid])$
|
---|
219 | $TAB$$TAB$$TMAX_TPRI - TSK.INRESPRI[tskid]$,$NL$
|
---|
220 | $ELSE$
|
---|
221 | $TAB$$TAB$$TMAX_TPRI - TSK.PRIORITY[tskid]$,$NL$
|
---|
222 | $END$
|
---|
223 | $END$
|
---|
224 |
|
---|
225 | $TAB$$TAB$($+TSK.ACTIVATION[tskid]$U) - 1U,$NL$
|
---|
226 | $IF !OMIT_STKMPUINFOB$
|
---|
227 | $TAB$$TAB$$FORMAT("0x%08xU", +TSK.ASTPTN[tskid])$,$NL$
|
---|
228 | $GENERATE_STKMPUINFOB(tskid)$
|
---|
229 | $ELSE$
|
---|
230 | $TAB$$TAB$$FORMAT("0x%08xU", +TSK.ASTPTN[tskid])$$NL$
|
---|
231 | $END$
|
---|
232 | $TAB$}
|
---|
233 | $END$
|
---|
234 | $NL$
|
---|
235 | };$NL$
|
---|
236 | $ELSE$
|
---|
237 | TOPPERS_EMPTY_LABEL(const TINIB, tinib_table);$NL$
|
---|
238 | $END$
|
---|
239 | $NL$
|
---|
240 | $END$
|
---|
241 |
|
---|
242 | $
|
---|
243 | $ OSã¢ããªã±ã¼ã·ã§ã³åæåãããã¯ã®åºå
|
---|
244 | $
|
---|
245 | $FUNCTION GENERATE_OSAPINIB_TABLE$
|
---|
246 | $IF LENGTH(OSAP.ID_LIST)$
|
---|
247 | const OSAPINIB osapinib_table[TNUM_OSAP] = {$NL$
|
---|
248 | $JOINEACH osapid OSAP.ID_LIST ",\n"$
|
---|
249 | $TAB${$NL$
|
---|
250 | $IF EQ(OSAP.RESTARTTASK[osapid], "NO_RESTART_TASK")$
|
---|
251 | $TAB$$TAB$NULL,$NL$
|
---|
252 | $ELSE$
|
---|
253 | $IF EQ(OSAP.RESTARTTASK[osapid], "OS_GEN_RESTARTTASK")$
|
---|
254 | $ //OSãçæãããªã¹ã¿ã¼ãã¿ã¹ã¯ã®å ´å
|
---|
255 | $TAB$$TAB$&tcb_table[$(+OSAP.RESTARTTASK[osapid]-1)$],$NL$
|
---|
256 | $ELSE$
|
---|
257 | $ //ã¦ã¼ã¶ããçæãããªã¹ã¿ã¼ãã¿ã¹ã¯ã®å ´å
|
---|
258 | $TAB$$TAB$&tcb_table[$(OSAP.RESTARTTASK[osapid])$],$NL$
|
---|
259 | $END$
|
---|
260 | $END$
|
---|
261 | $IF OSAP.TRUSTED[osapid]$
|
---|
262 | $TAB$$TAB$TA_TRUSTED,$NL$
|
---|
263 | $ELSE$
|
---|
264 | $TAB$$TAB$TA_NONTRUSTED,$NL$
|
---|
265 | $END$
|
---|
266 |
|
---|
267 | $IF !OMIT_OSAPMPUINFOB$
|
---|
268 | $TAB$$TAB$$FORMAT("0x%08xU", +OSAP.BTMP[osapid])$,$NL$
|
---|
269 | $GENERATE_OSAPINIB_MPUINFOB(osapid)$
|
---|
270 | $ELSE$
|
---|
271 | $TAB$$TAB$$FORMAT("0x%08xU", +OSAP.BTMP[osapid])$$NL$
|
---|
272 | $END$
|
---|
273 |
|
---|
274 | $TAB$}
|
---|
275 | $END$
|
---|
276 | $NL$
|
---|
277 | };$NL$
|
---|
278 | $NL$
|
---|
279 | $ELSE$
|
---|
280 | TOPPERS_EMPTY_LABEL(const OSAPINIB, osapinib_table);$NL$
|
---|
281 | $END$
|
---|
282 | $END$
|
---|
283 |
|
---|
284 | $
|
---|
285 | $ ã¡ã¢ãªãªãã¸ã§ã¯ãã®ãã¼ã¹ã¢ãã¬ã¹é ã®ãªã¹ããã
|
---|
286 | $ éä¿¡é ¼OSAPããã¢ã¯ã»ã¹ã§ããªãé åãé¤ãããªã¹ã
|
---|
287 | $ ãMO_MEMTOP_ORDER_MEMINIBã«å
|
---|
288 | ¥ãã
|
---|
289 | $
|
---|
290 | $FUNCTION SET_MEMTOP_ORDER$
|
---|
291 | $prev = 0$
|
---|
292 | $FOREACH moid SORT(MO_SECTION_LIST, "MO.BASEADDR")$
|
---|
293 |
|
---|
294 | $IF (MO.ACPTN_R[moid] != TACP_KERNEL || MO.ACPTN_W[moid] != TACP_KERNEL || MO.ACPTN_X[moid] != TACP_KERNEL)$
|
---|
295 | $IF !prev || (MO.LIMITADDR[prev] <= MO.BASEADDR[moid] && MO.LIMITADDR[prev] != 0)$
|
---|
296 | $MO_MEMTOP_ORDER_MEMINIB = APPEND(MO_MEMTOP_ORDER_MEMINIB, moid)$
|
---|
297 | $prev = moid$
|
---|
298 | $ELSE$
|
---|
299 | $ // åãOSAPã«æå±ããã¦ã¼ã¶ã¹ã¿ãã¯ã®é ååä½µ
|
---|
300 | $IF MO.TYPE[moid] == TOPPERS_USTACK &&
|
---|
301 | MO.TYPE[prev] == TOPPERS_USTACK &&
|
---|
302 | MO.OSAPID[prev] == MO.OSAPID[moid]$
|
---|
303 | $ // ã¦ã¼ã¶ã¹ã¿ãã¯é åã®ä½µåå¦ç
|
---|
304 | $MO.TSKID[prev] = 0$
|
---|
305 | $MO.TSKID[moid] = 0$
|
---|
306 | $MO.BASE[moid] = MO.BASE[prev]$
|
---|
307 | $MO.BASEADDR[moid] = MO.BASEADDR[prev]$
|
---|
308 | $IF MO.LIMITADDR[prev] < MO.LIMITADDR[moid]
|
---|
309 | && MO.LIMITADDR[prev] != 0$
|
---|
310 | $MO.SIZE[prev] = MO.LIMITADDR[moid] - MO.BASEADDR[prev]$
|
---|
311 | $MO.LIMITADDR[prev] = MO.LIMITADDR[moid]$
|
---|
312 | $ELSE$
|
---|
313 | $MO.SIZE[moid] = MO.SIZE[prev]$
|
---|
314 | $MO.LIMITADDR[moid] = MO.LIMITADDR[prev]$
|
---|
315 | $END$
|
---|
316 | $END$
|
---|
317 | $END$
|
---|
318 | $END$
|
---|
319 | $END$
|
---|
320 | $END$
|
---|
321 |
|
---|
322 | $
|
---|
323 | $ é£æ¥ããã¡ã¢ãªãªãã¸ã§ã¯ãã®ã¡ã¢ãªä¿è·å±æ§ãçããå ´åã¯çµ±åãã
|
---|
324 | $
|
---|
325 | $FUNCTION MERGE_MEMINIB$
|
---|
326 | $merged_moid = 0$
|
---|
327 | $FOREACH moid MO_MEMTOP_ORDER_MEMINIB$
|
---|
328 | $IF merged_moid &&
|
---|
329 | (CFG_PASS4 ||
|
---|
330 | MO.LINKER[merged_moid] && MO.LINKER[moid] &&
|
---|
331 | MO.MEMREG[merged_moid] == MO.MEMREG[moid]) &&
|
---|
332 | ((MO.MERGED_LIMITADDR[merged_moid] == MO.BASEADDR[moid] &&
|
---|
333 | MO.ACPTN_R[merged_moid] == MO.ACPTN_R[moid] &&
|
---|
334 | MO.ACPTN_W[merged_moid] == MO.ACPTN_W[moid] &&
|
---|
335 | MO.ACPTN_X[merged_moid] == MO.ACPTN_X[moid]) ||
|
---|
336 | MO.LIMITADDR[moid] == MO.BASEADDR[moid])$
|
---|
337 |
|
---|
338 | $MO.MERGED_LIMITADDR[merged_moid] = MO.LIMITADDR[moid]$
|
---|
339 | $MO.MERGED_LIMIT[merged_moid] = MO.LIMIT[moid]$
|
---|
340 | $ELSE$
|
---|
341 | $merged_moid = moid$
|
---|
342 | $new_list = APPEND(new_list, merged_moid)$
|
---|
343 | $MO.MERGED_LIMITADDR[moid] = MO.LIMITADDR[moid]$
|
---|
344 | $MO.MERGED_LIMIT[moid] = MO.LIMIT[moid]$
|
---|
345 | $END$
|
---|
346 | $END$
|
---|
347 | $MO_MEMTOP_ORDER_MEMINIB = new_list$
|
---|
348 | $END$
|
---|
349 |
|
---|
350 | $
|
---|
351 | $ OSAPCBå¤é¨åç
|
---|
352 | §å®£è¨çæ
|
---|
353 | $
|
---|
354 | $FUNCTION EXTERN_OSAPCB$
|
---|
355 | $ //OSAPCBã®extern宣è¨
|
---|
356 | extern OSAPCB osapcb_table[];$NL$
|
---|
357 | $NL$
|
---|
358 | $END$
|
---|
359 |
|
---|
360 | $
|
---|
361 | $ TCBå¤é¨åç
|
---|
362 | §å®£è¨çæ
|
---|
363 | $
|
---|
364 | $FUNCTION EXTERN_TCB$
|
---|
365 | $ //TCBã®extern宣è¨
|
---|
366 | extern TCB tcb_table[];$NL$
|
---|
367 | $NL$
|
---|
368 | $END$
|
---|