Class: YTLJit::VM::Node::BaseNode

Inherits:
Object
  • Object
show all
Includes:
AbsArch, Inspect, TypeListWithSignature
Defined in:
lib/ytljit/vm.rb

Constant Summary

Constants included from AbsArch

AbsArch::AL, AbsArch::BL, AbsArch::CL, AbsArch::DL, AbsArch::FUNC_ARG, AbsArch::FUNC_ARG_YTL, AbsArch::FUNC_FLOAT_ARG, AbsArch::FUNC_FLOAT_ARG_YTL, AbsArch::INDIRECT_BPR, AbsArch::INDIRECT_RETR, AbsArch::INDIRECT_SPR, AbsArch::INDIRECT_TMPR, AbsArch::INDIRECT_TMPR2, AbsArch::INDIRECT_TMPR3

Constants included from SSE

SSE::XMM0, SSE::XMM1, SSE::XMM2, SSE::XMM3, SSE::XMM4, SSE::XMM5, SSE::XMM6, SSE::XMM7

Instance Attribute Summary collapse

Instance Method Summary collapse

Methods included from TypeListWithSignature

#add_type, #set_type_list, #type_list, #type_list_initvar

Methods included from Inspect

#inspect_by_graph

Constructor Details

#initialize(parent) ⇒ BaseNode

Returns a new instance of BaseNode.



150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
 
# File 'lib/ytljit/vm.rb', line 150

def initialize(parent)
  cs = CodeSpace.new
  asm = Assembler.new(cs)
  asm.with_retry do
    asm.mov(TMPR, 4)
    asm.ret
  end

  # iv for structure of VM
  @parent = parent
  @code_space = nil
  @id = nil
  if @parent then
    @id = @parent.id.dup
    @id[-1] = @id[-1] + 1
  else
    @id = [0]
  end

  # iv for type inference
  @type = nil
  @type_list = type_list_initvar
  @element_node_list = []
  @my_element_node = nil
  @type_inference_proc = cs
  @type_cache = nil

  @ti_observer = {}
  @ti_observee = []
end

Instance Attribute Details

#code_space ⇒ Object (readonly)

Returns the value of attribute code_space.



182
183
184
 
# File 'lib/ytljit/vm.rb', line 182

def code_space
  @code_space
end

#element_node_list ⇒ Object

Returns the value of attribute element_node_list.



186
187
188
 
# File 'lib/ytljit/vm.rb', line 186

def element_node_list
  @element_node_list
end

#id ⇒ Object (readonly)

Returns the value of attribute id.



183
184
185
 
# File 'lib/ytljit/vm.rb', line 183

def id
  @id
end

#parent ⇒ Object

Returns the value of attribute parent.



181
182
183
 
# File 'lib/ytljit/vm.rb', line 181

def parent
  @parent
end

#ti_observee ⇒ Object (readonly)

Returns the value of attribute ti_observee.



189
190
191
 
# File 'lib/ytljit/vm.rb', line 189

def ti_observee
  @ti_observee
end

#ti_observer ⇒ Object (readonly)

Returns the value of attribute ti_observer.



188
189
190
 
# File 'lib/ytljit/vm.rb', line 188

def ti_observer
  @ti_observer
end

#type ⇒ Object

Returns the value of attribute type.



185
186
187
 
# File 'lib/ytljit/vm.rb', line 185

def type
  @type
end

Instance Method Details

#add_element_node(sig, enode, context) ⇒ Object 



322
323
324
325
326
327
328
329
330
331
332
333
334
 
# File 'lib/ytljit/vm.rb', line 322

def add_element_node(sig, enode, context)
  slfetnode = @element_node_list
  unless slfetnode.include?(enode)
    @element_node_list.push [sig, enode]
    orgsig = @element_node_list[0][0]
    orgnode = @element_node_list[0][1]
    if orgnode != enode then
      same_type(orgnode, enode, orgsig, sig, context)
    end
    ti_changed
#            context.convergent = false
  end
end

#collect_candidate_type(context) ⇒ Object 



336
337
338
339
 
# File 'lib/ytljit/vm.rb', line 336

def collect_candidate_type(context)
  raise "You must define collect_candidate_type per node"
  context
end

#collect_info(context) ⇒ Object 



191
192
193
194
195
196
197
198
199
 
# File 'lib/ytljit/vm.rb', line 191

def collect_info(context)
  if is_a?(HaveChildlenMixin) then
    traverse_childlen {|rec|
      context = rec.collect_info(context)
    }
  end

  context
end

#compile(context) ⇒ Object 



395
396
397
398
 
# File 'lib/ytljit/vm.rb', line 395

def compile(context)
  @code_space = context.code_space
  context
end

#decide_type(sig) ⇒ Object 



377
378
379
380
381
382
383
384
385
 
# File 'lib/ytljit/vm.rb', line 377

def decide_type(sig)
  decide_type_once(sig)

  if is_a?(HaveChildlenMixin) then
    traverse_childlen {|rec|
      rec.decide_type(sig)
    }
  end
end

#decide_type_core(tlist) ⇒ Object 



341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
 
# File 'lib/ytljit/vm.rb', line 341

def decide_type_core(tlist)
  tlist = tlist.select {|e| e.class != RubyType::DefaultType0 }
  case tlist.size
  when 0
    RubyType::DefaultType0.new
    
  when 1
    if tlist[0].have_element? then
      sig = @element_node_list[0][0]
      node = @element_node_list[0][1]
      node.decide_type_once(sig)
      tlist[0].element_type = node.type
    end
    tlist[0]

  when 2
    if tlist[0].ruby_type == tlist[1].ruby_type and
        tlist[0].boxed then
      tlist[0]
    else
      tlist[1]
    end
  else
    RubyType::DefaultType0.new
  end
end

#decide_type_once(sig) ⇒ Object 



368
369
370
371
372
373
374
375
 
# File 'lib/ytljit/vm.rb', line 368

def decide_type_once(sig)
  if @type.equal?(nil) or @type.is_a?(RubyType::DefaultType0) then
    tlist = type_list(sig).flatten.uniq
    @type = decide_type_core(tlist)
  else
    @type
  end
end

#gen_type_inference_proc(code) ⇒ Object 



392
393
 
# File 'lib/ytljit/vm.rb', line 392

def gen_type_inference_proc(code)
end

#get_constant_value ⇒ Object 



400
401
402
 
# File 'lib/ytljit/vm.rb', line 400

def get_constant_value
  nil
end

#inference_type ⇒ Object 



387
388
389
390
 
# File 'lib/ytljit/vm.rb', line 387

def inference_type
  cs = @type_inference_proc
  cs.call(cs.var_base_address)
end

#merge_type(dst, src) ⇒ Object 



258
259
260
261
262
263
264
265
266
267
 
# File 'lib/ytljit/vm.rb', line 258

def merge_type(dst, src)
  res = dst
  src.each do |sele|
    if !res.include? sele then
      res.push sele
    end
  end

  res
end

#same_type(dst, src, dsig, ssig, context) ⇒ Object 



301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
 
# File 'lib/ytljit/vm.rb', line 301

def same_type(dst, src, dsig, ssig, context)
=begin
  print "#{src.class} -> #{dst.class} \n"
  if dst.is_a?(LocalVarNode) then
    print "#{dst.name} \n"
  end
  if dst.is_a?(LiteralNode) then
    print "#{dst.value.inspect} \n"
  end
  if dst.is_a?(SendNode) then
    print "#{dst.func.name} \n"
  end
=end

  if dst.is_a?(BaseNode) then
    src.ti_add_observer(dst, dsig, ssig, context)
  end

  ti_update(dst, src, dsig, ssig, context)
end

#ti_add_observer(dst, dsig, ssig, context) ⇒ Object 



201
202
203
204
205
206
207
208
209
210
211
212
213
 
# File 'lib/ytljit/vm.rb', line 201

def ti_add_observer(dst, dsig, ssig, context)
  if @ti_observer[dst] == nil then
    @ti_observer[dst] = []
    dst.ti_observee.push self
  end
  
  if @ti_observer[dst].all? {|edsig, essig, eprc| 
      (edsig != dsig) or (essig != ssig)
    } then
    prc = lambda { send(:ti_update, dst, self, dsig, ssig, context) }
    @ti_observer[dst].push [dsig, ssig, prc]
  end
end

#ti_changed ⇒ Object 



215
216
217
218
219
220
221
 
# File 'lib/ytljit/vm.rb', line 215

def ti_changed
  @ti_observer.each do |rec, lst|
    lst.each do |dsig, ssig, prc|
      prc.call
    end
  end
end

#ti_del_link(visitnode = {}) ⇒ Object 



238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
 
# File 'lib/ytljit/vm.rb', line 238

def ti_del_link(visitnode = {})
  if visitnode[self] then
    return
  end

  visitnode[self] = true
  @ti_observer.each do |rec, lst|
    delent = []
    lst.each do |ent|
      delent.push ent
        
      rec.ti_del_link(visitnode)
    end

    delent.each do |ent|
      lst.delete(ent)
    end
  end
end

#ti_reset(visitnode = {}) ⇒ Object 



223
224
225
226
227
228
229
230
231
232
233
234
235
236
 
# File 'lib/ytljit/vm.rb', line 223

def ti_reset(visitnode = {})
  if visitnode[self] then
    return
  end

  visitnode[self] = true
  @ti_observer.each do |rec, lst|
    lst.each do |dsig, ssig, prc|
      rec.type_list(dsig)[1] = []

      rec.ti_reset(visitnode)
    end
  end
end

#ti_update(dst, src, dsig, ssig, context) ⇒ Object 



269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
 
# File 'lib/ytljit/vm.rb', line 269

def ti_update(dst, src, dsig, ssig, context)
  dtlistorg = dst.type_list(dsig)
  dtlist = dtlistorg.flatten
  stlist = src.type_list(ssig).flatten
=begin
  print "UPDATE TYPE\n"
  print "#{src.class} #{ssig.inspect} -> #{dst.class} #{dsig.inspect}\n"
  print dtlist.map(&:ruby_type), "\n"
  print stlist.map(&:ruby_type), "\n"
=end
  orgsize = dtlist.size
#          pp "#{dst.class} #{src.class} #{dtlist} #{stlist}"
  newdt = merge_type(dtlistorg[1], stlist)
  dst.set_type_list(dsig, newdt)
  dtsize = dtlistorg[0].size + newdt.size

  if orgsize != dtsize then
    dst.type = nil
    dst.ti_changed
    context.convergent = false
  end

  dtlist = dst.element_node_list
  stlist = src.element_node_list
  orgsize = dtlist.size
  dst.element_node_list = merge_type(dtlist, stlist)
  if orgsize != dtlist.size then
    dst.ti_changed
    context.convergent = false
  end
end