1826,1827c
#      if 0 <= rg.p
      if rg.flge?
.
1814c
#       0 > rg.p && rg.p = ~ rg.p
#       0 > (pt = rg.p) && rg.p = ~ pt
#       rg.p = ~ rg.p
        rg.flgflp               # flg_e
.
1812d
1809,1810c
#      if 0 > rg.p &&
      if rg.flgd? && (
        ise[i_i_d].empty? || (0 == ise[i_i_d].hgt && 0 > ise[i_i_d][-1][i_pc]))
.
1793,1803c
#       vrb "#{pc.to_xeh}  #{sym}  #{rg[:cop].to_xeh}" if 0 <= rg.p
#       @@Vrb.s<< [1, pc, sym, rg[:cop]] if 0 <= rg.p          # p 
        @@Vrb.s<< [1, pc, sym, rg[:cop]] if rg.flge?              # p 

#       [(ifj.(sym) || [ifs.(sym), sym = false][0]) ||  # c 2   # sym hakai     # bagu no moto
#               pctj.pop != pc && istm.call && ! ist.(pc), # false,     # c 
#       (next if pcoj.call)     ][0] && (
        [stu.call,                              # sym hakai     # bagu no moto
                (next if pcoj.call)             # r 
        ][0] && (
##        ifj.call && (pctj<< 1 + pco[0] = pc)            # p 
#         (pctj<< 1 + pco[0] = pc) if sym         # p 
          sym && pctj<< 1 + pco[0] = pc                   # p 
#         rg.p = ~ rg.p
          rg.flgflp             # flg_d
.
1787c
#      if pco.pop || 0 <= rg.p
      if pco.pop || rg.flge?
.
1779c
      (ifj.call || [ifs.call, sym = false][0])  ||      # sym hakai     # bagu no moto
        pctj.pop != pc && istm.call && ! ist.(pc) # false               # c 
    }
.
1775a
    stu = -> {               # l 
.
1771,1772c
#      ise[i_i_s]<< [0 > rg.p ? -pcl : pcl, Rg.new(*rg.to_a)]  # p     # cp 
      ise[i_i_s]<< [rg.flgd? ? ~ pcl : pcl, Rg.new(*rg.to_a)]     # p     # cp 
.
1768d
1761,1762d
1753,1756c
#         if -pcf == rg['pc']                           # cp 
          if ~ pcf == rg['pc']                          # cp 
#           pfl[i_pc] = -pcf                            # cp 
            pfl[i_pc] = ~ pcf                           # cp 
.
1750d
1744,1745c
#      rg.push(:cop, stack.c = (sym = @@opf.(irep, pcl)).shift)         # c 
      rg.push(:cop, stack.c = (sym = @@opf.(irep, pcl))[0])             # c 
#      rg.push(:sym, sym = sym[0])
      rg.push(:sym, sym = sym[1])
.
1734,1735c
        rg.pop :cop; stack.c = rg[:cop]
.
1731,1732c
#      if 0 > rg.p
      if rg.flgd?
#       rg.pop :cop
#       rg.pop :sym
#       stack.c = rg[:cop]
.
1717c
#       if ifj.(sym)            # c 
        if ifj.call
.
1663c
        rg['pc', -1] = rg['pc'] + rou.getarg_sbx(cop)           # cp 
.
1661d
1638,1639c
#    ifj = ->(sy) {?J == sy.to_s[0]}         # l     # q 
#    ifs = ->(sy) {[:ENTER, :SEND, :RETURN, :NOP].include?(sy)}              # l 
    ifj = -> {?J == sym.to_s[0]}             # l     # q 
    ifs = -> {[:ENTER, :SEND, :RETURN, :NOP].include?(sym)}          # l 
.
1635d
1608,1609c
#       rgd &&= nil
#       sl.slp 0
        sl_.slp 0
.
1603,1605c
#       ri ||= true == fb.resume(rgd)
        ri ||= [true == fb.resume(rgd), rgd = nil][0]   # .slice! higokan mruby 70410200
.
1599,1601c
#    Fiber.new { |m = 1, ri = false, rf = false|
    Fiber.new { |m = 1, ri = false, rf = false, sl_ = @@Slp|
.
1596d
1593c
#    sl = @Slp
.
1540d
1451,1452c
#                       [thl[oi], vrb.(fv[oi])] : []}].lazy]    #? mruby 410200         # c 
                        [thl[oi], vrb.(fv[oi])] : []}]]                         # c 
.
1449c
            [->(oi) {[thl[oi], vrb.(imem.ta(fv[oi], cop)), thl[oi + 1], tb]},        # l     # c 
.
1445,1446c
#                       [thl[oi], vrb.(fv[oi])] : []},                                  # c 
#            ->(oi) {[thl[oi], vrb.(imem.ta(fv[oi], cop)), thl[oi + 1], tb]}]        # l     # c 
.
1438,1439c
#                       [thl[oi], vrb.(fv[oi])] : []},                                          # c 
#          ->(oi) {[thl[oi], vrb.(imem.ta(fv[oi], cop)), thl[oi + 1], tb]}] # .lazy  # l     # c 
.
1429,1432c
    vrb = ->(vrb) {          # l     # LV__VRB
#     @@Vrb.s<< [2, pc, getarg__(vrb[0]), vrb[1]]         # p 
      vrb
.
1412c
#    ini = ->(rg) {          # l 
    ini = ->(rg = nil) {             # l 
.
1410a
    ) # .move   # ?     # conf.gem :github => 'miura1729/mruby-mmm'
.
1409c
      pc1, fml = nil
.
1400,1407c
#      tb = TB.dup
      tb = (TB)
      loc = @@Loc
      imem = @Imem
      pl = @pl
#     i_lf = @idx['lf']
      i_lb = imem.fmli.index('th') + 1
      sl = @Slp
.
1398c
#     pc1 = 1 + pcabs = pc.abs          # cp 
.
1396c
      pc, sp, cop, sym = nil
.
1393a
    (
.
1375,1384c
#       f ||= c_l.plg(pc) && c_l.rslt(pc)
#       f = c_l.ca(m, pc) && f
        f = c_l.plg(pc) && c_l.rslt(pc) && c_l.ca(m, pc)
        c_l.verb(pc)
#       sl.plwt(m) {m = Fiber.yield(f)}
        sl_.plwt(m) {m = Fiber.yield(f)}
.
1373c
#    Fiber.new { |m = 1, f = false|
    Fiber.new { |m = 1, f = false, sl_ = @Slp|
.
1370c
#      sl = @Slp
.
1368d
1365c
      s = Stack.new
.
1361d
1349,1350c
##    vrb "#{pc.to_xeh}                    #{@sym} #{rs[1]}        #{rs[0]}"
.
1346c
    def verb(pc)
.
1342d
1337,1338c
#      @f = [ji_ngq.all? || return, @ji_ngq = ji_ngq][0]                # r 
      @f = *[(@ji_ngq = ji_ngq).all? || return] # ||= higokan ? monami-ya.mrb:60510200 mruby:70410200   # r 
.
1334,1335c
#      ji_ngq[0] && @s.p = pl[@i_sp].flatten[0]
      ji_ngq[0] && @s.p = pl[@@i_sp].flatten[0]
#      @sym ||= pl[lpl.afl('sym', ?i)].to_sym           # q 
      @sym ||= pl[@@i_sym].to_sym
.
1327c
#      r[1] = r[0] if case pl[@i_sp][0] when Array then lpl.ckth(r[1], 2) end
      r[1] = r[0] if case pl[@@i_sp][0] when Array then lpl.ckth(r[1], 2) end
.
1324d
1319,1321c
#      thl.each_with_index { |h, n|
      (0 ... thl.size).each { |n|
#       r[n] = (pl[lpl.afl(h, ?i)] || @r[n])            # q     # fuguai taisaku
        r[n] = (pl[lpl.afl(thl[n], ?i)] || @r[n])       # q     # fuguai taisaku
.
1307,1308d
1304a
      ji_ngq = [false] # , false]
.
1303d
1301c
      @@i_sp ||= lpl.afl('ctr', ?i)             # q 
      @@i_sym ||= lpl.afl('sym', ?i)            # q 
#      thl = $mh_thl
      thl = @@mh_thl
.
1283,1288c
#       (@ca).force[            #? mruby 410200
#       @ca.force[              #? mruby 410200
        @ca[
                ji_ngq[1] ? 0 : 1].call
      end
.
1281d
1277,1278d
1275a
##     (@ca).force[             #? mruby 410200
##     @ca.force[               #? mruby 410200
#      @ca[
#       ji_ngq.inject(0) { |ca, v| ca = v ? 0 : 1 | ca << 1}
#      ].(ji_ngq[0] && @plr.size, @r)   # c 

.
1268c
#       @i_sp = lpl.afl('ctr', ?i)      # q 
.
1260c
          ->(sz, r) {                                # ji_ngq[-1]
.
1257,1258c
              sz.step((ap = (ap += ap >> 1) >> 1)) { |n| plr<< lm.(s[n])} # + (ap <=> 0))       # p     # c 
#               plr<< s.ow?(n) ? nil : lm.(isr0, s[n])            # p     # c 
.
1254c
#         ->(sz, r) {                # ji_ngq[0]
          ->(sz = plr.size, r = @r) {                # ji_ngq[0]
.
1248,1250c
#         ->(sz, r) {                # f
          ->(sz = plr.size, r = @r) {                # f
#           @r = @r1 <= sz && @plr[@r1] || lm.(@r1)          # c 
            @r = r[1] <= sz && plr[r[1]] || lm.(r[1])                # c 
#               @plr.clear      # .slice! .pop(n) .shift(n) higokan monami-ya.mrb:60510200 mruby:70410200
              plr.clear # .slice! .pop(n) .shift(n) higokan monami-ya.mrb:60510200 mruby:70410200
.
1244c
#       @pl = []; @plr = []
        @pl = []; plr = []
.
1239c
#       @f = false; @ji_ngq = [false, false]
        ap = @f = false; @ji_ngq = [ap, ap]
.
1233d
1226d
1224a
    @@i_sp, @@i_sym = nil
.
1098,1099c
    @s.clear; 1 < s.size && # puts(s.chop)   # .chop # fuguai taisaku (osx/ppc, freebsd8/i386)
        (s.each_line { |s| puts s}; s = '')             # fuguai taisaku ? (osx/ppc, freebsd8/i386)
.
1095d
1091d
1084,1085c

.
1077,1079d
1053a
  def flgflp;   @p = ~ @p       end
# def flg_e;    @p = ~ @p       end
# def flg_d;    @p = ~ @p       end
  def flge?;    0  <=  @p    end
  def flgd?;    0  >   @p    end

.
863c
##    fpl = delif_c(1, fpl) { |fb, n| fb.resume(pc)}            # ? 
.
856,857d
853c
#       fpl<< self.plw(pc) if flg[0]                              # p 
.
847c
      pc && 0 <= pc && fpl<< plw(pc)                           # p 
.
834c
#       v = []
.
824d
807,815c
#         r = pl_es(pc, ((kt.call ? (thi = idx + 1; 0) : idx) .. idx
          r = pl_es(pc, ((kt.call ? (flg ||= mx <= idx; 0) : idx) .. idx
.
795,804c
        0 < idx && ckth(th[idx], 2) && kt.call ? flg = ! ! idx -= 1 :        # ji_ngq ||= plw__kt(pc)        # flg ||= true
#       0 < idx && ckth(th[idx], 2) && kt.call ? idx -= 1 :  # ji_ngq ||= plw__kt(pc)
          (th[idx], v = s_id.(th[idx])) # if mx >= idx # && ckth(th[idx], 3) # c 
.
792,793c
#               (next(Fiber.yield(false); ini.call)))   # fuguai taisaku ?
                (next(Fiber.yield(! ini.call)))) # false        # fuguai taisaku ?
.
788d
777,785c
    s_id = ->(ti) {          # l 
##      ti[0] = case a = ti[0] when Numeric then a else getarg__(a) end
#       ti = [st_id([ti]), ti]  #(ti), ti]
        a = (ti = [st_id([ti]), ti])[0] #(ti), ti])[0]
#       ti[0][1].nil? && ti[0][1] = ti[1]
        a[1].nil? && a[1] = ti[1]
#       ti[0]
        a
.
771,772c
#    fb0 = ->(m) {0 < m && Fiber.yield(false)
#                       th = (idx .. mx = thl.hgt).map {tb}}
    fb0 = ->(m) {0 < m && Fiber.yield(false); th = [tb] * (1 + mx = thl.hgt)}
.
759,765c
#    v = []
##      "#{(pc - 1).to_xeh}                #{getarg__(v[0])}       #{v[1].to_xeh}")}  # LV__VRB
.
756a
    imem = @@Imem
.
739,741d
729a
#                       (a = st_id(a) # } # __method__(a) # }   #? mruby 410200
#                       a.delete_at(-1) if 0 < a.hgt
#                       a)
.
728d
722,725d
714d
703c
#  def initialize; end
.
672,673d
670d
547,549d
522,532c
      def idx(*a)       a[0].to_xeh                     end
      def lbl(a)        @@idb + idx(*a)                 end
.
477d
363d
357d
347,348d
225d
156,158c
#      i.times { |c|
      i.times { |fr|
#       (i = a[n]) && yield(i, c) && (next a.delete_at(n)); n += 1
        (i = a[n]) && yield(i, fr) && (next a.delete_at(n)); n += 1
.
154d
103d
37d
6c
        :ctr,   :th,    :th0,   :th1    ,       :sym,   :cop,   :sp,    :pc,
.



-- 
YAMAGUTIseisei ( str_h__namae = { :sei => "山口" , :mei => "青星" } )
http://hello.to/seisei/ mailto:seisei@.68..net
日が照つてゐた 今から五億年前に ──高橋新吉



# From - Sun Apr 24 08:31:34 2022
# Date: Sun, 24 Apr 2022 08:27:10 +0000
# From: YAMAGUTIseisei <seisei@hello.to>
# Organization: NaritaSyuzanJyuku
# User-Agent: Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.8.1.17) Gecko/20080930 Thunderbird/2.0.0.17 ThunderBrowse/3.82 Mnenhy/0.7.6.0
# Newsgroups: relcom.comp.sources.d,tw.bbs.comp.sources,japan.test
# Followup-To: tw.bbs.edu.computer-science,fj.sys.x68000
# Subject: Debug ? ( Was : jit-1_-_github__ysei~mruby-meta-circular-heiretu_-_nightly_-_2_0_2_2_0_4_0_4__4040220200.rb )
# In-Reply-To: <t2f2ok$e4k$1@dont-email.me>
# 
# 1098,1099c
#     @s.clear; 1 < s.size && # puts(s.chop) # .chop # fuguai taisaku (osx/ppc, freebsd8/i386)
#       (s.each_line { |s| puts s}; s = '')             # fuguai taisaku ? (osx/ppc, freebsd8/i386)
# .
#
#
#
# -- 
# YAMAGUTIseisei ( str_h__namae = { :sei => "山口" , :mei => "青星" } )
# http://hello.to/seisei/       mailto:seisei@.68..net
# 祝 PhantomX
#
#
#
# # 1098,1099c1098,1099
# # <     1 < s.size && puts(s.chop)              # fuguai taisaku (osx/ppc, freebsd8/i386)
# # <     @s.clear
# # ---
# # >     @s.clear; 1 < s.size && # puts(s.chop)  # .chop # fuguai taisaku (osx/ppc, freebsd8/i386)
# # >        (s.each_line { |s| puts s}; s = '')             # fuguai taisaku ? (osx/ppc, freebsd8/i386)
#
#
#