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/trunk/compiler/FLINT/cps/convert.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/cps/convert.sml

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

revision 4549, Tue May 1 13:07:26 2018 UTC revision 4550, Tue May 1 17:14:02 2018 UTC
# Line 426  Line 426 
426    
427           (* lpvar : F.value -> value *)           (* lpvar : F.value -> value *)
428           fun lpvar (F.VAR v) = rename v           fun lpvar (F.VAR v) = rename v
429             | lpvar (F.INT32 i) =             | lpvar (F.INT32 i) = INT32(Word32.fromLargeInt(Int32.toLarge i))
                let val int32ToWord32 = Word32.fromLargeInt o Int32.toLarge  
                 in INT32 (int32ToWord32 i)  
                end  
430             | lpvar (F.WORD32 w) = INT32 w             | lpvar (F.WORD32 w) = INT32 w
431             | lpvar (F.INT i) = INT i             | lpvar (F.INT i) = INT i
432             | lpvar (F.WORD w) = INT(Word.toIntX w)             | lpvar (F.WORD w) = INT(Word.toIntX w)

Legend:
Removed from v.4549  
changed lines
  Added in v.4550

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