home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / Asmdata.pm < prev    next >
Text File  |  2005-01-27  |  11KB  |  248 lines
  1. #
  2. #      Copyright (c) 1996-1999 Malcolm Beattie
  3. #
  4. #      You may distribute under the terms of either the GNU General Public
  5. #      License or the Artistic License, as specified in the README file.
  6. #
  7. #
  8. #
  9. # This file is autogenerated from bytecode.pl. Changes made here will be lost.
  10. #
  11. package B::Asmdata;
  12.  
  13. our $VERSION = '1.01';
  14.  
  15. use Exporter;
  16. @ISA = qw(Exporter);
  17. @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
  18. our(%insn_data, @insn_name, @optype, @specialsv_name);
  19.  
  20. @optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP);
  21. @specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no pWARN_ALL pWARN_NONE);
  22.  
  23. # XXX insn_data is initialised this way because with a large
  24. # %insn_data = (foo => [...], bar => [...], ...) initialiser
  25. # I get a hard-to-track-down stack underflow and segfault.
  26. $insn_data{comment} = [35, \&PUT_comment_t, "GET_comment_t"];
  27. $insn_data{nop} = [10, \&PUT_none, "GET_none"];
  28. $insn_data{ret} = [0, \&PUT_none, "GET_none"];
  29. $insn_data{ldsv} = [1, \&PUT_svindex, "GET_svindex"];
  30. $insn_data{ldop} = [2, \&PUT_opindex, "GET_opindex"];
  31. $insn_data{stsv} = [3, \&PUT_U32, "GET_U32"];
  32. $insn_data{stop} = [4, \&PUT_U32, "GET_U32"];
  33. $insn_data{stpv} = [5, \&PUT_U32, "GET_U32"];
  34. $insn_data{ldspecsv} = [6, \&PUT_U8, "GET_U8"];
  35. $insn_data{ldspecsvx} = [7, \&PUT_U8, "GET_U8"];
  36. $insn_data{newsv} = [8, \&PUT_U8, "GET_U8"];
  37. $insn_data{newsvx} = [9, \&PUT_U32, "GET_U32"];
  38. $insn_data{newop} = [11, \&PUT_U8, "GET_U8"];
  39. $insn_data{newopx} = [12, \&PUT_U16, "GET_U16"];
  40. $insn_data{newopn} = [13, \&PUT_U8, "GET_U8"];
  41. $insn_data{newpv} = [14, \&PUT_PV, "GET_PV"];
  42. $insn_data{pv_cur} = [15, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  43. $insn_data{pv_free} = [16, \&PUT_none, "GET_none"];
  44. $insn_data{sv_upgrade} = [17, \&PUT_U8, "GET_U8"];
  45. $insn_data{sv_refcnt} = [18, \&PUT_U32, "GET_U32"];
  46. $insn_data{sv_refcnt_add} = [19, \&PUT_I32, "GET_I32"];
  47. $insn_data{sv_flags} = [20, \&PUT_U32, "GET_U32"];
  48. $insn_data{xrv} = [21, \&PUT_svindex, "GET_svindex"];
  49. $insn_data{xpv} = [22, \&PUT_none, "GET_none"];
  50. $insn_data{xpv_cur} = [23, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  51. $insn_data{xpv_len} = [24, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  52. $insn_data{xiv} = [25, \&PUT_IV, "GET_IV"];
  53. $insn_data{xnv} = [26, \&PUT_NV, "GET_NV"];
  54. $insn_data{xlv_targoff} = [27, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  55. $insn_data{xlv_targlen} = [28, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  56. $insn_data{xlv_targ} = [29, \&PUT_svindex, "GET_svindex"];
  57. $insn_data{xlv_type} = [30, \&PUT_U8, "GET_U8"];
  58. $insn_data{xbm_useful} = [31, \&PUT_I32, "GET_I32"];
  59. $insn_data{xbm_previous} = [32, \&PUT_U16, "GET_U16"];
  60. $insn_data{xbm_rare} = [33, \&PUT_U8, "GET_U8"];
  61. $insn_data{xfm_lines} = [34, \&PUT_IV, "GET_IV"];
  62. $insn_data{xio_lines} = [36, \&PUT_IV, "GET_IV"];
  63. $insn_data{xio_page} = [37, \&PUT_IV, "GET_IV"];
  64. $insn_data{xio_page_len} = [38, \&PUT_IV, "GET_IV"];
  65. $insn_data{xio_lines_left} = [39, \&PUT_IV, "GET_IV"];
  66. $insn_data{xio_top_name} = [40, \&PUT_pvindex, "GET_pvindex"];
  67. $insn_data{xio_top_gv} = [41, \&PUT_svindex, "GET_svindex"];
  68. $insn_data{xio_fmt_name} = [42, \&PUT_pvindex, "GET_pvindex"];
  69. $insn_data{xio_fmt_gv} = [43, \&PUT_svindex, "GET_svindex"];
  70. $insn_data{xio_bottom_name} = [44, \&PUT_pvindex, "GET_pvindex"];
  71. $insn_data{xio_bottom_gv} = [45, \&PUT_svindex, "GET_svindex"];
  72. $insn_data{xio_subprocess} = [46, \&PUT_U16, "GET_U16"];
  73. $insn_data{xio_type} = [47, \&PUT_U8, "GET_U8"];
  74. $insn_data{xio_flags} = [48, \&PUT_U8, "GET_U8"];
  75. $insn_data{xcv_xsubany} = [49, \&PUT_svindex, "GET_svindex"];
  76. $insn_data{xcv_stash} = [50, \&PUT_svindex, "GET_svindex"];
  77. $insn_data{xcv_start} = [51, \&PUT_opindex, "GET_opindex"];
  78. $insn_data{xcv_root} = [52, \&PUT_opindex, "GET_opindex"];
  79. $insn_data{xcv_gv} = [53, \&PUT_svindex, "GET_svindex"];
  80. $insn_data{xcv_file} = [54, \&PUT_pvindex, "GET_pvindex"];
  81. $insn_data{xcv_depth} = [55, \&PUT_long, "GET_long"];
  82. $insn_data{xcv_padlist} = [56, \&PUT_svindex, "GET_svindex"];
  83. $insn_data{xcv_outside} = [57, \&PUT_svindex, "GET_svindex"];
  84. $insn_data{xcv_outside_seq} = [58, \&PUT_U32, "GET_U32"];
  85. $insn_data{xcv_flags} = [59, \&PUT_U16, "GET_U16"];
  86. $insn_data{av_extend} = [60, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  87. $insn_data{av_pushx} = [61, \&PUT_svindex, "GET_svindex"];
  88. $insn_data{av_push} = [62, \&PUT_svindex, "GET_svindex"];
  89. $insn_data{xav_fill} = [63, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  90. $insn_data{xav_max} = [64, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  91. $insn_data{xav_flags} = [65, \&PUT_U8, "GET_U8"];
  92. $insn_data{xhv_riter} = [66, \&PUT_I32, "GET_I32"];
  93. $insn_data{xhv_name} = [67, \&PUT_pvindex, "GET_pvindex"];
  94. $insn_data{xhv_pmroot} = [68, \&PUT_opindex, "GET_opindex"];
  95. $insn_data{hv_store} = [69, \&PUT_svindex, "GET_svindex"];
  96. $insn_data{sv_magic} = [70, \&PUT_U8, "GET_U8"];
  97. $insn_data{mg_obj} = [71, \&PUT_svindex, "GET_svindex"];
  98. $insn_data{mg_private} = [72, \&PUT_U16, "GET_U16"];
  99. $insn_data{mg_flags} = [73, \&PUT_U8, "GET_U8"];
  100. $insn_data{mg_name} = [74, \&PUT_pvcontents, "GET_pvcontents"];
  101. $insn_data{mg_namex} = [75, \&PUT_svindex, "GET_svindex"];
  102. $insn_data{xmg_stash} = [76, \&PUT_svindex, "GET_svindex"];
  103. $insn_data{gv_fetchpv} = [77, \&PUT_strconst, "GET_strconst"];
  104. $insn_data{gv_fetchpvx} = [78, \&PUT_strconst, "GET_strconst"];
  105. $insn_data{gv_stashpv} = [79, \&PUT_strconst, "GET_strconst"];
  106. $insn_data{gv_stashpvx} = [80, \&PUT_strconst, "GET_strconst"];
  107. $insn_data{gp_sv} = [81, \&PUT_svindex, "GET_svindex"];
  108. $insn_data{gp_refcnt} = [82, \&PUT_U32, "GET_U32"];
  109. $insn_data{gp_refcnt_add} = [83, \&PUT_I32, "GET_I32"];
  110. $insn_data{gp_av} = [84, \&PUT_svindex, "GET_svindex"];
  111. $insn_data{gp_hv} = [85, \&PUT_svindex, "GET_svindex"];
  112. $insn_data{gp_cv} = [86, \&PUT_svindex, "GET_svindex"];
  113. $insn_data{gp_file} = [87, \&PUT_pvindex, "GET_pvindex"];
  114. $insn_data{gp_io} = [88, \&PUT_svindex, "GET_svindex"];
  115. $insn_data{gp_form} = [89, \&PUT_svindex, "GET_svindex"];
  116. $insn_data{gp_cvgen} = [90, \&PUT_U32, "GET_U32"];
  117. $insn_data{gp_line} = [91, \&PUT_U32, "GET_U32"];
  118. $insn_data{gp_share} = [92, \&PUT_svindex, "GET_svindex"];
  119. $insn_data{xgv_flags} = [93, \&PUT_U8, "GET_U8"];
  120. $insn_data{op_next} = [94, \&PUT_opindex, "GET_opindex"];
  121. $insn_data{op_sibling} = [95, \&PUT_opindex, "GET_opindex"];
  122. $insn_data{op_ppaddr} = [96, \&PUT_strconst, "GET_strconst"];
  123. $insn_data{op_targ} = [97, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  124. $insn_data{op_type} = [98, \&PUT_U16, "GET_U16"];
  125. $insn_data{op_seq} = [99, \&PUT_U16, "GET_U16"];
  126. $insn_data{op_flags} = [100, \&PUT_U8, "GET_U8"];
  127. $insn_data{op_private} = [101, \&PUT_U8, "GET_U8"];
  128. $insn_data{op_first} = [102, \&PUT_opindex, "GET_opindex"];
  129. $insn_data{op_last} = [103, \&PUT_opindex, "GET_opindex"];
  130. $insn_data{op_other} = [104, \&PUT_opindex, "GET_opindex"];
  131. $insn_data{op_pmreplroot} = [105, \&PUT_opindex, "GET_opindex"];
  132. $insn_data{op_pmreplstart} = [106, \&PUT_opindex, "GET_opindex"];
  133. $insn_data{op_pmnext} = [107, \&PUT_opindex, "GET_opindex"];
  134. $insn_data{op_pmstashpv} = [108, \&PUT_pvindex, "GET_pvindex"];
  135. $insn_data{op_pmreplrootpo} = [109, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  136. $insn_data{op_pmstash} = [110, \&PUT_svindex, "GET_svindex"];
  137. $insn_data{op_pmreplrootgv} = [111, \&PUT_svindex, "GET_svindex"];
  138. $insn_data{pregcomp} = [112, \&PUT_pvcontents, "GET_pvcontents"];
  139. $insn_data{op_pmflags} = [113, \&PUT_U16, "GET_U16"];
  140. $insn_data{op_pmpermflags} = [114, \&PUT_U16, "GET_U16"];
  141. $insn_data{op_pmdynflags} = [115, \&PUT_U8, "GET_U8"];
  142. $insn_data{op_sv} = [116, \&PUT_svindex, "GET_svindex"];
  143. $insn_data{op_padix} = [117, \&PUT_PADOFFSET, "GET_PADOFFSET"];
  144. $insn_data{op_pv} = [118, \&PUT_pvcontents, "GET_pvcontents"];
  145. $insn_data{op_pv_tr} = [119, \&PUT_op_tr_array, "GET_op_tr_array"];
  146. $insn_data{op_redoop} = [120, \&PUT_opindex, "GET_opindex"];
  147. $insn_data{op_nextop} = [121, \&PUT_opindex, "GET_opindex"];
  148. $insn_data{op_lastop} = [122, \&PUT_opindex, "GET_opindex"];
  149. $insn_data{cop_label} = [123, \&PUT_pvindex, "GET_pvindex"];
  150. $insn_data{cop_stashpv} = [124, \&PUT_pvindex, "GET_pvindex"];
  151. $insn_data{cop_file} = [125, \&PUT_pvindex, "GET_pvindex"];
  152. $insn_data{cop_stash} = [126, \&PUT_svindex, "GET_svindex"];
  153. $insn_data{cop_filegv} = [127, \&PUT_svindex, "GET_svindex"];
  154. $insn_data{cop_seq} = [128, \&PUT_U32, "GET_U32"];
  155. $insn_data{cop_arybase} = [129, \&PUT_I32, "GET_I32"];
  156. $insn_data{cop_line} = [130, \&PUT_U32, "GET_U32"];
  157. $insn_data{cop_io} = [131, \&PUT_svindex, "GET_svindex"];
  158. $insn_data{cop_warnings} = [132, \&PUT_svindex, "GET_svindex"];
  159. $insn_data{main_start} = [133, \&PUT_opindex, "GET_opindex"];
  160. $insn_data{main_root} = [134, \&PUT_opindex, "GET_opindex"];
  161. $insn_data{main_cv} = [135, \&PUT_svindex, "GET_svindex"];
  162. $insn_data{curpad} = [136, \&PUT_svindex, "GET_svindex"];
  163. $insn_data{push_begin} = [137, \&PUT_svindex, "GET_svindex"];
  164. $insn_data{push_init} = [138, \&PUT_svindex, "GET_svindex"];
  165. $insn_data{push_end} = [139, \&PUT_svindex, "GET_svindex"];
  166. $insn_data{curstash} = [140, \&PUT_svindex, "GET_svindex"];
  167. $insn_data{defstash} = [141, \&PUT_svindex, "GET_svindex"];
  168. $insn_data{data} = [142, \&PUT_U8, "GET_U8"];
  169. $insn_data{incav} = [143, \&PUT_svindex, "GET_svindex"];
  170. $insn_data{load_glob} = [144, \&PUT_svindex, "GET_svindex"];
  171. $insn_data{regex_padav} = [145, \&PUT_svindex, "GET_svindex"];
  172. $insn_data{dowarn} = [146, \&PUT_U8, "GET_U8"];
  173. $insn_data{comppad_name} = [147, \&PUT_svindex, "GET_svindex"];
  174. $insn_data{xgv_stash} = [148, \&PUT_svindex, "GET_svindex"];
  175. $insn_data{signal} = [149, \&PUT_strconst, "GET_strconst"];
  176. $insn_data{formfeed} = [150, \&PUT_svindex, "GET_svindex"];
  177.  
  178. my ($insn_name, $insn_data);
  179. while (($insn_name, $insn_data) = each %insn_data) {
  180.     $insn_name[$insn_data->[0]] = $insn_name;
  181. }
  182. # Fill in any gaps
  183. @insn_name = map($_ || "unused", @insn_name);
  184.  
  185. 1;
  186.  
  187. __END__
  188.  
  189. =head1 NAME
  190.  
  191. B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode
  192.  
  193. =head1 SYNOPSIS
  194.  
  195.     use B::Asmdata qw(%insn_data @insn_name @optype @specialsv_name);
  196.  
  197. =head1 DESCRIPTION
  198.  
  199. Provides information about Perl ops in order to generate bytecode via
  200. a bunch of exported variables.  Its mostly used by B::Assembler and
  201. B::Disassembler.
  202.  
  203. =over 4
  204.  
  205. =item %insn_data
  206.  
  207.   my($bytecode_num, $put_sub, $get_meth) = @$insn_data{$op_name};
  208.  
  209. For a given $op_name (for example, 'cop_label', 'sv_flags', etc...) 
  210. you get an array ref containing the bytecode number of the op, a
  211. reference to the subroutine used to 'PUT', and the name of the method
  212. used to 'GET'.
  213.  
  214. =for _private
  215. Add more detail about what $put_sub and $get_meth are and how to use them.
  216.  
  217. =item @insn_name
  218.  
  219.   my $op_name = $insn_name[$bytecode_num];
  220.  
  221. A simple mapping of the bytecode number to the name of the op.
  222. Suitable for using with %insn_data like so:
  223.  
  224.   my $op_info = $insn_data{$insn_name[$bytecode_num]};
  225.  
  226. =item @optype
  227.  
  228.   my $op_type = $optype[$op_type_num];
  229.  
  230. A simple mapping of the op type number to its type (like 'COP' or 'BINOP').
  231.  
  232. =item @specialsv_name
  233.  
  234.   my $sv_name = $specialsv_name[$sv_index];
  235.  
  236. Certain SV types are considered 'special'.  They're represented by
  237. B::SPECIAL and are refered to by a number from the specialsv_list.
  238. This array maps that number back to the name of the SV (like 'Nullsv'
  239. or '&PL_sv_undef').
  240.  
  241. =back
  242.  
  243. =head1 AUTHOR
  244.  
  245. Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
  246.  
  247. =cut
  248.