X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=bbdd8f88e2837d0824e5a783842284ee702a0ca8;hb=679a97e27c505c285e0a35ea5c0e572eac07cff3;hp=63c5e5f0d23aeb80ab5c71a677e3c9b6701c61e7;hpb=005d4d4dc7c2409994204f9bbc6c42720c4ea6d4;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 63c5e5f..bbdd8f8 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.135 2003/10/22 14:31:10 simonmar Exp $
+-- $Id: Main.hs,v 1.136 2003/11/01 01:01:18 sof Exp $
 --
 -- GHC Driver program
 --
@@ -222,7 +222,9 @@ main =
     normal_fileish_paths = map normalisePath fileish_args
     (srcs, objs)         = partition looks_like_an_input normal_fileish_paths
 
-   mapM_ (add v_Ld_inputs) objs
+    -- Note: have v_Ld_inputs maintain the order in which 'objs' occurred on 
+    --       the command-line.
+   mapM_ (add v_Ld_inputs) (reverse objs)
 
 	---------------- Display banners and configuration -----------
    showBanners mode conf_file static_opts