[MLton-commit] r6794

[Wesley Terpstra]

The logic of when to output debug line information was inverted.
The same fix to i386 will be commited along with other changes separately.


----------------------------------------------------------------------

U   mlton/trunk/mlton/codegen/amd64-codegen/amd64-mlton-basic.fun

----------------------------------------------------------------------

Modified: mlton/trunk/mlton/codegen/amd64-codegen/amd64-mlton-basic.fun
===================================================================
--- mlton/trunk/mlton/codegen/amd64-codegen/amd64-mlton-basic.fun	2008-08-23 23:34:38 UTC (rev 6793)
+++ mlton/trunk/mlton/codegen/amd64-codegen/amd64-mlton-basic.fun	2008-08-23 23:36:41 UTC (rev 6794)
@@ -280,10 +280,10 @@
 
   val fileLine
     = fn () => if !Control.debug
-                 then Operand.immediate (Immediate.zero)
-                 else (Operand.immediate
+                 then (Operand.immediate
                        (Immediate.labelPlusInt
                         (fileLineLabel (), 9)))
+                 else Operand.immediate (Immediate.zero)
 
   val gcState_label = Label.fromString "gcState"