moonpool/dev/ocaml/X86_ast/index.html
2023-08-29 18:39:53 +00:00

2 lines
No EOL
51 KiB
HTML
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml"><head><title>X86_ast (ocaml.X86_ast)</title><link rel="stylesheet" href="../../_odoc-theme/odoc.css"/><meta charset="utf-8"/><meta name="generator" content="odoc 2.2.1"/><meta name="viewport" content="width=device-width,initial-scale=1.0"/><script src="../../highlight.pack.js"></script><script>hljs.initHighlightingOnLoad();</script></head><body class="odoc"><nav class="odoc-nav"><a href="../index.html">Up</a> <a href="../index.html">ocaml</a> &#x00BB; X86_ast</nav><header class="odoc-preamble"><h1>Module <code><span>X86_ast</span></code></h1><p>Structured representation of Intel assembly language (32 and 64 bit).</p></header><div class="odoc-content"><div class="odoc-spec"><div class="spec type anchored" id="type-condition"><a href="#type-condition" class="anchor"></a><code><span><span class="keyword">type</span> condition</span><span> = </span></code><ol><li id="type-condition.L" class="def variant constructor anchored"><a href="#type-condition.L" class="anchor"></a><code><span>| </span><span><span class="constructor">L</span></span></code></li><li id="type-condition.GE" class="def variant constructor anchored"><a href="#type-condition.GE" class="anchor"></a><code><span>| </span><span><span class="constructor">GE</span></span></code></li><li id="type-condition.LE" class="def variant constructor anchored"><a href="#type-condition.LE" class="anchor"></a><code><span>| </span><span><span class="constructor">LE</span></span></code></li><li id="type-condition.G" class="def variant constructor anchored"><a href="#type-condition.G" class="anchor"></a><code><span>| </span><span><span class="constructor">G</span></span></code></li><li id="type-condition.B" class="def variant constructor anchored"><a href="#type-condition.B" class="anchor"></a><code><span>| </span><span><span class="constructor">B</span></span></code></li><li id="type-condition.AE" class="def variant constructor anchored"><a href="#type-condition.AE" class="anchor"></a><code><span>| </span><span><span class="constructor">AE</span></span></code></li><li id="type-condition.BE" class="def variant constructor anchored"><a href="#type-condition.BE" class="anchor"></a><code><span>| </span><span><span class="constructor">BE</span></span></code></li><li id="type-condition.A" class="def variant constructor anchored"><a href="#type-condition.A" class="anchor"></a><code><span>| </span><span><span class="constructor">A</span></span></code></li><li id="type-condition.E" class="def variant constructor anchored"><a href="#type-condition.E" class="anchor"></a><code><span>| </span><span><span class="constructor">E</span></span></code></li><li id="type-condition.NE" class="def variant constructor anchored"><a href="#type-condition.NE" class="anchor"></a><code><span>| </span><span><span class="constructor">NE</span></span></code></li><li id="type-condition.O" class="def variant constructor anchored"><a href="#type-condition.O" class="anchor"></a><code><span>| </span><span><span class="constructor">O</span></span></code></li><li id="type-condition.NO" class="def variant constructor anchored"><a href="#type-condition.NO" class="anchor"></a><code><span>| </span><span><span class="constructor">NO</span></span></code></li><li id="type-condition.S" class="def variant constructor anchored"><a href="#type-condition.S" class="anchor"></a><code><span>| </span><span><span class="constructor">S</span></span></code></li><li id="type-condition.NS" class="def variant constructor anchored"><a href="#type-condition.NS" class="anchor"></a><code><span>| </span><span><span class="constructor">NS</span></span></code></li><li id="type-condition.P" class="def variant constructor anchored"><a href="#type-condition.P" class="anchor"></a><code><span>| </span><span><span class="constructor">P</span></span></code></li><li id="type-condition.NP" class="def variant constructor anchored"><a href="#type-condition.NP" class="anchor"></a><code><span>| </span><span><span class="constructor">NP</span></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-rounding"><a href="#type-rounding" class="anchor"></a><code><span><span class="keyword">type</span> rounding</span><span> = </span></code><ol><li id="type-rounding.RoundUp" class="def variant constructor anchored"><a href="#type-rounding.RoundUp" class="anchor"></a><code><span>| </span><span><span class="constructor">RoundUp</span></span></code></li><li id="type-rounding.RoundDown" class="def variant constructor anchored"><a href="#type-rounding.RoundDown" class="anchor"></a><code><span>| </span><span><span class="constructor">RoundDown</span></span></code></li><li id="type-rounding.RoundNearest" class="def variant constructor anchored"><a href="#type-rounding.RoundNearest" class="anchor"></a><code><span>| </span><span><span class="constructor">RoundNearest</span></span></code></li><li id="type-rounding.RoundTruncate" class="def variant constructor anchored"><a href="#type-rounding.RoundTruncate" class="anchor"></a><code><span>| </span><span><span class="constructor">RoundTruncate</span></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-constant"><a href="#type-constant" class="anchor"></a><code><span><span class="keyword">type</span> constant</span><span> = </span></code><ol><li id="type-constant.Const" class="def variant constructor anchored"><a href="#type-constant.Const" class="anchor"></a><code><span>| </span><span><span class="constructor">Const</span> <span class="keyword">of</span> int64</span></code></li><li id="type-constant.ConstThis" class="def variant constructor anchored"><a href="#type-constant.ConstThis" class="anchor"></a><code><span>| </span><span><span class="constructor">ConstThis</span></span></code></li><li id="type-constant.ConstLabel" class="def variant constructor anchored"><a href="#type-constant.ConstLabel" class="anchor"></a><code><span>| </span><span><span class="constructor">ConstLabel</span> <span class="keyword">of</span> string</span></code></li><li id="type-constant.ConstAdd" class="def variant constructor anchored"><a href="#type-constant.ConstAdd" class="anchor"></a><code><span>| </span><span><span class="constructor">ConstAdd</span> <span class="keyword">of</span> <a href="#type-constant">constant</a> * <a href="#type-constant">constant</a></span></code></li><li id="type-constant.ConstSub" class="def variant constructor anchored"><a href="#type-constant.ConstSub" class="anchor"></a><code><span>| </span><span><span class="constructor">ConstSub</span> <span class="keyword">of</span> <a href="#type-constant">constant</a> * <a href="#type-constant">constant</a></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-data_type"><a href="#type-data_type" class="anchor"></a><code><span><span class="keyword">type</span> data_type</span><span> = </span></code><ol><li id="type-data_type.NONE" class="def variant constructor anchored"><a href="#type-data_type.NONE" class="anchor"></a><code><span>| </span><span><span class="constructor">NONE</span></span></code></li><li id="type-data_type.REAL4" class="def variant constructor anchored"><a href="#type-data_type.REAL4" class="anchor"></a><code><span>| </span><span><span class="constructor">REAL4</span></span></code></li><li id="type-data_type.REAL8" class="def variant constructor anchored"><a href="#type-data_type.REAL8" class="anchor"></a><code><span>| </span><span><span class="constructor">REAL8</span></span></code></li><li id="type-data_type.BYTE" class="def variant constructor anchored"><a href="#type-data_type.BYTE" class="anchor"></a><code><span>| </span><span><span class="constructor">BYTE</span></span></code></li><li id="type-data_type.WORD" class="def variant constructor anchored"><a href="#type-data_type.WORD" class="anchor"></a><code><span>| </span><span><span class="constructor">WORD</span></span></code></li><li id="type-data_type.DWORD" class="def variant constructor anchored"><a href="#type-data_type.DWORD" class="anchor"></a><code><span>| </span><span><span class="constructor">DWORD</span></span></code></li><li id="type-data_type.QWORD" class="def variant constructor anchored"><a href="#type-data_type.QWORD" class="anchor"></a><code><span>| </span><span><span class="constructor">QWORD</span></span></code></li><li id="type-data_type.OWORD" class="def variant constructor anchored"><a href="#type-data_type.OWORD" class="anchor"></a><code><span>| </span><span><span class="constructor">OWORD</span></span></code></li><li id="type-data_type.NEAR" class="def variant constructor anchored"><a href="#type-data_type.NEAR" class="anchor"></a><code><span>| </span><span><span class="constructor">NEAR</span></span></code></li><li id="type-data_type.PROC" class="def variant constructor anchored"><a href="#type-data_type.PROC" class="anchor"></a><code><span>| </span><span><span class="constructor">PROC</span></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-reg64"><a href="#type-reg64" class="anchor"></a><code><span><span class="keyword">type</span> reg64</span><span> = </span></code><ol><li id="type-reg64.RAX" class="def variant constructor anchored"><a href="#type-reg64.RAX" class="anchor"></a><code><span>| </span><span><span class="constructor">RAX</span></span></code></li><li id="type-reg64.RBX" class="def variant constructor anchored"><a href="#type-reg64.RBX" class="anchor"></a><code><span>| </span><span><span class="constructor">RBX</span></span></code></li><li id="type-reg64.RCX" class="def variant constructor anchored"><a href="#type-reg64.RCX" class="anchor"></a><code><span>| </span><span><span class="constructor">RCX</span></span></code></li><li id="type-reg64.RDX" class="def variant constructor anchored"><a href="#type-reg64.RDX" class="anchor"></a><code><span>| </span><span><span class="constructor">RDX</span></span></code></li><li id="type-reg64.RSP" class="def variant constructor anchored"><a href="#type-reg64.RSP" class="anchor"></a><code><span>| </span><span><span class="constructor">RSP</span></span></code></li><li id="type-reg64.RBP" class="def variant constructor anchored"><a href="#type-reg64.RBP" class="anchor"></a><code><span>| </span><span><span class="constructor">RBP</span></span></code></li><li id="type-reg64.RSI" class="def variant constructor anchored"><a href="#type-reg64.RSI" class="anchor"></a><code><span>| </span><span><span class="constructor">RSI</span></span></code></li><li id="type-reg64.RDI" class="def variant constructor anchored"><a href="#type-reg64.RDI" class="anchor"></a><code><span>| </span><span><span class="constructor">RDI</span></span></code></li><li id="type-reg64.R8" class="def variant constructor anchored"><a href="#type-reg64.R8" class="anchor"></a><code><span>| </span><span><span class="constructor">R8</span></span></code></li><li id="type-reg64.R9" class="def variant constructor anchored"><a href="#type-reg64.R9" class="anchor"></a><code><span>| </span><span><span class="constructor">R9</span></span></code></li><li id="type-reg64.R10" class="def variant constructor anchored"><a href="#type-reg64.R10" class="anchor"></a><code><span>| </span><span><span class="constructor">R10</span></span></code></li><li id="type-reg64.R11" class="def variant constructor anchored"><a href="#type-reg64.R11" class="anchor"></a><code><span>| </span><span><span class="constructor">R11</span></span></code></li><li id="type-reg64.R12" class="def variant constructor anchored"><a href="#type-reg64.R12" class="anchor"></a><code><span>| </span><span><span class="constructor">R12</span></span></code></li><li id="type-reg64.R13" class="def variant constructor anchored"><a href="#type-reg64.R13" class="anchor"></a><code><span>| </span><span><span class="constructor">R13</span></span></code></li><li id="type-reg64.R14" class="def variant constructor anchored"><a href="#type-reg64.R14" class="anchor"></a><code><span>| </span><span><span class="constructor">R14</span></span></code></li><li id="type-reg64.R15" class="def variant constructor anchored"><a href="#type-reg64.R15" class="anchor"></a><code><span>| </span><span><span class="constructor">R15</span></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-reg8h"><a href="#type-reg8h" class="anchor"></a><code><span><span class="keyword">type</span> reg8h</span><span> = </span></code><ol><li id="type-reg8h.AH" class="def variant constructor anchored"><a href="#type-reg8h.AH" class="anchor"></a><code><span>| </span><span><span class="constructor">AH</span></span></code></li><li id="type-reg8h.BH" class="def variant constructor anchored"><a href="#type-reg8h.BH" class="anchor"></a><code><span>| </span><span><span class="constructor">BH</span></span></code></li><li id="type-reg8h.CH" class="def variant constructor anchored"><a href="#type-reg8h.CH" class="anchor"></a><code><span>| </span><span><span class="constructor">CH</span></span></code></li><li id="type-reg8h.DH" class="def variant constructor anchored"><a href="#type-reg8h.DH" class="anchor"></a><code><span>| </span><span><span class="constructor">DH</span></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-registerf"><a href="#type-registerf" class="anchor"></a><code><span><span class="keyword">type</span> registerf</span><span> = </span></code><ol><li id="type-registerf.XMM" class="def variant constructor anchored"><a href="#type-registerf.XMM" class="anchor"></a><code><span>| </span><span><span class="constructor">XMM</span> <span class="keyword">of</span> int</span></code></li><li id="type-registerf.TOS" class="def variant constructor anchored"><a href="#type-registerf.TOS" class="anchor"></a><code><span>| </span><span><span class="constructor">TOS</span></span></code></li><li id="type-registerf.ST" class="def variant constructor anchored"><a href="#type-registerf.ST" class="anchor"></a><code><span>| </span><span><span class="constructor">ST</span> <span class="keyword">of</span> int</span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-arch"><a href="#type-arch" class="anchor"></a><code><span><span class="keyword">type</span> arch</span><span> = </span></code><ol><li id="type-arch.X64" class="def variant constructor anchored"><a href="#type-arch.X64" class="anchor"></a><code><span>| </span><span><span class="constructor">X64</span></span></code></li><li id="type-arch.X86" class="def variant constructor anchored"><a href="#type-arch.X86" class="anchor"></a><code><span>| </span><span><span class="constructor">X86</span></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-addr"><a href="#type-addr" class="anchor"></a><code><span><span class="keyword">type</span> addr</span><span> = </span><span>{</span></code><ol><li id="type-addr.arch" class="def record field anchored"><a href="#type-addr.arch" class="anchor"></a><code><span>arch : <a href="#type-arch">arch</a>;</span></code></li><li id="type-addr.typ" class="def record field anchored"><a href="#type-addr.typ" class="anchor"></a><code><span>typ : <a href="#type-data_type">data_type</a>;</span></code></li><li id="type-addr.idx" class="def record field anchored"><a href="#type-addr.idx" class="anchor"></a><code><span>idx : <a href="#type-reg64">reg64</a>;</span></code></li><li id="type-addr.scale" class="def record field anchored"><a href="#type-addr.scale" class="anchor"></a><code><span>scale : int;</span></code></li><li id="type-addr.base" class="def record field anchored"><a href="#type-addr.base" class="anchor"></a><code><span>base : <span><a href="#type-reg64">reg64</a> option</span>;</span></code></li><li id="type-addr.sym" class="def record field anchored"><a href="#type-addr.sym" class="anchor"></a><code><span>sym : <span>string option</span>;</span></code></li><li id="type-addr.displ" class="def record field anchored"><a href="#type-addr.displ" class="anchor"></a><code><span>displ : int;</span></code></li></ol><code><span>}</span></code></div><div class="spec-doc"><p>Addressing modes: displ + sym + base + idx * scale (if scale = 0, idx is ignored and base must be None)</p></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-arg"><a href="#type-arg" class="anchor"></a><code><span><span class="keyword">type</span> arg</span><span> = </span></code><ol><li id="type-arg.Imm" class="def variant constructor anchored"><a href="#type-arg.Imm" class="anchor"></a><code><span>| </span><span><span class="constructor">Imm</span> <span class="keyword">of</span> int64</span></code><div class="def-doc"><span class="comment-delim">(*</span><p>Operand is an immediate constant integer</p><span class="comment-delim">*)</span></div></li><li id="type-arg.Sym" class="def variant constructor anchored"><a href="#type-arg.Sym" class="anchor"></a><code><span>| </span><span><span class="constructor">Sym</span> <span class="keyword">of</span> string</span></code><div class="def-doc"><span class="comment-delim">(*</span><p>Address of a symbol (absolute address except for call/jmp target where it is interpreted as a relative displacement</p><span class="comment-delim">*)</span></div></li><li id="type-arg.Reg8L" class="def variant constructor anchored"><a href="#type-arg.Reg8L" class="anchor"></a><code><span>| </span><span><span class="constructor">Reg8L</span> <span class="keyword">of</span> <a href="#type-reg64">reg64</a></span></code></li><li id="type-arg.Reg8H" class="def variant constructor anchored"><a href="#type-arg.Reg8H" class="anchor"></a><code><span>| </span><span><span class="constructor">Reg8H</span> <span class="keyword">of</span> <a href="#type-reg8h">reg8h</a></span></code></li><li id="type-arg.Reg16" class="def variant constructor anchored"><a href="#type-arg.Reg16" class="anchor"></a><code><span>| </span><span><span class="constructor">Reg16</span> <span class="keyword">of</span> <a href="#type-reg64">reg64</a></span></code></li><li id="type-arg.Reg32" class="def variant constructor anchored"><a href="#type-arg.Reg32" class="anchor"></a><code><span>| </span><span><span class="constructor">Reg32</span> <span class="keyword">of</span> <a href="#type-reg64">reg64</a></span></code></li><li id="type-arg.Reg64" class="def variant constructor anchored"><a href="#type-arg.Reg64" class="anchor"></a><code><span>| </span><span><span class="constructor">Reg64</span> <span class="keyword">of</span> <a href="#type-reg64">reg64</a></span></code></li><li id="type-arg.Regf" class="def variant constructor anchored"><a href="#type-arg.Regf" class="anchor"></a><code><span>| </span><span><span class="constructor">Regf</span> <span class="keyword">of</span> <a href="#type-registerf">registerf</a></span></code></li><li id="type-arg.Mem" class="def variant constructor anchored"><a href="#type-arg.Mem" class="anchor"></a><code><span>| </span><span><span class="constructor">Mem</span> <span class="keyword">of</span> <a href="#type-addr">addr</a></span></code></li><li id="type-arg.Mem64_RIP" class="def variant constructor anchored"><a href="#type-arg.Mem64_RIP" class="anchor"></a><code><span>| </span><span><span class="constructor">Mem64_RIP</span> <span class="keyword">of</span> <a href="#type-data_type">data_type</a> * string * int</span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-instruction"><a href="#type-instruction" class="anchor"></a><code><span><span class="keyword">type</span> instruction</span><span> = </span></code><ol><li id="type-instruction.ADD" class="def variant constructor anchored"><a href="#type-instruction.ADD" class="anchor"></a><code><span>| </span><span><span class="constructor">ADD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.ADDSD" class="def variant constructor anchored"><a href="#type-instruction.ADDSD" class="anchor"></a><code><span>| </span><span><span class="constructor">ADDSD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.AND" class="def variant constructor anchored"><a href="#type-instruction.AND" class="anchor"></a><code><span>| </span><span><span class="constructor">AND</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.ANDPD" class="def variant constructor anchored"><a href="#type-instruction.ANDPD" class="anchor"></a><code><span>| </span><span><span class="constructor">ANDPD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.BSWAP" class="def variant constructor anchored"><a href="#type-instruction.BSWAP" class="anchor"></a><code><span>| </span><span><span class="constructor">BSWAP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CALL" class="def variant constructor anchored"><a href="#type-instruction.CALL" class="anchor"></a><code><span>| </span><span><span class="constructor">CALL</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CDQ" class="def variant constructor anchored"><a href="#type-instruction.CDQ" class="anchor"></a><code><span>| </span><span><span class="constructor">CDQ</span></span></code></li><li id="type-instruction.CMOV" class="def variant constructor anchored"><a href="#type-instruction.CMOV" class="anchor"></a><code><span>| </span><span><span class="constructor">CMOV</span> <span class="keyword">of</span> <a href="#type-condition">condition</a> * <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CMP" class="def variant constructor anchored"><a href="#type-instruction.CMP" class="anchor"></a><code><span>| </span><span><span class="constructor">CMP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.COMISD" class="def variant constructor anchored"><a href="#type-instruction.COMISD" class="anchor"></a><code><span>| </span><span><span class="constructor">COMISD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CQO" class="def variant constructor anchored"><a href="#type-instruction.CQO" class="anchor"></a><code><span>| </span><span><span class="constructor">CQO</span></span></code></li><li id="type-instruction.CVTSD2SI" class="def variant constructor anchored"><a href="#type-instruction.CVTSD2SI" class="anchor"></a><code><span>| </span><span><span class="constructor">CVTSD2SI</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CVTSD2SS" class="def variant constructor anchored"><a href="#type-instruction.CVTSD2SS" class="anchor"></a><code><span>| </span><span><span class="constructor">CVTSD2SS</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CVTSI2SD" class="def variant constructor anchored"><a href="#type-instruction.CVTSI2SD" class="anchor"></a><code><span>| </span><span><span class="constructor">CVTSI2SD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CVTSS2SD" class="def variant constructor anchored"><a href="#type-instruction.CVTSS2SD" class="anchor"></a><code><span>| </span><span><span class="constructor">CVTSS2SD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.CVTTSD2SI" class="def variant constructor anchored"><a href="#type-instruction.CVTTSD2SI" class="anchor"></a><code><span>| </span><span><span class="constructor">CVTTSD2SI</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.DEC" class="def variant constructor anchored"><a href="#type-instruction.DEC" class="anchor"></a><code><span>| </span><span><span class="constructor">DEC</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.DIVSD" class="def variant constructor anchored"><a href="#type-instruction.DIVSD" class="anchor"></a><code><span>| </span><span><span class="constructor">DIVSD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FABS" class="def variant constructor anchored"><a href="#type-instruction.FABS" class="anchor"></a><code><span>| </span><span><span class="constructor">FABS</span></span></code></li><li id="type-instruction.FADD" class="def variant constructor anchored"><a href="#type-instruction.FADD" class="anchor"></a><code><span>| </span><span><span class="constructor">FADD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FADDP" class="def variant constructor anchored"><a href="#type-instruction.FADDP" class="anchor"></a><code><span>| </span><span><span class="constructor">FADDP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FCHS" class="def variant constructor anchored"><a href="#type-instruction.FCHS" class="anchor"></a><code><span>| </span><span><span class="constructor">FCHS</span></span></code></li><li id="type-instruction.FCOMP" class="def variant constructor anchored"><a href="#type-instruction.FCOMP" class="anchor"></a><code><span>| </span><span><span class="constructor">FCOMP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FCOMPP" class="def variant constructor anchored"><a href="#type-instruction.FCOMPP" class="anchor"></a><code><span>| </span><span><span class="constructor">FCOMPP</span></span></code></li><li id="type-instruction.FCOS" class="def variant constructor anchored"><a href="#type-instruction.FCOS" class="anchor"></a><code><span>| </span><span><span class="constructor">FCOS</span></span></code></li><li id="type-instruction.FDIV" class="def variant constructor anchored"><a href="#type-instruction.FDIV" class="anchor"></a><code><span>| </span><span><span class="constructor">FDIV</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FDIVP" class="def variant constructor anchored"><a href="#type-instruction.FDIVP" class="anchor"></a><code><span>| </span><span><span class="constructor">FDIVP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FDIVR" class="def variant constructor anchored"><a href="#type-instruction.FDIVR" class="anchor"></a><code><span>| </span><span><span class="constructor">FDIVR</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FDIVRP" class="def variant constructor anchored"><a href="#type-instruction.FDIVRP" class="anchor"></a><code><span>| </span><span><span class="constructor">FDIVRP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FILD" class="def variant constructor anchored"><a href="#type-instruction.FILD" class="anchor"></a><code><span>| </span><span><span class="constructor">FILD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FISTP" class="def variant constructor anchored"><a href="#type-instruction.FISTP" class="anchor"></a><code><span>| </span><span><span class="constructor">FISTP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FLD" class="def variant constructor anchored"><a href="#type-instruction.FLD" class="anchor"></a><code><span>| </span><span><span class="constructor">FLD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FLD1" class="def variant constructor anchored"><a href="#type-instruction.FLD1" class="anchor"></a><code><span>| </span><span><span class="constructor">FLD1</span></span></code></li><li id="type-instruction.FLDCW" class="def variant constructor anchored"><a href="#type-instruction.FLDCW" class="anchor"></a><code><span>| </span><span><span class="constructor">FLDCW</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FLDLG2" class="def variant constructor anchored"><a href="#type-instruction.FLDLG2" class="anchor"></a><code><span>| </span><span><span class="constructor">FLDLG2</span></span></code></li><li id="type-instruction.FLDLN2" class="def variant constructor anchored"><a href="#type-instruction.FLDLN2" class="anchor"></a><code><span>| </span><span><span class="constructor">FLDLN2</span></span></code></li><li id="type-instruction.FLDZ" class="def variant constructor anchored"><a href="#type-instruction.FLDZ" class="anchor"></a><code><span>| </span><span><span class="constructor">FLDZ</span></span></code></li><li id="type-instruction.FMUL" class="def variant constructor anchored"><a href="#type-instruction.FMUL" class="anchor"></a><code><span>| </span><span><span class="constructor">FMUL</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FMULP" class="def variant constructor anchored"><a href="#type-instruction.FMULP" class="anchor"></a><code><span>| </span><span><span class="constructor">FMULP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FNSTCW" class="def variant constructor anchored"><a href="#type-instruction.FNSTCW" class="anchor"></a><code><span>| </span><span><span class="constructor">FNSTCW</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FNSTSW" class="def variant constructor anchored"><a href="#type-instruction.FNSTSW" class="anchor"></a><code><span>| </span><span><span class="constructor">FNSTSW</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FPATAN" class="def variant constructor anchored"><a href="#type-instruction.FPATAN" class="anchor"></a><code><span>| </span><span><span class="constructor">FPATAN</span></span></code></li><li id="type-instruction.FPTAN" class="def variant constructor anchored"><a href="#type-instruction.FPTAN" class="anchor"></a><code><span>| </span><span><span class="constructor">FPTAN</span></span></code></li><li id="type-instruction.FSIN" class="def variant constructor anchored"><a href="#type-instruction.FSIN" class="anchor"></a><code><span>| </span><span><span class="constructor">FSIN</span></span></code></li><li id="type-instruction.FSQRT" class="def variant constructor anchored"><a href="#type-instruction.FSQRT" class="anchor"></a><code><span>| </span><span><span class="constructor">FSQRT</span></span></code></li><li id="type-instruction.FSTP" class="def variant constructor anchored"><a href="#type-instruction.FSTP" class="anchor"></a><code><span>| </span><span><span class="constructor">FSTP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FSUB" class="def variant constructor anchored"><a href="#type-instruction.FSUB" class="anchor"></a><code><span>| </span><span><span class="constructor">FSUB</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FSUBP" class="def variant constructor anchored"><a href="#type-instruction.FSUBP" class="anchor"></a><code><span>| </span><span><span class="constructor">FSUBP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FSUBR" class="def variant constructor anchored"><a href="#type-instruction.FSUBR" class="anchor"></a><code><span>| </span><span><span class="constructor">FSUBR</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FSUBRP" class="def variant constructor anchored"><a href="#type-instruction.FSUBRP" class="anchor"></a><code><span>| </span><span><span class="constructor">FSUBRP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FXCH" class="def variant constructor anchored"><a href="#type-instruction.FXCH" class="anchor"></a><code><span>| </span><span><span class="constructor">FXCH</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.FYL2X" class="def variant constructor anchored"><a href="#type-instruction.FYL2X" class="anchor"></a><code><span>| </span><span><span class="constructor">FYL2X</span></span></code></li><li id="type-instruction.HLT" class="def variant constructor anchored"><a href="#type-instruction.HLT" class="anchor"></a><code><span>| </span><span><span class="constructor">HLT</span></span></code></li><li id="type-instruction.IDIV" class="def variant constructor anchored"><a href="#type-instruction.IDIV" class="anchor"></a><code><span>| </span><span><span class="constructor">IDIV</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.IMUL" class="def variant constructor anchored"><a href="#type-instruction.IMUL" class="anchor"></a><code><span>| </span><span><span class="constructor">IMUL</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <span><a href="#type-arg">arg</a> option</span></span></code></li><li id="type-instruction.INC" class="def variant constructor anchored"><a href="#type-instruction.INC" class="anchor"></a><code><span>| </span><span><span class="constructor">INC</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.J" class="def variant constructor anchored"><a href="#type-instruction.J" class="anchor"></a><code><span>| </span><span><span class="constructor">J</span> <span class="keyword">of</span> <a href="#type-condition">condition</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.JMP" class="def variant constructor anchored"><a href="#type-instruction.JMP" class="anchor"></a><code><span>| </span><span><span class="constructor">JMP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.LEA" class="def variant constructor anchored"><a href="#type-instruction.LEA" class="anchor"></a><code><span>| </span><span><span class="constructor">LEA</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.LEAVE" class="def variant constructor anchored"><a href="#type-instruction.LEAVE" class="anchor"></a><code><span>| </span><span><span class="constructor">LEAVE</span></span></code></li><li id="type-instruction.MOV" class="def variant constructor anchored"><a href="#type-instruction.MOV" class="anchor"></a><code><span>| </span><span><span class="constructor">MOV</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVAPD" class="def variant constructor anchored"><a href="#type-instruction.MOVAPD" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVAPD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVLPD" class="def variant constructor anchored"><a href="#type-instruction.MOVLPD" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVLPD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVSD" class="def variant constructor anchored"><a href="#type-instruction.MOVSD" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVSD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVSS" class="def variant constructor anchored"><a href="#type-instruction.MOVSS" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVSS</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVSX" class="def variant constructor anchored"><a href="#type-instruction.MOVSX" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVSX</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVSXD" class="def variant constructor anchored"><a href="#type-instruction.MOVSXD" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVSXD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MOVZX" class="def variant constructor anchored"><a href="#type-instruction.MOVZX" class="anchor"></a><code><span>| </span><span><span class="constructor">MOVZX</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.MULSD" class="def variant constructor anchored"><a href="#type-instruction.MULSD" class="anchor"></a><code><span>| </span><span><span class="constructor">MULSD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.NEG" class="def variant constructor anchored"><a href="#type-instruction.NEG" class="anchor"></a><code><span>| </span><span><span class="constructor">NEG</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.NOP" class="def variant constructor anchored"><a href="#type-instruction.NOP" class="anchor"></a><code><span>| </span><span><span class="constructor">NOP</span></span></code></li><li id="type-instruction.OR" class="def variant constructor anchored"><a href="#type-instruction.OR" class="anchor"></a><code><span>| </span><span><span class="constructor">OR</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.POP" class="def variant constructor anchored"><a href="#type-instruction.POP" class="anchor"></a><code><span>| </span><span><span class="constructor">POP</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.PUSH" class="def variant constructor anchored"><a href="#type-instruction.PUSH" class="anchor"></a><code><span>| </span><span><span class="constructor">PUSH</span> <span class="keyword">of</span> <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.RET" class="def variant constructor anchored"><a href="#type-instruction.RET" class="anchor"></a><code><span>| </span><span><span class="constructor">RET</span></span></code></li><li id="type-instruction.ROUNDSD" class="def variant constructor anchored"><a href="#type-instruction.ROUNDSD" class="anchor"></a><code><span>| </span><span><span class="constructor">ROUNDSD</span> <span class="keyword">of</span> <a href="#type-rounding">rounding</a> * <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SAL" class="def variant constructor anchored"><a href="#type-instruction.SAL" class="anchor"></a><code><span>| </span><span><span class="constructor">SAL</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SAR" class="def variant constructor anchored"><a href="#type-instruction.SAR" class="anchor"></a><code><span>| </span><span><span class="constructor">SAR</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SET" class="def variant constructor anchored"><a href="#type-instruction.SET" class="anchor"></a><code><span>| </span><span><span class="constructor">SET</span> <span class="keyword">of</span> <a href="#type-condition">condition</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SHR" class="def variant constructor anchored"><a href="#type-instruction.SHR" class="anchor"></a><code><span>| </span><span><span class="constructor">SHR</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SQRTSD" class="def variant constructor anchored"><a href="#type-instruction.SQRTSD" class="anchor"></a><code><span>| </span><span><span class="constructor">SQRTSD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SUB" class="def variant constructor anchored"><a href="#type-instruction.SUB" class="anchor"></a><code><span>| </span><span><span class="constructor">SUB</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.SUBSD" class="def variant constructor anchored"><a href="#type-instruction.SUBSD" class="anchor"></a><code><span>| </span><span><span class="constructor">SUBSD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.TEST" class="def variant constructor anchored"><a href="#type-instruction.TEST" class="anchor"></a><code><span>| </span><span><span class="constructor">TEST</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.UCOMISD" class="def variant constructor anchored"><a href="#type-instruction.UCOMISD" class="anchor"></a><code><span>| </span><span><span class="constructor">UCOMISD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.XCHG" class="def variant constructor anchored"><a href="#type-instruction.XCHG" class="anchor"></a><code><span>| </span><span><span class="constructor">XCHG</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.XOR" class="def variant constructor anchored"><a href="#type-instruction.XOR" class="anchor"></a><code><span>| </span><span><span class="constructor">XOR</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li><li id="type-instruction.XORPD" class="def variant constructor anchored"><a href="#type-instruction.XORPD" class="anchor"></a><code><span>| </span><span><span class="constructor">XORPD</span> <span class="keyword">of</span> <a href="#type-arg">arg</a> * <a href="#type-arg">arg</a></span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-asm_line"><a href="#type-asm_line" class="anchor"></a><code><span><span class="keyword">type</span> asm_line</span><span> = </span></code><ol><li id="type-asm_line.Ins" class="def variant constructor anchored"><a href="#type-asm_line.Ins" class="anchor"></a><code><span>| </span><span><span class="constructor">Ins</span> <span class="keyword">of</span> <a href="#type-instruction">instruction</a></span></code></li><li id="type-asm_line.Align" class="def variant constructor anchored"><a href="#type-asm_line.Align" class="anchor"></a><code><span>| </span><span><span class="constructor">Align</span> <span class="keyword">of</span> bool * int</span></code></li><li id="type-asm_line.Byte" class="def variant constructor anchored"><a href="#type-asm_line.Byte" class="anchor"></a><code><span>| </span><span><span class="constructor">Byte</span> <span class="keyword">of</span> <a href="#type-constant">constant</a></span></code></li><li id="type-asm_line.Bytes" class="def variant constructor anchored"><a href="#type-asm_line.Bytes" class="anchor"></a><code><span>| </span><span><span class="constructor">Bytes</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Comment" class="def variant constructor anchored"><a href="#type-asm_line.Comment" class="anchor"></a><code><span>| </span><span><span class="constructor">Comment</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Global" class="def variant constructor anchored"><a href="#type-asm_line.Global" class="anchor"></a><code><span>| </span><span><span class="constructor">Global</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Long" class="def variant constructor anchored"><a href="#type-asm_line.Long" class="anchor"></a><code><span>| </span><span><span class="constructor">Long</span> <span class="keyword">of</span> <a href="#type-constant">constant</a></span></code></li><li id="type-asm_line.NewLabel" class="def variant constructor anchored"><a href="#type-asm_line.NewLabel" class="anchor"></a><code><span>| </span><span><span class="constructor">NewLabel</span> <span class="keyword">of</span> string * <a href="#type-data_type">data_type</a></span></code></li><li id="type-asm_line.Quad" class="def variant constructor anchored"><a href="#type-asm_line.Quad" class="anchor"></a><code><span>| </span><span><span class="constructor">Quad</span> <span class="keyword">of</span> <a href="#type-constant">constant</a></span></code></li><li id="type-asm_line.Section" class="def variant constructor anchored"><a href="#type-asm_line.Section" class="anchor"></a><code><span>| </span><span><span class="constructor">Section</span> <span class="keyword">of</span> <span>string list</span> * <span>string option</span> * <span>string list</span></span></code></li><li id="type-asm_line.Space" class="def variant constructor anchored"><a href="#type-asm_line.Space" class="anchor"></a><code><span>| </span><span><span class="constructor">Space</span> <span class="keyword">of</span> int</span></code></li><li id="type-asm_line.Word" class="def variant constructor anchored"><a href="#type-asm_line.Word" class="anchor"></a><code><span>| </span><span><span class="constructor">Word</span> <span class="keyword">of</span> <a href="#type-constant">constant</a></span></code></li><li id="type-asm_line.External" class="def variant constructor anchored"><a href="#type-asm_line.External" class="anchor"></a><code><span>| </span><span><span class="constructor">External</span> <span class="keyword">of</span> string * <a href="#type-data_type">data_type</a></span></code></li><li id="type-asm_line.Mode386" class="def variant constructor anchored"><a href="#type-asm_line.Mode386" class="anchor"></a><code><span>| </span><span><span class="constructor">Mode386</span></span></code></li><li id="type-asm_line.Model" class="def variant constructor anchored"><a href="#type-asm_line.Model" class="anchor"></a><code><span>| </span><span><span class="constructor">Model</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Cfi_adjust_cfa_offset" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_adjust_cfa_offset" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_adjust_cfa_offset</span> <span class="keyword">of</span> int</span></code></li><li id="type-asm_line.Cfi_endproc" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_endproc" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_endproc</span></span></code></li><li id="type-asm_line.Cfi_startproc" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_startproc" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_startproc</span></span></code></li><li id="type-asm_line.Cfi_remember_state" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_remember_state" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_remember_state</span></span></code></li><li id="type-asm_line.Cfi_restore_state" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_restore_state" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_restore_state</span></span></code></li><li id="type-asm_line.Cfi_def_cfa_register" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_def_cfa_register" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_def_cfa_register</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Cfi_def_cfa_offset" class="def variant constructor anchored"><a href="#type-asm_line.Cfi_def_cfa_offset" class="anchor"></a><code><span>| </span><span><span class="constructor">Cfi_def_cfa_offset</span> <span class="keyword">of</span> int</span></code></li><li id="type-asm_line.File" class="def variant constructor anchored"><a href="#type-asm_line.File" class="anchor"></a><code><span>| </span><span><span class="constructor">File</span> <span class="keyword">of</span> int * string</span></code></li><li id="type-asm_line.Indirect_symbol" class="def variant constructor anchored"><a href="#type-asm_line.Indirect_symbol" class="anchor"></a><code><span>| </span><span><span class="constructor">Indirect_symbol</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Loc" class="def variant constructor anchored"><a href="#type-asm_line.Loc" class="anchor"></a><code><span>| </span><span><span class="constructor">Loc</span> <span class="keyword">of</span> int * int * int</span></code></li><li id="type-asm_line.Private_extern" class="def variant constructor anchored"><a href="#type-asm_line.Private_extern" class="anchor"></a><code><span>| </span><span><span class="constructor">Private_extern</span> <span class="keyword">of</span> string</span></code></li><li id="type-asm_line.Set" class="def variant constructor anchored"><a href="#type-asm_line.Set" class="anchor"></a><code><span>| </span><span><span class="constructor">Set</span> <span class="keyword">of</span> string * <a href="#type-constant">constant</a></span></code></li><li id="type-asm_line.Size" class="def variant constructor anchored"><a href="#type-asm_line.Size" class="anchor"></a><code><span>| </span><span><span class="constructor">Size</span> <span class="keyword">of</span> string * <a href="#type-constant">constant</a></span></code></li><li id="type-asm_line.Type" class="def variant constructor anchored"><a href="#type-asm_line.Type" class="anchor"></a><code><span>| </span><span><span class="constructor">Type</span> <span class="keyword">of</span> string * string</span></code></li></ol></div></div><div class="odoc-spec"><div class="spec type anchored" id="type-asm_program"><a href="#type-asm_program" class="anchor"></a><code><span><span class="keyword">type</span> asm_program</span><span> = <span><a href="#type-asm_line">asm_line</a> list</span></span></code></div></div></div></body></html>