MAJ pour OCaml

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@801 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 12 insertions, 0 deletions

diff --git a/asmcomp/emit_power.mlp b/asmcomp/emit_power.mlp
index b187962aa..b9561cf85 100644
--- a/asmcomp/emit_power.mlp
+++ b/asmcomp/emit_power.mlp
@@ -693,6 +693,17 @@ let emit_item = function
   | Clabel_address lbl ->
       `	.long	{emit_label (lbl + 10000)}\n`
   | Cstring s ->
+      let pos = ref 0 in
+      for i = 0 to String.length s - 1 do
+        if !pos = 0
+        then `	.byte	`
+        else `,`;
+        emit_int(Char.code s.[i]);
+        incr pos;
+        if !pos >= 16 then begin `\n`; pos := 0 end
+      done;
+      if !pos > 0 then `\n`
+(****        
       let l = String.length s in
       let i = ref 0 in
       while !i < l do
@@ -720,6 +731,7 @@ let emit_item = function
           `\n`
         end
       done
+******)
   | Cskip n ->
       if n > 0 then `	.space	{emit_int n}\n`
   | Calign n ->