[MLton] A MLton / C-- Experiment

Matthew Fluet fluet@cs.cornell.edu
Wed, 16 Mar 2005 18:11:43 -0500 (EST)


> > I don't know how tenable it is to go back to 32-bit file positions
> > to complete the experiment
> 
> It should be quite easy.  

It was.  The diff is simply:

Index: basis-library/integer/patch.sml
===================================================================
RCS file: /cvsroot/mlton/mlton/basis-library/integer/patch.sml,v
retrieving revision 1.16
diff -r1.16 patch.sml
58c58
< structure Position = Int64
---
> structure Position = Int32
Index: basis-library/misc/primitive.sml
===================================================================
RCS file: /cvsroot/mlton/mlton/basis-library/misc/primitive.sml,v
retrieving revision 1.145
diff -r1.145 primitive.sml
168c168
< structure Position = Int64
---
> structure Position = Int32
Index: runtime/Makefile
===================================================================
RCS file: /cvsroot/mlton/mlton/runtime/Makefile,v
retrieving revision 1.95
diff -r1.95 Makefile
42c42
< CFLAGS = -O2 -Wall -I. -Iplatform -D_FILE_OFFSET_BITS=64 $(FLAGS)
---
> CFLAGS = -O2 -Wall -I. -Iplatform -D_FILE_OFFSET_BITS=32 $(FLAGS)
Index: runtime/types.h
===================================================================
RCS file: /cvsroot/mlton/mlton/runtime/types.h,v
retrieving revision 1.10
diff -r1.10 types.h
47c47
< typedef Int64 Position;
---
> typedef Int32 Position;