[MLton-devel] cvs commit: bugfix for undefined reference to Real_{fetch,move,store}

[Stephen Weeks]

sweeks      03/08/21 21:14:07

  Modified:    doc      changelog
               mlton/codegen/c-codegen c-codegen.fun
  Log:
  Fixed bug in C codegen that would cause undefined references to
  Real_{fetch,move,store} when compiling on Sparcs with -align 4.  The
  problem was caused when we renamed the functions to
  Real64_{fetch,move,store} in c-chunk.h but didn't keep up in the C
  codegen.

Revision  Changes    Path
1.64      +4 -0      mlton/doc/changelog

Index: changelog
===================================================================
RCS file: /cvsroot/mlton/mlton/doc/changelog,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -r1.63 -r1.64
--- changelog	18 Aug 2003 03:32:43 -0000	1.63
+++ changelog	22 Aug 2003 04:14:07 -0000	1.64
@@ -1,5 +1,9 @@
 Here are the changes since version 20030716.
 
+* 2003-08-21
+  - Fixed bug in C codegen that would cause undefined references to
+    Real_{fetch,move,store} when compiling on Sparcs with -align 4.
+
 * 2003-08-17
   - Eliminated -link and -lib-search, which are no longer needed.
     Eliminated support for passing -l*, -L*, and *.a on the command



1.63      +3 -3      mlton/mlton/codegen/c-codegen/c-codegen.fun

Index: c-codegen.fun
===================================================================
RCS file: /cvsroot/mlton/mlton/mlton/codegen/c-codegen/c-codegen.fun,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -r1.62 -r1.63
--- c-codegen.fun	19 Jul 2003 01:23:27 -0000	1.62
+++ c-codegen.fun	22 Aug 2003 04:14:07 -0000	1.63
@@ -565,11 +565,11 @@
 	 !Control.align = Control.Align4
 	 andalso !Control.hostArch = Control.Sparc
       fun addr z = concat ["&(", z, ")"]
-      fun realFetch z = concat ["Real_fetch(", addr z, ")"]
+      fun realFetch z = concat ["Real64_fetch(", addr z, ")"]
       fun realMove {dst, src} =
-	 concat ["Real_move(", addr dst, ", ", addr src, ");\n"]
+	 concat ["Real64_move(", addr dst, ", ", addr src, ");\n"]
       fun realStore {dst, src} =
-	 concat ["Real_store(", addr dst, ", ", src, ");\n"]
+	 concat ["Real64_store(", addr dst, ", ", src, ");\n"]
       fun move {dst: string, dstIsMem: bool,
 		src: string, srcIsMem: bool,
 		ty: Type.t}: string =





-------------------------------------------------------
This SF.net email is sponsored by: VM Ware
With VMware you can run multiple operating systems on a single machine.
WITHOUT REBOOTING! Mix Linux / Windows / Novell virtual machines
at the same time. Free trial click here:http://www.vmware.com/wl/offer/358/0
_______________________________________________
MLton-devel mailing list
MLton-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mlton-devel