home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_c30.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  27.8 KB  |  856 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. void r669gc_info_nb_in(T669* C,T0* a1){
  10. r7append(((T7*)a1),((T0*)ms59_291));
  11. r2append_in(r669id(C),a1);
  12. }
  13. /*No:TYPE_ANY.fz_14*/
  14. /*No:TYPE_ANY.is_bit*/
  15. void r669fatal_error_generic_list(T669* C){
  16. r683add_type((T0*)C,((T0*)ms12_291));
  17. r683print_as_fatal_error(((T683*)(oBC364eh)));
  18. }
  19. /*No:TYPE_ANY.fz_new*/
  20. /*No:TYPE_ANY.fz_c_void_args*/
  21. /*No:TYPE_ANY.smallest_ancestor*/
  22. /*No:TYPE_ANY.fz_16*/
  23. void r669standard_gc_info_in(T669* C,T0* a1){
  24. r7append(((T7*)a1),((T0*)ms119_470));
  25. r7extend(((T7*)a1),'\50');
  26. r7extend(((T7*)a1),'\42');
  27. r7append(((T7*)a1),r669run_time_mark());
  28. r7append(((T7*)a1),((T0*)ms144_470));
  29. r669gc_info_nb_in(C,a1);
  30. r7append(((T7*)a1),((T0*)ms148_470));
  31. r7append(((T7*)a1),((T0*)ms119_470));
  32. r7extend(((T7*)a1),'\50');
  33. r7extend(((T7*)a1),'\42');
  34. r669gcmt_used_in(C,a1);
  35. r7append(((T7*)a1),((T0*)ms144_470));
  36. r669gcmt_used_in(C,a1);
  37. r7append(((T7*)a1),((T0*)ms148_470));
  38. r7append(((T7*)a1),((T0*)ms119_470));
  39. r7extend(((T7*)a1),'\50');
  40. r7extend(((T7*)a1),'\42');
  41. r669gcmt_max_in(C,a1);
  42. r7append(((T7*)a1),((T0*)ms144_470));
  43. r669gcmt_max_in(C,a1);
  44. r7append(((T7*)a1),((T0*)ms148_470));
  45. }
  46. /*No:TYPE_ANY.is_boolean*/
  47. void r669standard_c_typedef(T669* C){
  48. int _mem_id=0;
  49. _mem_id=r669id(C);
  50. /*[IRF3.3clear*/((((T7*)(((T7*)(oBC291tmp_string)))))->_count)=(0);
  51. /*]*/
  52. /*IF*/if (r669need_c_struct(C)) {
  53. r7append(((T7*)(oBC291tmp_string)),((T0*)ms131_470));
  54. r7append(((T7*)(oBC291tmp_string)),((T0*)ms125_470));
  55. r7extend(((T7*)(oBC291tmp_string)),'S');
  56. r2append_in(_mem_id,oBC291tmp_string);
  57. r7extend(((T7*)(oBC291tmp_string)),'\40');
  58. r7extend(((T7*)(oBC291tmp_string)),'T');
  59. r2append_in(_mem_id,oBC291tmp_string);
  60. r7append(((T7*)(oBC291tmp_string)),((T0*)ms134_470));
  61. }
  62. /*AF*/ else {/*AT*/r7append(((T7*)(oBC291tmp_string)),((T0*)ms131_470));
  63. r7append(((T7*)(oBC291tmp_string)),((T0*)ms133_470));
  64. r7extend(((T7*)(oBC291tmp_string)),'\52');
  65. r7extend(((T7*)(oBC291tmp_string)),'T');
  66. r2append_in(_mem_id,oBC291tmp_string);
  67. r7append(((T7*)(oBC291tmp_string)),((T0*)ms134_470));
  68. }
  69. /*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),oBC291tmp_string);
  70. /*]*/
  71. }
  72. /*No:TYPE_ANY.is_double*/
  73. T0* r669run_class(T669* C){
  74. T0* R=NULL;
  75. R=r604run_class((T0*)C);
  76. return R;
  77. }
  78. void r669gcmt_in(T669* C,T0* a1){
  79. r7append(((T7*)a1),((T0*)ms54_291));
  80. r2append_in(r669id(C),a1);
  81. }
  82. T0* r669run_time_mark(void){
  83. T0* R=NULL;
  84. R=((T0*)ms1_473);
  85. return R;
  86. }
  87. /*No:TYPE_ANY.c_initialize*/
  88. void r669cast_to_ref(T669* C){
  89. X291cast_to_ref(/*(IRF4.4run_type*/((T0*)(C))/*)*/);
  90. }
  91. void r669gc_mark_in(T669* C,T0* a1){
  92. r7append(((T7*)a1),((T0*)ms107_470));
  93. r2append_in(r669id(C),a1);
  94. }
  95. int r669is_a_in(T669* C,T0* a1,T0* a2){
  96. int R=0;
  97. T0* _ct=NULL;
  98. T0* _t2=NULL;
  99. T0* _t1=NULL;
  100. /*IF*/if ((r669written_mark())==((void*)(X291written_mark(a1)))) {
  101. R=1;
  102. }
  103. else {
  104. _ct=(((T355*)((T355*)a2)))->_current_type/*0*/;
  105. _t1=r669to_runnable(C,_ct);
  106. _t2=X291to_runnable(a1,_ct);
  107. /*IF*/if ((X291run_time_mark(_t1))==((void*)(X291run_time_mark(_t2)))) {
  108. R=1;
  109. }
  110. else {
  111. R=X291is_a(_t1,_t2);
  112. }
  113. /*FI*/}
  114. /*FI*/return R;
  115. }
  116. T0* r669look_up_for(T669* C,T0* a1,T0* a2){
  117. T0* R=NULL;
  118. R=r605look_up_for(((T605*)(r669base_class(C))),a1,a2);
  119. return R;
  120. }
  121. /*No:TYPE_ANY.c_header_pass1*/
  122. /*No:TYPE_ANY.c_type_for_result_in*/
  123. /*No:TYPE_ANY.expanded_initializer*/
  124. /*No:TYPE_ANY.fz_int*/
  125. void r669gc_declare_h_in(T669* C,T0* a1){
  126. r7append(((T7*)a1),((T0*)ms105_470));
  127. r2append_in(r669id(C),a1);
  128. r7append(((T7*)a1),((T0*)ms60_291));
  129. r2append_in(r669id(C),a1);
  130. r7append(((T7*)a1),((T0*)ms61_291));
  131. }
  132. void r669standard_gc_define1(T669* C){
  133. int _rcid=0;
  134. T0* _rc=NULL;
  135. _rc=r669run_class(C);
  136. _rcid=(((T355*)((T355*)_rc)))->_id/*4*/;
  137. r7copy(((T7*)(oBC291tmp_string)),((T0*)ms131_470));
  138. r7append(((T7*)(oBC291tmp_string)),((T0*)ms125_470));
  139. r7extend(((T7*)(oBC291tmp_string)),'B');
  140. r2append_in(_rcid,oBC291tmp_string);
  141. r7extend(((T7*)(oBC291tmp_string)),'\40');
  142. r7append(((T7*)(oBC291tmp_string)),((T0*)ms105_470));
  143. r2append_in(_rcid,oBC291tmp_string);
  144. r7append(((T7*)(oBC291tmp_string)),((T0*)ms134_470));
  145. r7append(((T7*)(oBC291tmp_string)),((T0*)ms125_470));
  146. r7extend(((T7*)(oBC291tmp_string)),'B');
  147. r2append_in(_rcid,oBC291tmp_string);
  148. r7append(((T7*)(oBC291tmp_string)),((T0*)ms13_291));
  149. r2append_in(_rcid,oBC291tmp_string);
  150. r7append(((T7*)(oBC291tmp_string)),((T0*)ms14_291));
  151. /*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),oBC291tmp_string);
  152. /*]*/
  153. r7copy(((T7*)(oBC291tmp_string)),((T0*)ms105_470));
  154. r2append_in(_rcid,oBC291tmp_string);
  155. r7extend(((T7*)(oBC291tmp_string)),'\52');
  156. r7extend(((T7*)(oBC291tmp_string)),'\52');
  157. r669gcmt_in(C,oBC291tmp_string);
  158. r324put_extern1(((T324*)(oBC364cpp)),oBC291tmp_string);
  159. r7copy(((T7*)(oBC291tmp_string)),((T0*)ms111_470));
  160. r7extend(((T7*)(oBC291tmp_string)),'\40');
  161. r669gcmt_used_in(C,oBC291tmp_string);
  162. r324put_extern2(((T324*)(oBC364cpp)),oBC291tmp_string,'0');
  163. r7copy(((T7*)(oBC291tmp_string)),((T0*)ms111_470));
  164. r7extend(((T7*)(oBC291tmp_string)),'\40');
  165. r669gcmt_max_in(C,oBC291tmp_string);
  166. r324put_extern2(((T324*)(oBC364cpp)),oBC291tmp_string,'8');
  167. r7copy(((T7*)(oBC291tmp_string)),((T0*)ms105_470));
  168. r2append_in(_rcid,oBC291tmp_string);
  169. r7extend(((T7*)(oBC291tmp_string)),'\52');
  170. r669gc_free_in(C,oBC291tmp_string);
  171. r324put_extern5(((T324*)(oBC364cpp)),oBC291tmp_string,((T0*)ms117_470));
  172. /*IF*/if ((((T548*)((T548*)(oBC364gc_handler))))->_info_flag/*4*/) {
  173. r7copy(((T7*)(oBC291tmp_string)),((T0*)ms111_470));
  174. r7extend(((T7*)(oBC291tmp_string)),'\40');
  175. r669gc_info_nb_in(C,oBC291tmp_string);
  176. r324put_extern2(((T324*)(oBC364cpp)),oBC291tmp_string,'0');
  177. }
  178. /*FI*/}
  179. /*No:TYPE_ANY.fz_void*/
  180. /*No:TYPE_ANY.fz_dot*/
  181. /*No:TYPE_ANY.is_generic*/
  182. /*No:TYPE_ANY.used_as_reference*/
  183. /*No:TYPE_ANY.c_header_pass2*/
  184. /*No:TYPE_ANY.gc_define1*/
  185. int r669need_c_struct(T669* C){
  186. int R=0;
  187. /*IF*/if (r355is_tagged(((T355*)(r669run_class(C))))) {
  188. R=1;
  189. }
  190. else {
  191. R=(r355writable_attributes(((T355*)(r669run_class(C)))))!=((void*)(NULL));
  192. }
  193. /*FI*/return R;
  194. }
  195. /*No:TYPE_ANY.gc_info_in*/
  196. /*No:TYPE_ANY.is_reference*/
  197. void r669error(T0* a1,T0* a2){
  198. r683add_position(a1);
  199. r683error(((T683*)(oBC364eh)),a2);
  200. }
  201. T0* r669base_class(T669* C){
  202. T0* R=NULL;
  203. T0* _bcn=NULL;
  204. _bcn=(((T669*)C))->_base_class_name/*4*/;
  205. /*IF*/if ((_bcn)!=((void*)(NULL))) {
  206. R=r451base_class(((T451*)_bcn));
  207. }
  208. else {
  209. /*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
  210. r7append(((T7*)(oBC683explanation)),b1);
  211. }/*]*/
  212. r683add_type((T0*)C,((T0*)ms67_470));
  213. r683print_as_fatal_error(((T683*)(oBC364eh)));
  214. }
  215. /*FI*/return R;
  216. }
  217. /*No:TYPE_ANY.call_gc_sweep_in*/
  218. /*No:TYPE_ANY.gc_define2*/
  219. /*No:TYPE_ANY.need_gc_mark_function*/
  220. void r669standard_gc_define2(T669* C){
  221. int _rcid=0;
  222. T0* _rc=NULL;
  223. _rc=r669run_class(C);
  224. _rcid=(((T355*)((T355*)_rc)))->_id/*4*/;
  225. r7copy(((T7*)(oBC291header)),((T0*)ms133_470));
  226. r7extend(((T7*)(oBC291header)),'\40');
  227. r7append(((T7*)(oBC291header)),((T0*)ms109_470));
  228. r2append_in(_rcid,oBC291header);
  229. r7extend(((T7*)(oBC291header)),'\50');
  230. r7append(((T7*)(oBC291header)),((T0*)ms105_470));
  231. r2append_in(_rcid,oBC291header);
  232. r7extend(((T7*)(oBC291header)),'\52');
  233. r7extend(((T7*)(oBC291header)),'b');
  234. r7extend(((T7*)(oBC291header)),'\54');
  235. r7append(((T7*)(oBC291header)),((T0*)ms105_470));
  236. r2append_in(_rcid,oBC291header);
  237. r7extend(((T7*)(oBC291header)),'\52');
  238. r7extend(((T7*)(oBC291header)),'h');
  239. r7extend(((T7*)(oBC291header)),'\51');
  240. r7copy(((T7*)(oBC291body)),((T0*)ms15_291));
  241. /*[IRF3.6gc_if_marked_in*/{T0* b1=oBC291body;
  242. r7append(((T7*)b1),((T0*)ms64_291));
  243. }/*]*/
  244. /*[IRF3.6gc_set_unmarked_in*/{T0* b1=oBC291body;
  245. r7append(((T7*)b1),((T0*)ms63_291));
  246. }/*]*/
  247. r7extend(((T7*)(oBC291body)),'\175');
  248. r7append(((T7*)(oBC291body)),((T0*)ms10_470));
  249. r7extend(((T7*)(oBC291body)),'\n');
  250. /*[IRF3.6gc_if_unmarked_in*/{T0* b1=oBC291body;
  251. r7append(((T7*)b1),((T0*)ms65_291));
  252. }/*]*/
  253. r7append(((T7*)(oBC291body)),((T0*)ms16_291));
  254. r669gc_free_in(C,oBC291body);
  255. r7append(((T7*)(oBC291body)),((T0*)ms17_291));
  256. r669gc_free_in(C,oBC291body);
  257. r7append(((T7*)(oBC291body)),((T0*)ms18_291));
  258. /*IF*/if (r669need_c_struct(C)) {
  259. r7append(((T7*)(oBC291body)),((T0*)ms19_291));
  260. r2append_in(_rcid,oBC291body);
  261. r7append(((T7*)(oBC291body)),((T0*)ms134_470));
  262. }
  263. /*FI*/r7append(((T7*)(oBC291body)),((T0*)ms20_291));
  264. r324put_c_function(((T324*)(oBC364cpp)),oBC291header,oBC291body);
  265. r7copy(((T7*)(oBC291header)),((T0*)ms133_470));
  266. r7extend(((T7*)(oBC291header)),'\40');
  267. r7append(((T7*)(oBC291header)),((T0*)ms108_470));
  268. r2append_in(_rcid,oBC291header);
  269. r7append(((T7*)(oBC291header)),((T0*)ms97_470));
  270. r7copy(((T7*)(oBC291body)),((T0*)ms21_291));
  271. r2append_in(_rcid,oBC291body);
  272. r7append(((T7*)(oBC291body)),((T0*)ms22_291));
  273. r669gcmt_in(C,oBC291body);
  274. r7extend(((T7*)(oBC291body)),'\53');
  275. r669gcmt_used_in(C,oBC291body);
  276. r7append(((T7*)(oBC291body)),((T0*)ms23_291));
  277. r669gcmt_used_in(C,oBC291body);
  278. r7append(((T7*)(oBC291body)),((T0*)ms24_291));
  279. r7append(((T7*)(oBC291body)),((T0*)ms25_291));
  280. r2append_in(_rcid,oBC291body);
  281. r7append(((T7*)(oBC291body)),((T0*)ms26_291));
  282. r324put_c_function(((T324*)(oBC364cpp)),oBC291header,oBC291body);
  283. r7copy(((T7*)(oBC291header)),((T0*)ms133_470));
  284. r7extend(((T7*)(oBC291header)),'\40');
  285. r669gc_mark_in(C,oBC291header);
  286. r7extend(((T7*)(oBC291header)),'\50');
  287. r7extend(((T7*)(oBC291header)),'T');
  288. r2append_in(_rcid,oBC291header);
  289. r7extend(((T7*)(oBC291header)),'\52');
  290. r7extend(((T7*)(oBC291header)),'o');
  291. r7extend(((T7*)(oBC291header)),'\51');
  292. /*[IRF3.3clear*/((((T7*)(((T7*)(oBC291body)))))->_count)=(0);
  293. /*]*/
  294. r669gc_declare_h_in(C,oBC291body);
  295. /*[IRF3.6gc_if_unmarked_in*/{T0* b1=oBC291body;
  296. r7append(((T7*)b1),((T0*)ms65_291));
  297. }/*]*/
  298. /*[IRF3.6gc_set_marked_in*/{T0* b1=oBC291body;
  299. r7append(((T7*)b1),((T0*)ms62_291));
  300. }/*]*/
  301. /*IF*/if (r355gc_mark_to_follow(((T355*)_rc))) {
  302. r355gc_mark_in(((T355*)_rc),oBC291body);
  303. }
  304. /*FI*/r7extend(((T7*)(oBC291body)),'\175');
  305. r324put_c_function(((T324*)(oBC364cpp)),oBC291header,oBC291body);
  306. r7copy(((T7*)(oBC291header)),((T0*)ms133_470));
  307. r7extend(((T7*)(oBC291header)),'\40');
  308. r669gc_align_mark_in(C,oBC291header);
  309. r7extend(((T7*)(oBC291header)),'\50');
  310. r7extend(((T7*)(oBC291header)),'T');
  311. r2append_in(_rcid,oBC291header);
  312. r7extend(((T7*)(oBC291header)),'\52');
  313. r7extend(((T7*)(oBC291header)),'o');
  314. r7extend(((T7*)(oBC291header)),'\54');
  315. r7append(((T7*)(oBC291header)),((T0*)ms105_470));
  316. r2append_in(_rcid,oBC291header);
  317. r7extend(((T7*)(oBC291header)),'\52');
  318. r7extend(((T7*)(oBC291header)),'B');
  319. r7extend(((T7*)(oBC291header)),'\51');
  320. /*[IRF3.3clear*/((((T7*)(((T7*)(oBC291body)))))->_count)=(0);
  321. /*]*/
  322. r669gc_declare_h_in(C,oBC291body);
  323. r7append(((T7*)(oBC291body)),((T0*)ms27_291));
  324. r669gc_mark_in(C,oBC291body);
  325. r7append(((T7*)(oBC291body)),((T0*)ms28_291));
  326. r324put_c_function(((T324*)(oBC364cpp)),oBC291header,oBC291body);
  327. r7copy(((T7*)(oBC291header)),((T0*)ms133_470));
  328. r7extend(((T7*)(oBC291header)),'\40');
  329. r7append(((T7*)(oBC291header)),((T0*)ms116_470));
  330. r2append_in(_rcid,oBC291header);
  331. r7append(((T7*)(oBC291header)),((T0*)ms97_470));
  332. r7copy(((T7*)(oBC291body)),((T0*)ms29_291));
  333. r2append_in(_rcid,oBC291body);
  334. r7append(((T7*)(oBC291body)),((T0*)ms30_291));
  335. r669gcmt_used_in(C,oBC291body);
  336. r7append(((T7*)(oBC291body)),((T0*)ms31_291));
  337. /*IF*/if (r355is_tagged(((T355*)_rc))) {
  338. r7append(((T7*)(oBC291body)),((T0*)ms32_291));
  339. r2append_in(_rcid,oBC291body);
  340. r7append(((T7*)(oBC291body)),((T0*)ms134_470));
  341. }
  342. /*FI*/r7append(((T7*)(oBC291body)),((T0*)ms33_291));
  343. r669gcmt_max_in(C,oBC291body);
  344. r7append(((T7*)(oBC291body)),((T0*)ms34_291));
  345. r669gcmt_max_in(C,oBC291body);
  346. r7append(((T7*)(oBC291body)),((T0*)ms35_291));
  347. r669gcmt_in(C,oBC291body);
  348. r7append(((T7*)(oBC291body)),((T0*)ms36_291));
  349. r669gcmt_in(C,oBC291body);
  350. r7append(((T7*)(oBC291body)),((T0*)ms37_291));
  351. r669gcmt_max_in(C,oBC291body);
  352. r7append(((T7*)(oBC291body)),((T0*)ms38_291));
  353. r669gcmt_in(C,oBC291body);
  354. r7append(((T7*)(oBC291body)),((T0*)ms39_291));
  355. r669gc_free_in(C,oBC291body);
  356. r7append(((T7*)(oBC291body)),((T0*)ms40_291));
  357. r7append(((T7*)(oBC291body)),((T0*)ms41_291));
  358. r669gc_align_mark_in(C,oBC291body);
  359. r7append(((T7*)(oBC291body)),((T0*)ms42_291));
  360. r324put_c_function(((T324*)(oBC364cpp)),oBC291header,oBC291body);
  361. /*[IRF3.3clear*/((((T7*)(((T7*)(oBC291header)))))->_count)=(0);
  362. /*]*/
  363. r7extend(((T7*)(oBC291header)),'T');
  364. r2append_in(_rcid,oBC291header);
  365. r7extend(((T7*)(oBC291header)),'\52');
  366. r7append(((T7*)(oBC291header)),((T0*)ms115_470));
  367. r2append_in(_rcid,oBC291header);
  368. r7append(((T7*)(oBC291header)),((T0*)ms97_470));
  369. r7copy(((T7*)(oBC291body)),((T0*)ms105_470));
  370. r2append_in(_rcid,oBC291body);
  371. r7append(((T7*)(oBC291body)),((T0*)ms43_291));
  372. /*IF*/if ((((T548*)((T548*)(oBC364gc_handler))))->_info_flag/*4*/) {
  373. r669gc_info_nb_in(C,oBC291body);
  374. r7append(((T7*)(oBC291body)),((T0*)ms44_291));
  375. }
  376. /*FI*/r7append(((T7*)(oBC291body)),((T0*)ms45_291));
  377. r669gc_free_in(C,oBC291body);
  378. r7append(((T7*)(oBC291body)),((T0*)ms46_291));
  379. r2append_in(r548threshold_start(_rcid),oBC291body);
  380. r7extend(((T7*)(oBC291body)),'\74');
  381. r669gcmt_used_in(C,oBC291body);
  382. r7append(((T7*)(oBC291body)),((T0*)ms47_291));
  383. r7append(((T7*)(oBC291body)),((T0*)ms89_470));
  384. r669gc_free_in(C,oBC291body);
  385. r7append(((T7*)(oBC291body)),((T0*)ms48_291));
  386. r2append_in(_rcid,oBC291body);
  387. r7append(((T7*)(oBC291body)),((T0*)ms49_291));
  388. r669gc_free_in(C,oBC291body);
  389. r7append(((T7*)(oBC291body)),((T0*)ms50_291));
  390. r669gc_free_in(C,oBC291body);
  391. r7append(((T7*)(oBC291body)),((T0*)ms51_291));
  392. /*[IRF3.6gc_set_unmarked_in*/{T0* b1=oBC291body;
  393. r7append(((T7*)b1),((T0*)ms63_291));
  394. }/*]*/
  395. r7append(((T7*)(oBC291body)),((T0*)ms52_291));
  396. r324put_c_function(((T324*)(oBC364cpp)),oBC291header,oBC291body);
  397. }
  398. /*No:TYPE_ANY.is_any*/
  399. /*No:TYPE_ANY.to_reference*/
  400. /*No:TYPE_ANY.c_header_pass3*/
  401. /*No:TYPE_ANY.fz_new_pool*/
  402. /*No:TYPE_ANY.base_class_name*/
  403. /*No:TYPE_ANY.is_expanded*/
  404. void r669standard_call_gc_sweep_in(T669* C,T0* a1){
  405. r7append(((T7*)a1),((T0*)ms108_470));
  406. r2append_in(r669id(C),a1);
  407. r7extend(((T7*)a1),'\50');
  408. r7extend(((T7*)a1),'\51');
  409. r7append(((T7*)a1),((T0*)ms134_470));
  410. }
  411. /*No:TYPE_ANY.gc_if_unmarked_in*/
  412. /*No:TYPE_ANY.is_basic_eiffel_expanded*/
  413. /*No:TYPE_ANY.is_none*/
  414. /*No:TYPE_ANY.to_expanded*/
  415. /*No:TYPE_ANY.is_integer*/
  416. /*No:TYPE_ANY.us_any*/
  417. void r669c_header_pass4(T669* C){
  418. /*IF*/if (r669need_c_struct(C)) {
  419. r669standard_c_struct(C);
  420. }
  421. /*FI*/}
  422. /*No:TYPE_ANY.fz_struct*/
  423. /*No:CALL_INFIX_FREEOP.arguments*/
  424. T0* r534add_comment(T534* C,T0* a1){
  425. T0* R=NULL;
  426. /*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
  427. R=(T0*)C;
  428. }
  429. else {
  430. {T529*n=malloc(sizeof(*n));
  431. *n=M529;
  432. r529make(n,(T0*)C,a1);
  433. R=(T0*)n;
  434. }
  435. }
  436. /*FI*/return R;
  437. }
  438. int r534to_integer(T534* C){
  439. int R=0;
  440. r534error(/*(IRF4.6start_position*/(((T454*)((T454*)((((T534*)C))->_feature_name/*28*/))))->_start_position/*8*//*)*/,((T0*)ms69_470));
  441. return R;
  442. }
  443. int r534is_a(T534* C,T0* a1){
  444. int R=0;
  445. R=X291is_a(X291run_type((((T534*)C))->_result_type/*20*/),X291run_type(X662result_type(a1)));
  446. /*IF*/if (!(R)) {
  447. r683add_position(/*(IRF4.6start_position*/(((T454*)((T454*)((((T534*)C))->_feature_name/*28*/))))->_start_position/*8*//*)*/);
  448. r534error(X662start_position(a1),((T0*)ms4_662));
  449. }
  450. /*FI*/return R;
  451. }
  452. /*No:CALL_INFIX_FREEOP.is_current*/
  453. void r534mapping_c_arg(T534* C,T0* a1){
  454. T0* _actual_type=NULL;
  455. _actual_type=X291run_type((((T534*)C))->_result_type/*20*/);
  456. /*IF*/if (X291is_reference(_actual_type)) {
  457. /*IF*/if (X291is_reference(a1)) {
  458. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  459. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  460. }/*]*/
  461. /*]*/
  462. }
  463. else {
  464. X291to_expanded(_actual_type);
  465. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  466. char b1='\50';
  467. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  468. }/*]*/
  469. /*]*/
  470. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  471. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  472. }/*]*/
  473. /*]*/
  474. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  475. char b1='\51';
  476. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  477. }/*]*/
  478. /*]*/
  479. }
  480. /*FI*/}
  481. else {
  482. /*IF*/if (X291is_reference(a1)) {
  483. X291to_reference(_actual_type);
  484. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  485. char b1='\50';
  486. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  487. }/*]*/
  488. /*]*/
  489. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  490. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  491. }/*]*/
  492. /*]*/
  493. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  494. char b1='\51';
  495. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  496. }/*]*/
  497. /*]*/
  498. }
  499. else {
  500. /*IF*/if (X291need_c_struct(a1)) {
  501. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  502. char b1='\46';
  503. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  504. }/*]*/
  505. /*]*/
  506. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  507. char b1='\50';
  508. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  509. }/*]*/
  510. /*]*/
  511. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  512. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  513. }/*]*/
  514. /*]*/
  515. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  516. char b1='\51';
  517. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  518. }/*]*/
  519. /*]*/
  520. }
  521. else {
  522. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  523. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  524. }/*]*/
  525. /*]*/
  526. }
  527. /*FI*/}
  528. /*FI*/}
  529. /*FI*/}
  530. /*No:CALL_INFIX_FREEOP.static_value*/
  531. void r534make(T534* C,T0* a1,T0* a2,T0* a3){
  532. T0* _eal=NULL;
  533. {T431*n=malloc(sizeof(*n));
  534. *n=M431;
  535. /*[IRF3.3make*/((((T431*)(n)))->_list)=(se_ma96(1,a3));
  536. /*]*/
  537. _eal=(T0*)n;
  538. }
  539. r534make_call_1(C,a1,a2,_eal);
  540. }
  541. void r534mapping_c_target(T534* C,T0* a1){
  542. T0* _actual_type=NULL;
  543. int _flag=0;
  544. _flag=r324call_invariant_start(a1);
  545. _actual_type=X291run_type((((T534*)C))->_result_type/*20*/);
  546. /*IF*/if (X291is_reference(_actual_type)) {
  547. /*IF*/if (X291is_reference(a1)) {
  548. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  549. char b1='\50';
  550. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  551. }/*]*/
  552. /*]*/
  553. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  554. char b1='\50';
  555. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  556. }/*]*/
  557. /*]*/
  558. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  559. char b1='T';
  560. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  561. }/*]*/
  562. /*]*/
  563. /*[IRF3.5put_integer*/r544put_integer(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X291id(a1));
  564. /*]*/
  565. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  566. char b1='\52';
  567. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  568. }/*]*/
  569. /*]*/
  570. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  571. char b1='\51';
  572. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  573. }/*]*/
  574. /*]*/
  575. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  576. char b1='\50';
  577. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  578. }/*]*/
  579. /*]*/
  580. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  581. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  582. }/*]*/
  583. /*]*/
  584. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  585. char b1='\51';
  586. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  587. }/*]*/
  588. /*]*/
  589. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  590. char b1='\51';
  591. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  592. }/*]*/
  593. /*]*/
  594. }
  595. else {
  596. X291to_expanded(_actual_type);
  597. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  598. char b1='\50';
  599. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  600. }/*]*/
  601. /*]*/
  602. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  603. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  604. }/*]*/
  605. /*]*/
  606. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  607. char b1='\51';
  608. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  609. }/*]*/
  610. /*]*/
  611. }
  612. /*FI*/}
  613. else {
  614. /*IF*/if (X291is_reference(a1)) {
  615. X291to_reference(_actual_type);
  616. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  617. char b1='\50';
  618. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  619. }/*]*/
  620. /*]*/
  621. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  622. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  623. }/*]*/
  624. /*]*/
  625. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  626. char b1='\51';
  627. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  628. }/*]*/
  629. /*]*/
  630. }
  631. else {
  632. /*IF*/if (X291need_c_struct(a1)) {
  633. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  634. char b1='\46';
  635. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  636. }/*]*/
  637. /*]*/
  638. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  639. char b1='\50';
  640. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  641. }/*]*/
  642. /*]*/
  643. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  644. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  645. }/*]*/
  646. /*]*/
  647. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
  648. char b1='\51';
  649. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  650. }/*]*/
  651. /*]*/
  652. }
  653. else {
  654. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T534* C1=C;
  655. r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
  656. }/*]*/
  657. /*]*/
  658. }
  659. /*FI*/}
  660. /*FI*/}
  661. /*FI*//*IF*/if (_flag) {
  662. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T544* C1=((T544*)(oBC324out_c));
  663. char b1='\51';
  664. putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
  665. }/*]*/
  666. /*]*/
  667. }
  668. /*FI*/}
  669. /*No:CALL_INFIX_FREEOP.nb_errors*/
  670. /*No:CALL_INFIX_FREEOP.feature_name*/
  671. /*No:CALL_INFIX_FREEOP.fz_iinaiv*/
  672. /*No:CALL_INFIX_FREEOP.arg_count*/
  673. /*No:CALL_INFIX_FREEOP.dca_inline_argument*/
  674. /*No:CALL_INFIX_FREEOP.run_feature*/
  675. /*No:CALL_INFIX_FREEOP.call_proc_call_c2c*/
  676. /*No:CALL_INFIX_FREEOP.start_position*/
  677. /*No:CALL_INFIX_FREEOP.target*/
  678. /*No:CALL_INFIX_FREEOP.compile_to_c*/
  679. /*No:CALL_INFIX_FREEOP.c_simple*/
  680. T0* r534to_runnable(T534* C,T0* a1){
  681. T0* R=NULL;
  682. T0* _tla=NULL;
  683. T0* _a=NULL;
  684. /*IF*/if (((((T534*)C))->_current_type/*8*/)==((void*)(NULL))) {
  685. r534to_runnable_0(C,a1);
  686. _a=X431to_runnable((((T534*)C))->_arguments/*24*/,a1);
  687. /*IF*/if ((_a)==((void*)(NULL))) {
  688. r534error(X662start_position(r534arg1(C)),((T0*)ms55_470));
  689. }
  690. else {
  691. C->_arguments=_a;
  692. }
  693. /*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
  694. X431match_with((((T534*)C))->_arguments/*24*/,(((T534*)C))->_run_feature/*16*/);
  695. }
  696. /*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
  697. _tla=(((T534*)C))->_result_type/*20*/;
  698. if(NULL!=(_tla))switch(((T0*)_tla)->id) {
  699. case 239: 
  700. break;
  701. default:
  702. _tla=NULL;
  703. };/*IF*/if ((_tla)!=((void*)(NULL))) {
  704. C->_result_type=X291run_type(X662result_type(r534arg1(C)));
  705. }
  706. /*FI*/}
  707. /*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
  708. R=(T0*)C;
  709. }
  710. /*FI*/}
  711. else {
  712. R=r534twin(C);
  713. /*[IRF3.3set_current_type*/((((T534*)(((T534*)R))))->_current_type)=(NULL);
  714. /*]*/
  715. R=r534to_runnable(((T534*)R),a1);
  716. }
  717. /*FI*/return R;
  718. }
  719. /*No:CALL_INFIX_FREEOP.result_type*/
  720. /*No:CALL_INFIX_FREEOP.is_result*/
  721. T0* r534twin(T534* C){
  722. T0* R=NULL;
  723. R=malloc(sizeof(*C));
  724. *((T534*)R)=*C;
  725. return R;
  726. }
  727. /*No:CALL_INFIX_FREEOP.set_current_type*/
  728. /*No:CALL_INFIX_FREEOP.is_static*/
  729. int r534call_is_static(T534* C){
  730. int R=0;
  731. T0* _rf=NULL;
  732. T0* _running=NULL;
  733. T0* _rc=NULL;
  734. /*IF*/if (((((T534*)C))->_run_feature/*16*/)!=((void*)(NULL))) {
  735. _rc=X496run_class((((T534*)C))->_run_feature/*16*/);
  736. /*IF*/if ((_rc)!=((void*)(NULL))) {
  737. _running=(((T355*)((T355*)_rc)))->_running/*12*/;
  738. /*IF*/if (((_running)!=((void*)(NULL)))&&((r396count(((T396*)_running)))==(1))) {
  739. _rf=r355dynamic(((T355*)(r396first(((T396*)_running)))),(((T534*)C))->_run_feature/*16*/);
  740. /*IF*/if (X496is_static(_rf)) {
  741. C->_static_value_mem=X496static_value_mem(_rf);
  742. R=1;
  743. }
  744. /*FI*/}
  745. /*FI*/}
  746. /*FI*/}
  747. /*FI*/return R;
  748. }
  749. /*No:CALL_INFIX_FREEOP.fz_07*/
  750. /*No:CALL_INFIX_FREEOP.can_be_dropped*/
  751. /*No:CALL_INFIX_FREEOP.current_type*/
  752. void r534compile_to_c_old(T534* C){
  753. X662compile_to_c_old((((T534*)C))->_target/*12*/);
  754. /*IF*/{/*AT*/X431compile_to_c_old((((T534*)C))->_arguments/*24*/);
  755. }
  756. /*FI*/}
  757. /*No:CALL_INFIX_FREEOP.static_value_mem*/
  758. void r534make_call_1(T534* C,T0* a1,T0* a2,T0* a3){
  759. C->_target=a1;
  760. C->_feature_name=a2;
  761. C->_arguments=a3;
  762. }
  763. /*No:CALL_INFIX_FREEOP.is_manifest_string*/
  764. /*No:CALL_INFIX_FREEOP.is_void*/
  765. void r534to_runnable_0(T534* C,T0* a1){
  766. C->_current_type=a1;
  767. r534cpc_to_runnable(C,a1);
  768. C->_result_type=/*X496*/((T0*)(((T832*)((T832*)((((T534*)C))->_run_feature/*16*/))))->_result_type/*24*/);
  769. /*IF*/if (((((T534*)C))->_result_type/*20*/)==((void*)(NULL))) {
  770. r683add_position(X496start_position((((T534*)C))->_run_feature/*16*/));
  771. r534error((((T454*)((T454*)((((T534*)C))->_feature_name/*28*/))))->_start_position/*8*/,((T0*)ms1_295));
  772. }
  773.  else if (X291is_like_current((((T534*)C))->_result_type/*20*/)) {
  774. C->_result_type=X662result_type((((T534*)C))->_target/*12*/);
  775. }
  776. /*FI*/}
  777. /*No:CALL_INFIX_FREEOP.is_pre_computable*/
  778. void r534cpc_to_runnable(T534* C,T0* a1){
  779. T0* _rc=NULL;
  780. T0* _t=NULL;
  781. _t=X662to_runnable((((T534*)C))->_target/*12*/,a1);
  782. /*IF*/if ((_t)==((void*)(NULL))) {
  783. r683add_position(X662start_position((((T534*)C))->_target/*12*/));
  784. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
  785. r683fatal_error(((T683*)(oBC364eh)),b1);
  786. }/*]*/
  787. }
  788. /*FI*/C->_target=_t;
  789. _rc=X291run_class(X662result_type((((T534*)C))->_target/*12*/));
  790. C->_run_feature=r355get_rf(((T355*)_rc),(T0*)C);
  791. r576update((((T534*)C))->_target/*12*/,(((T534*)C))->_run_feature/*16*/);
  792. }
  793. int r534use_current(T534* C){
  794. int R=0;
  795. /*IF*/{/*AT*/R=X431use_current((((T534*)C))->_arguments/*24*/);
  796. }
  797. /*FI*//*IF*/if (R) {
  798. }
  799.  else if (X662is_current((((T534*)C))->_target/*12*/)) {
  800. R=X496use_current((((T534*)C))->_run_feature/*16*/);
  801. }
  802. else {
  803. R=X662use_current((((T534*)C))->_target/*12*/);
  804. }
  805. /*FI*/return R;
  806. }
  807. void r534finalize(T534* C){
  808. T0* _rf=NULL;
  809. T0* _rc=NULL;
  810. _rf=(((T534*)C))->_run_feature/*16*/;
  811. _rc=X291run_class(/*X496*/((T0*)(((T832*)((T832*)_rf)))->_current_type/*4*/));
  812. /*IF*/if (!((((T355*)((T355*)_rc)))->_at_run_time/*8*/)) {
  813. _rf=r355dynamic(((T355*)(r396first(((T396*)((((T355*)((T355*)_rc)))->_running/*12*/))))),_rf);
  814. C->_run_feature=_rf;
  815. }
  816. /*FI*/}
  817. void r534error(T0* a1,T0* a2){
  818. r683add_position(a1);
  819. r683error(((T683*)(oBC364eh)),a2);
  820. }
  821. /*No:CALL_INFIX_FREEOP.isa_dca_inline_argument*/
  822. /*No:CALL_INFIX_FREEOP.fatal_error*/
  823. /*No:CALL_INFIX_FREEOP.fz_bad_argument*/
  824. T0* r534arg1(T534* C){
  825. T0* R=NULL;
  826. R=X431first((((T534*)C))->_arguments/*24*/);
  827. return R;
  828. }
  829. void r534afd_check(T534* C){
  830. T0* _running=NULL;
  831. T0* _rc=NULL;
  832. _rc=X291run_class(X662result_type((((T534*)C))->_target/*12*/));
  833. _running=(((T355*)((T355*)_rc)))->_running/*12*/;
  834. /*IF*/if ((_running)==((void*)(NULL))) {
  835. r683add_position(X662start_position((((T534*)C))->_target/*12*/));
  836. /*[IRF3.6append*/{T0* b1=((T0*)ms1_135);
  837. r7append(((T7*)(oBC683explanation)),b1);
  838. }/*]*/
  839. /*[IRF3.6append*/{T0* b1=X291run_time_mark((((T355*)((T355*)_rc)))->_current_type/*0*/);
  840. r7append(((T7*)(oBC683explanation)),b1);
  841. }/*]*/
  842. /*[IRF3.6append*/{T0* b1=((T0*)ms141_470);
  843. r7append(((T7*)(oBC683explanation)),b1);
  844. }/*]*/
  845. r683print_as_warning(((T683*)(oBC364eh)));
  846. r355set_at_run_time(((T355*)_rc));
  847. }
  848.  else if ((r396count(((T396*)_running)))>(0)) {
  849. r576update((((T534*)C))->_target/*12*/,(((T534*)C))->_run_feature/*16*/);
  850. }
  851. /*FI*/X662afd_check((((T534*)C))->_target/*12*/);
  852. /*IF*/{/*AT*/X431afd_check((((T534*)C))->_arguments/*24*/);
  853. }
  854. /*FI*/}
  855.  
  856.