Advertisement
Guest User

Untitled

a guest
Jul 28th, 2011
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.73 KB | None | 0 0
  1. ==============================================================================
  2. INPUT: nullpmc.lua
  3.  
  4. 3: function instance:Constructor()
  5. 4: .   function self:Bar()
  6. 5: .   end;
  7. 6: .   function self:Bar()
  8. 7: .   end;
  9. 8: end;
  10. 9:
  11. 10: instance:Constructor()
  12.  
  13. ==============================================================================
  14. ERROR: installable_luap nullpmc.lua
  15.  
  16. $ ./installable_luap nullpmc.lua
  17. luap: nullpmc.lua:6: Null PMC access in set_pmc_keyed()
  18. stack traceback:
  19.     nullpmc.lua:6: in function 'instance.Constructor_13'
  20.     nullpmc.lua:10: in main chunk
  21.     [PIR]: in function 'docall'
  22.     [PIR]: in function '&start'
  23.     [PIR]: in function 'eval'
  24.     [PIR]: in function 'evalfiles'
  25.     [PIR]: in function 'command_line'
  26.     [PIR]: in function 'main'
  27.  
  28. ==============================================================================
  29. OUTPUT: installable_luap --target=pir nullpmc.lua
  30.  
  31.  
  32. .namespace []
  33. .sub "instance.Constructor_13" :anon :lex :subid("post29") :outer("post33")
  34.     .param pmc param_self_1 :optional
  35.     .param int has_param_self_1 :opt_flag
  36.     .param pmc extra :slurpy
  37. .annotate 'file', "nullpmc.lua"
  38. .annotate 'line', 3
  39.     .local pmc k_Bar
  40.     box k_Bar, "Bar"
  41.     .local pmc subr
  42.     subr = interpinfo .INTERPINFO_CURRENT_SUB
  43.  
  44.     .lex "self_1", param_self_1
  45.     if has_param_self_1, vivify_14
  46.     new param_self_1, "LuaNil"
  47.   vivify_14:
  48. .annotate 'line', 4
  49.     .const "Sub" fct_17 = "post18"
  50.     newclosure $P19, fct_17
  51.     $P20 = subr."getfenv"()
  52.     $P19."setfenv"($P20)
  53.     set param_self_1[k_Bar], $P19
  54. .annotate 'line', 6
  55.     .const "Sub" fct_23 = "post24"
  56.     newclosure $P25, fct_23
  57.     $P26 = subr."getfenv"()
  58.     $P25."setfenv"($P26)
  59.     find_lex $P27, "self_2"
  60.     set $P27[k_Bar], $P25
  61. .end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement