[commit: ghc] simd: Add missing STG details for 128-byte vector applications. (db66370)

[Geoffrey Mainland]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : simd

http://hackage.haskell.org/trac/ghc/changeset/db66370e21d17b3b1bb75e305906493b1530e544

>---------------------------------------------------------------

commit db66370e21d17b3b1bb75e305906493b1530e544
Author: Geoffrey Mainland <gmainlan at microsoft.com>
Date:   Wed Apr 4 14:18:36 2012 +0100

    Add missing STG details for 128-byte vector applications.

>---------------------------------------------------------------

 includes/stg/MiscClosures.h |    2 ++
 rts/Linker.c                |    3 +++
 2 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h
index 727c9ef..096bb67 100644
--- a/includes/stg/MiscClosures.h
+++ b/includes/stg/MiscClosures.h
@@ -237,6 +237,7 @@ RTS_RET(stg_ap_v);
 RTS_RET(stg_ap_f);
 RTS_RET(stg_ap_d);
 RTS_RET(stg_ap_l);
+RTS_RET(stg_ap_x16);
 RTS_RET(stg_ap_n);
 RTS_RET(stg_ap_p);
 RTS_RET(stg_ap_pv);
@@ -253,6 +254,7 @@ RTS_FUN_DECL(stg_ap_v_fast);
 RTS_FUN_DECL(stg_ap_f_fast);
 RTS_FUN_DECL(stg_ap_d_fast);
 RTS_FUN_DECL(stg_ap_l_fast);
+RTS_FUN_DECL(stg_ap_x16_fast);
 RTS_FUN_DECL(stg_ap_n_fast);
 RTS_FUN_DECL(stg_ap_p_fast);
 RTS_FUN_DECL(stg_ap_pv_fast);
diff --git a/rts/Linker.c b/rts/Linker.c
index 0f73768..629ff4f 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -618,6 +618,7 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(stg_ap_f_ret)                       \
       SymI_HasProto(stg_ap_d_ret)                       \
       SymI_HasProto(stg_ap_l_ret)                       \
+      SymI_HasProto(stg_ap_x16_ret)                     \
       SymI_HasProto(stg_ap_n_ret)                       \
       SymI_HasProto(stg_ap_p_ret)                       \
       SymI_HasProto(stg_ap_pv_ret)                      \
@@ -967,6 +968,7 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(stg_ap_f_info)                      \
       SymI_HasProto(stg_ap_d_info)                      \
       SymI_HasProto(stg_ap_l_info)                      \
+      SymI_HasProto(stg_ap_x16_info)                    \
       SymI_HasProto(stg_ap_n_info)                      \
       SymI_HasProto(stg_ap_p_info)                      \
       SymI_HasProto(stg_ap_pv_info)                     \
@@ -982,6 +984,7 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(stg_ap_f_fast)                      \
       SymI_HasProto(stg_ap_d_fast)                      \
       SymI_HasProto(stg_ap_l_fast)                      \
+      SymI_HasProto(stg_ap_x16_fast)                    \
       SymI_HasProto(stg_ap_n_fast)                      \
       SymI_HasProto(stg_ap_p_fast)                      \
       SymI_HasProto(stg_ap_pv_fast)                     \