Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/compiler/FLINT/trans/pequal.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/FLINT/trans/pequal.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 474, Wed Nov 10 22:59:58 1999 UTC revision 475, Wed Nov 10 22:59:58 1999 UTC
# Line 191  Line 191 
191    else if TU.equalTycon(tyc,BT.realTycon) then prim(PO.FEQLd,realeqty)    else if TU.equalTycon(tyc,BT.realTycon) then prim(PO.FEQLd,realeqty)
192    else if TU.equalTycon(tyc,BT.stringTycon) then getStrEq()    else if TU.equalTycon(tyc,BT.stringTycon) then getStrEq()
193    else if TU.equalTycon(tyc,BT.refTycon) then ptrEq(PO.PTREQL, ty)    else if TU.equalTycon(tyc,BT.refTycon) then ptrEq(PO.PTREQL, ty)
194    (**********************
195     * For arrays under the new array representation, we need to compare
196     * the data pointers for equality.  polyequal does this comparison
197     * correctly, so use it as the fallback. (JHR)
198     *
199    else if TU.equalTycon(tyc,BT.arrayTycon) then ptrEq(PO.PTREQL, ty)    else if TU.equalTycon(tyc,BT.arrayTycon) then ptrEq(PO.PTREQL, ty)
200    else if TU.equalTycon(tyc,BT.word8arrayTycon) then ptrEq(PO.PTREQL, ty)    else if TU.equalTycon(tyc,BT.word8arrayTycon) then ptrEq(PO.PTREQL, ty)
201    else if TU.equalTycon(tyc,BT.real64arrayTycon) then ptrEq(PO.PTREQL, ty)    else if TU.equalTycon(tyc,BT.real64arrayTycon) then ptrEq(PO.PTREQL, ty)
202    **********************)
203    else raise Poly    else raise Poly
204    
205  fun test(ty, 0) = raise Poly  fun test(ty, 0) = raise Poly

Legend:
Removed from v.474  
changed lines
  Added in v.475

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0