<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta name="robots" content="index,nofollow">



<title>MLtonPointer - MLton Standard ML Compiler (SML Compiler)</title>
<link rel="stylesheet" type="text/css" charset="iso-8859-1" media="all" href="common.css">
<link rel="stylesheet" type="text/css" charset="iso-8859-1" media="screen" href="screen.css">
<link rel="stylesheet" type="text/css" charset="iso-8859-1" media="print" href="print.css">


<link rel="Start" href="Home">


</head>

<body lang="en" dir="ltr">

<table bgcolor = lightblue cellspacing = 0 style = "border: 0px;" width = 100%>
  <tr>
    <td style = "
		border: 0px;
		color: darkblue; 
		font-size: 150%;
		text-align: left;">
      <a class = mltona href="Home">MLton 20051202</a>
    <td style = "
		border: 0px;
		font-size: 150%;
		text-align: center;
		width: 50%;">
      MLtonPointer
    <td style = "
		border: 0px;
		text-align: right;">
      <table cellspacing = 0 style = "border: 0px">
        <tr style = "vertical-align: middle;">
      </table>
  <tr style = "background-color: white;">
    <td colspan = 3
	style = "
		border: 0px;
		font-size:70%;
		text-align: right;">
      <a href = "Home">Home</a>
      &nbsp;<a href = "Index">Index</a>
      &nbsp;
</table>
<div id="content" lang="en" dir="ltr">

<pre class=code>
<B><FONT COLOR="#0000FF">signature</FONT></B> MLTON_POINTER =
   <B><FONT COLOR="#0000FF">sig</FONT></B>
      <B><FONT COLOR="#A020F0">eqtype</FONT></B><FONT COLOR="#228B22"><B> t

      </FONT></B><B><FONT COLOR="#A020F0">val</FONT></B> add: t * word -&gt; t
      <B><FONT COLOR="#A020F0">val</FONT></B> compare: t * t -&gt; order
      <B><FONT COLOR="#A020F0">val</FONT></B> diff: t * t -&gt; word
      <B><FONT COLOR="#A020F0">val</FONT></B> getInt8: t * int -&gt; Int8.int
      <B><FONT COLOR="#A020F0">val</FONT></B> getInt16: t * int -&gt; Int16.int
      <B><FONT COLOR="#A020F0">val</FONT></B> getInt32: t * int -&gt; Int32.int
      <B><FONT COLOR="#A020F0">val</FONT></B> getInt64: t * int -&gt; Int64.int
      <B><FONT COLOR="#A020F0">val</FONT></B> getPointer: t * int -&gt; t
      <B><FONT COLOR="#A020F0">val</FONT></B> getReal32: t * int -&gt; Real32.real
      <B><FONT COLOR="#A020F0">val</FONT></B> getReal64: t * int -&gt; Real64.real
      <B><FONT COLOR="#A020F0">val</FONT></B> getWord8: t * int -&gt; Word8.word
      <B><FONT COLOR="#A020F0">val</FONT></B> getWord16: t * int -&gt; Word16.word
      <B><FONT COLOR="#A020F0">val</FONT></B> getWord32: t * int -&gt; Word32.word
      <B><FONT COLOR="#A020F0">val</FONT></B> getWord64: t * int -&gt; Word64.word
      <B><FONT COLOR="#A020F0">val</FONT></B> null: t
      <B><FONT COLOR="#A020F0">val</FONT></B> setInt8: t * int * Int8.int -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setInt16: t * int * Int16.int -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setInt32: t * int * Int32.int -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setInt64: t * int * Int64.int -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setPointer: t * int * t -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setReal32: t * int * Real32.real -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setReal64: t * int * Real64.real -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setWord8: t * int * Word8.word -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setWord16: t * int * Word16.word -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setWord32: t * int * Word32.word -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> setWord64: t * int * Word64.word -&gt; unit
      <B><FONT COLOR="#A020F0">val</FONT></B> sub: t * word -&gt; t
   <B><FONT COLOR="#0000FF">end</FONT></B>
</PRE>
<p>
 
</p>

    <ul>

    <li>
<p>
 <tt>eqtype&nbsp;t</tt> 
</p>
</li>

        <ul>

  the type of pointers, i.e. machine addresses. 
        </ul>


    <li class="gap">
<p>
 <tt>add&nbsp;(p,&nbsp;w)</tt> 
</p>
</li>

        <ul>

  returns the pointer <tt>w</tt> bytes after than <tt>p</tt>.  Does not check   for overflow. 
        </ul>


    <li class="gap">
<p>
 <tt>compare&nbsp;(p1,&nbsp;p2)</tt> 
</p>
</li>

        <ul>

  compares the pointer <tt>p1</tt> to the pointer <tt>p2</tt> (as addresses). 
        </ul>


    <li class="gap">
<p>
 <tt>diff&nbsp;(p1,&nbsp;p2)</tt> 
</p>
</li>

        <ul>

  returns the number of bytes <tt>w</tt> such that <tt>add&nbsp;(p2,&nbsp;w)&nbsp;=&nbsp;p1</tt>.   Does not check for overflow. 
        </ul>


    <li class="gap">
<p>
 <tt>get</tt><em>X</em><tt>&nbsp;(p,&nbsp;i)</tt> 
</p>
</li>

        <ul>

  returns the object stored at index i of the array of {<em>X</em> objects   pointed to by <tt>p</tt>.  For example, <tt>getWord32&nbsp;(p,&nbsp;7)</tt> returns   the 32-bit word stored 28 bytes beyond <tt>p</tt>. 
        </ul>


    <li class="gap">
<p>
 <tt>null</tt> 
</p>
</li>

        <ul>

  the null pointer, i.e. 0. 
        </ul>


    <li class="gap">
<p>
 <tt>set</tt><em>X</em><tt>&nbsp;(p,&nbsp;i,&nbsp;v)</tt> 
</p>
</li>

        <ul>

  assigns <tt>v</tt> to the object stored at index i of the array of <em>X</em>   objects pointed to by <tt>p</tt>.  For example,   <tt>setWord32&nbsp;(p,&nbsp;7,&nbsp;w)</tt> stores the 32-bit word <tt>w</tt> at the   address 28 bytes beyond <tt>p</tt>.  
        </ul>


    <li class="gap">
<p>
 <tt>sub&nbsp;(p,&nbsp;w)</tt> 
</p>
</li>

        <ul>

  returns the pointer <tt>w</tt> bytes before <tt>p</tt>.  Does not check for   overflow. </ul>

</ul>

</div>



<p>
<hr>
Last edited on 2005-12-01 22:26:57 by <span title="ppp-71-139-183-221.dsl.snfc21.pacbell.net"><a href="StephenWeeks">StephenWeeks</a></span>.
</body></html>
