| /dports/lang/gforth/gforth-0.7.3/arch/4stack/ |
| H A D | relocate.fs | 41 2Variable dovar
46 image @ $80C + be@ image @ $808 + be@ dovar x!
58 dovar x@ $10. d+
61 dovar x@
65 dovar x@ nip
|
| H A D | prim.fs | 55 dovar: .endif ;;
56 ;; ip@ nop nop call dovar ;;
62 ;; ip@ nop nop call dovar ;;
70 -4 Doer: :dovar
|
| /dports/lang/gforth/gforth-0.7.3/arch/shboom/ |
| H A D | doers.fs | 30 doer? :dovar [IF]
31 : dovar: ( -- addr ) \ gforth
35 ['] :dovar ;
64 CASE dovar: SkipInlineMark @ OF drop dovar: true EXIT ENDOF
|
| H A D | compiler.fs | 284 [G'] :dovar
293 >code-address dovar: = ;
360 dup [G'] :dovar = over [G'] :docon = or
380 dup dovar: = over docon: = or
|
| H A D | sh.p | 78 \ : :dovar ( '2 (emit ) r> cell+ ; isdoer
82 : :dovar _inline 7 add_pc, ; isdoer
|
| /dports/lang/gforth/gforth-0.7.3/kernel/ |
| H A D | getdoers.fs | 37 doer? :dovar [IF]
38 : dovar: ( -- addr ) \ gforth
|
| H A D | prim0.fs | 22 \ -4 Alias: :dovar
|
| H A D | aliases0.fs | 22 -4 Doer: :dovar
|
| H A D | doers.fs | 53 doer? :dovar 0= [IF] \D compileddofillers .( DOVAR )
|
| /dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
| H A D | lowerilm.c | 1858 ilm = lower_sptr(dovar, VarBase); in llvm_omp_sched()
1886 if (o_lb != dovar) { in llvm_omp_sched()
2031 dovar = A_SPTRG(lop); in lower_do_stmt()
2032 dtype = DTYPEG(dovar); in lower_do_stmt()
2068 switch (DTY(DTYPEG(dovar))) { in lower_do_stmt()
2186 lower_push(dovar); in lower_do_stmt()
2415 lower_push(dovar); in lower_do_stmt()
2668 if (dovar) { in lower_enddo_stmt()
2669 dtype = DTYPEG(dovar); in lower_enddo_stmt()
2879 dovar = A_SPTRG(lop); in lower_omp_target_tripcount()
[all …]
|
| H A D | optimize.c | 449 int doast, dovar, donme; in optimize() local
451 dovar = A_SPTRG(A_DOVARG(doast)); in optimize()
452 donme = add_arrnme(NT_VAR, dovar, 0, (INT)0, 0, FALSE); in optimize()
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/fortran/ |
| H A D | trans-openmp.c | 1323 tree dovar, stmt, from, to, step, type, init, cond, incr; in gfc_trans_omp_do() local
1378 dovar = se.expr; in gfc_trans_omp_do()
1379 type = TREE_TYPE (dovar); in gfc_trans_omp_do()
1396 dovar_decl = dovar; in gfc_trans_omp_do()
1399 if (TREE_CODE (dovar) == VAR_DECL) in gfc_trans_omp_do()
1413 TREE_VEC_ELT (init, i) = build2_v (MODIFY_EXPR, dovar, from); in gfc_trans_omp_do()
1417 boolean_type_node, dovar, to); in gfc_trans_omp_do()
1419 type, dovar, step); in gfc_trans_omp_do()
1422 type, dovar, in gfc_trans_omp_do()
1456 dovar_init e = {dovar, tmp}; in gfc_trans_omp_do()
[all …]
|
| H A D | trans-stmt.c | 1398 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
1403 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
1404 fold_convert (TREE_TYPE(dovar), from)); in gfc_trans_simple_do()
1439 dovar, saved_dovar); in gfc_trans_simple_do()
1461 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
1464 gfc_add_modify_loc (loc, &body, saved_dovar, dovar); in gfc_trans_simple_do()
1534 tree dovar; in gfc_trans_do() local
1558 dovar = se.expr; in gfc_trans_do()
1559 type = TREE_TYPE (dovar); in gfc_trans_do()
1607 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/fortran/ |
| H A D | trans-openmp.c | 1301 tree dovar, stmt, from, to, step, type, init, cond, incr; in gfc_trans_omp_do() local
1356 dovar = se.expr; in gfc_trans_omp_do()
1357 type = TREE_TYPE (dovar); in gfc_trans_omp_do()
1374 dovar_decl = dovar; in gfc_trans_omp_do()
1377 if (TREE_CODE (dovar) == VAR_DECL) in gfc_trans_omp_do()
1391 TREE_VEC_ELT (init, i) = build2_v (MODIFY_EXPR, dovar, from); in gfc_trans_omp_do()
1395 boolean_type_node, dovar, to); in gfc_trans_omp_do()
1397 type, dovar, step); in gfc_trans_omp_do()
1400 type, dovar, in gfc_trans_omp_do()
1434 dovar_init e = {dovar, tmp}; in gfc_trans_omp_do()
[all …]
|
| H A D | trans-stmt.c | 1398 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
1403 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
1404 fold_convert (TREE_TYPE(dovar), from)); in gfc_trans_simple_do()
1439 dovar, saved_dovar); in gfc_trans_simple_do()
1461 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
1464 gfc_add_modify_loc (loc, &body, saved_dovar, dovar); in gfc_trans_simple_do()
1534 tree dovar; in gfc_trans_do() local
1558 dovar = se.expr; in gfc_trans_do()
1559 type = TREE_TYPE (dovar); in gfc_trans_do()
1607 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/graphics/exifprobe/exifprobe-2.0.1/ |
| H A D | exifgrep | 39 if test 0$dovar -ne 0
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/fortran/ |
| H A D | trans-stmt.c | 1416 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
1421 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
1422 fold_convert (TREE_TYPE(dovar), from)); in gfc_trans_simple_do()
1457 dovar, saved_dovar); in gfc_trans_simple_do()
1479 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
1482 gfc_add_modify_loc (loc, &body, saved_dovar, dovar); in gfc_trans_simple_do()
1552 tree dovar; in gfc_trans_do() local
1576 dovar = se.expr; in gfc_trans_do()
1577 type = TREE_TYPE (dovar); in gfc_trans_do()
1625 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/fortran/ |
| H A D | trans-stmt.c | 1856 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
1861 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
1862 fold_convert (TREE_TYPE(dovar), from)); in gfc_trans_simple_do()
1897 dovar, saved_dovar); in gfc_trans_simple_do()
1919 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
1922 gfc_add_modify_loc (loc, &body, saved_dovar, dovar); in gfc_trans_simple_do()
1992 tree dovar; in gfc_trans_do() local
2016 dovar = se.expr; in gfc_trans_do()
2017 type = TREE_TYPE (dovar); in gfc_trans_do()
2065 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/fortran/ |
| H A D | trans-stmt.c | 1856 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
1861 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
1862 fold_convert (TREE_TYPE(dovar), from)); in gfc_trans_simple_do()
1897 dovar, saved_dovar); in gfc_trans_simple_do()
1919 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
1922 gfc_add_modify_loc (loc, &body, saved_dovar, dovar); in gfc_trans_simple_do()
1992 tree dovar; in gfc_trans_do() local
2016 dovar = se.expr; in gfc_trans_do()
2017 type = TREE_TYPE (dovar); in gfc_trans_do()
2065 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | trans-stmt.c | 2108 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
2114 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
2115 fold_convert (TREE_TYPE (dovar), from)); in gfc_trans_simple_do()
2175 dovar, boundary); in gfc_trans_simple_do()
2195 dovar, saved_dovar); in gfc_trans_simple_do()
2202 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
2259 tree dovar; in gfc_trans_do() local
2283 dovar = se.expr; in gfc_trans_do()
2284 type = TREE_TYPE (dovar); in gfc_trans_do()
2332 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/fortran/ |
| H A D | trans-stmt.c | 2122 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
2128 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
2129 fold_convert (TREE_TYPE (dovar), from)); in gfc_trans_simple_do()
2202 dovar, boundary); in gfc_trans_simple_do()
2222 dovar, saved_dovar); in gfc_trans_simple_do()
2229 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
2286 tree dovar; in gfc_trans_do() local
2310 dovar = se.expr; in gfc_trans_do()
2311 type = TREE_TYPE (dovar); in gfc_trans_do()
2359 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/fortran/ |
| H A D | trans-stmt.c | 2107 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
2113 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
2114 fold_convert (TREE_TYPE (dovar), from)); in gfc_trans_simple_do()
2174 dovar, boundary); in gfc_trans_simple_do()
2194 dovar, saved_dovar); in gfc_trans_simple_do()
2201 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
2258 tree dovar; in gfc_trans_do() local
2282 dovar = se.expr; in gfc_trans_do()
2283 type = TREE_TYPE (dovar); in gfc_trans_do()
2331 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | trans-stmt.c | 2108 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
2114 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
2115 fold_convert (TREE_TYPE (dovar), from)); in gfc_trans_simple_do()
2175 dovar, boundary); in gfc_trans_simple_do()
2195 dovar, saved_dovar); in gfc_trans_simple_do()
2202 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
2259 tree dovar; in gfc_trans_do() local
2283 dovar = se.expr; in gfc_trans_do()
2284 type = TREE_TYPE (dovar); in gfc_trans_do()
2332 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | trans-stmt.c | 2108 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
2114 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
2115 fold_convert (TREE_TYPE (dovar), from)); in gfc_trans_simple_do()
2175 dovar, boundary); in gfc_trans_simple_do()
2195 dovar, saved_dovar); in gfc_trans_simple_do()
2202 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
2259 tree dovar; in gfc_trans_do() local
2283 dovar = se.expr; in gfc_trans_do()
2284 type = TREE_TYPE (dovar); in gfc_trans_do()
2332 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/fortran/ |
| H A D | trans-stmt.c | 2108 type = TREE_TYPE (dovar); in gfc_trans_simple_do()
2114 gfc_add_modify_loc (loc, pblock, dovar, in gfc_trans_simple_do()
2115 fold_convert (TREE_TYPE (dovar), from)); in gfc_trans_simple_do()
2175 dovar, boundary); in gfc_trans_simple_do()
2195 dovar, saved_dovar); in gfc_trans_simple_do()
2202 gfc_add_modify_loc (loc, &body, dovar, tmp); in gfc_trans_simple_do()
2259 tree dovar; in gfc_trans_do() local
2283 dovar = se.expr; in gfc_trans_do()
2284 type = TREE_TYPE (dovar); in gfc_trans_do()
2332 gfc_add_modify (&block, dovar, from); in gfc_trans_do()
[all …]
|