[Pkg-cli-apps-commits] [fsharp] 45/60: Instruction identifiers should be marked as literals to help the compiler optimize code using them.

[Christopher Halse Rogers]

This is an automated email from the git hooks/post-receive script.

raof-guest pushed a commit to branch master
in repository fsharp.

commit eee62837e21989f8c1001a719fc843cce1eabab5
Author: Jack Pappas <jackp at server.fake>
Date:   Thu Jul 3 14:52:48 2014 -0400

    Instruction identifiers should be marked as literals to help the compiler optimize code using them.
---
 src/fsharp/pickle.fs | 126 +++++++++++++++++++++++++--------------------------
 1 file changed, 63 insertions(+), 63 deletions(-)

diff --git a/src/fsharp/pickle.fs b/src/fsharp/pickle.fs
index 96ba01c..c80d4aa 100644
--- a/src/fsharp/pickle.fs
+++ b/src/fsharp/pickle.fs
@@ -1001,69 +1001,69 @@ let u_ILBasicType st =
 let u_ILVolatility st = (match u_int st with  0 -> Volatile | 1 -> Nonvolatile | _ -> ufailwith st "u_ILVolatility" )
 let u_ILReadonly   st = (match u_int st with  0 -> ReadonlyAddress | 1 -> NormalAddress | _ -> ufailwith st "u_ILReadonly" )
   
-let itag_nop           = 0 
-let itag_ldarg         = 1
-let itag_ldnull        = 2 
-let itag_ilzero        = 3
-let itag_call          = 4 
-let itag_add           = 5
-let itag_sub           = 6 
-let itag_mul           = 7
-let itag_div           = 8 
-let itag_div_un        = 9 
-let itag_rem           = 10 
-let itag_rem_un        = 11 
-let itag_and           = 12 
-let itag_or            = 13 
-let itag_xor           = 14 
-let itag_shl           = 15 
-let itag_shr           = 16 
-let itag_shr_un        = 17 
-let itag_neg           = 18 
-let itag_not           = 19 
-let itag_conv          = 20
-let itag_conv_un       = 21 
-let itag_conv_ovf      = 22
-let itag_conv_ovf_un   = 23
-let itag_callvirt      = 24 
-let itag_ldobj         = 25 
-let itag_ldstr         = 26 
-let itag_castclass     = 27 
-let itag_isinst        = 28 
-let itag_unbox         = 29 
-let itag_throw         = 30 
-let itag_ldfld         = 31 
-let itag_ldflda        = 32 
-let itag_stfld         = 33 
-let itag_ldsfld        = 34 
-let itag_ldsflda       = 35 
-let itag_stsfld        = 36 
-let itag_stobj         = 37 
-let itag_box           = 38 
-let itag_newarr        = 39 
-let itag_ldlen         = 40 
-let itag_ldelema       = 41 
-let itag_ckfinite      = 42 
-let itag_ldtoken       = 43 
-let itag_add_ovf       = 44 
-let itag_add_ovf_un    = 45 
-let itag_mul_ovf       = 46 
-let itag_mul_ovf_un    = 47 
-let itag_sub_ovf       = 48 
-let itag_sub_ovf_un    = 49 
-let itag_ceq           = 50
-let itag_cgt           = 51
-let itag_cgt_un        = 52
-let itag_clt           = 53
-let itag_clt_un        = 54
-let itag_ldvirtftn     = 55 
-let itag_localloc      = 56 
-let itag_rethrow       = 57 
-let itag_sizeof        = 58
-let itag_ldelem_any    = 59
-let itag_stelem_any    = 60
-let itag_unbox_any     = 61
-let itag_ldlen_multi   = 62
+let [<Literal>] itag_nop           = 0 
+let [<Literal>] itag_ldarg         = 1
+let [<Literal>] itag_ldnull        = 2 
+let [<Literal>] itag_ilzero        = 3
+let [<Literal>] itag_call          = 4 
+let [<Literal>] itag_add           = 5
+let [<Literal>] itag_sub           = 6 
+let [<Literal>] itag_mul           = 7
+let [<Literal>] itag_div           = 8 
+let [<Literal>] itag_div_un        = 9 
+let [<Literal>] itag_rem           = 10 
+let [<Literal>] itag_rem_un        = 11 
+let [<Literal>] itag_and           = 12 
+let [<Literal>] itag_or            = 13 
+let [<Literal>] itag_xor           = 14 
+let [<Literal>] itag_shl           = 15 
+let [<Literal>] itag_shr           = 16 
+let [<Literal>] itag_shr_un        = 17 
+let [<Literal>] itag_neg           = 18 
+let [<Literal>] itag_not           = 19 
+let [<Literal>] itag_conv          = 20
+let [<Literal>] itag_conv_un       = 21 
+let [<Literal>] itag_conv_ovf      = 22
+let [<Literal>] itag_conv_ovf_un   = 23
+let [<Literal>] itag_callvirt      = 24 
+let [<Literal>] itag_ldobj         = 25 
+let [<Literal>] itag_ldstr         = 26 
+let [<Literal>] itag_castclass     = 27 
+let [<Literal>] itag_isinst        = 28 
+let [<Literal>] itag_unbox         = 29 
+let [<Literal>] itag_throw         = 30 
+let [<Literal>] itag_ldfld         = 31 
+let [<Literal>] itag_ldflda        = 32 
+let [<Literal>] itag_stfld         = 33 
+let [<Literal>] itag_ldsfld        = 34 
+let [<Literal>] itag_ldsflda       = 35 
+let [<Literal>] itag_stsfld        = 36 
+let [<Literal>] itag_stobj         = 37 
+let [<Literal>] itag_box           = 38 
+let [<Literal>] itag_newarr        = 39 
+let [<Literal>] itag_ldlen         = 40 
+let [<Literal>] itag_ldelema       = 41 
+let [<Literal>] itag_ckfinite      = 42 
+let [<Literal>] itag_ldtoken       = 43 
+let [<Literal>] itag_add_ovf       = 44 
+let [<Literal>] itag_add_ovf_un    = 45 
+let [<Literal>] itag_mul_ovf       = 46 
+let [<Literal>] itag_mul_ovf_un    = 47 
+let [<Literal>] itag_sub_ovf       = 48 
+let [<Literal>] itag_sub_ovf_un    = 49 
+let [<Literal>] itag_ceq           = 50
+let [<Literal>] itag_cgt           = 51
+let [<Literal>] itag_cgt_un        = 52
+let [<Literal>] itag_clt           = 53
+let [<Literal>] itag_clt_un        = 54
+let [<Literal>] itag_ldvirtftn     = 55 
+let [<Literal>] itag_localloc      = 56 
+let [<Literal>] itag_rethrow       = 57 
+let [<Literal>] itag_sizeof        = 58
+let [<Literal>] itag_ldelem_any    = 59
+let [<Literal>] itag_stelem_any    = 60
+let [<Literal>] itag_unbox_any     = 61
+let [<Literal>] itag_ldlen_multi   = 62
 
 let simple_instrs = 
     [ itag_add,        AI_add;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-cli-apps/packages/fsharp.git