[172] | 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$
|
---|