Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PR#2544 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6280 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2004-05-04 10:05:52 +00:00
parent 8b7a1d8075
commit 708c89903b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asmcomp/hppa/emit.mlp
View File

@ -1075,11 +1075,11 @@ let begin_assembly() =
Hashtbl.clear stub_label_table; Hashtbl.clear stub_label_table;
let lbl_begin = Compilenv.make_symbol (Some "data_begin") in let lbl_begin = Compilenv.make_symbol (Some "data_begin") in
` .data\n`; ` .data\n`;
emit_global lbl_begin; declare_global lbl_begin;
`{emit_symbol lbl_begin}:\n`; `{emit_symbol lbl_begin}:\n`;
let lbl_begin = Compilenv.make_symbol (Some "code_begin") in let lbl_begin = Compilenv.make_symbol (Some "code_begin") in
` .code\n`; ` .code\n`;
emit_global lbl_begin; declare_global lbl_begin;
`{emit_symbol lbl_begin}:\n` `{emit_symbol lbl_begin}:\n`
@ -1087,15 +1087,15 @@ let end_assembly() =
if not hpux then emit_stubs(); if not hpux then emit_stubs();
` .code\n`; ` .code\n`;
let lbl_end = Compilenv.make_symbol (Some "code_end") in let lbl_end = Compilenv.make_symbol (Some "code_end") in
emit_global lbl_end; declare_global lbl_end;
`{emit_symbol lbl_end}:\n`; `{emit_symbol lbl_end}:\n`;
` .data\n`; ` .data\n`;
let lbl_end = Compilenv.make_symbol (Some "data_end") in let lbl_end = Compilenv.make_symbol (Some "data_end") in
emit_global lbl_end; declare_global lbl_end;
`{emit_symbol lbl_end}:\n`; `{emit_symbol lbl_end}:\n`;
` .long 0\n`; ` .long 0\n`;
let lbl = Compilenv.make_symbol (Some "frametable") in let lbl = Compilenv.make_symbol (Some "frametable") in
emit_global lbl; declare_global lbl;
`{emit_symbol lbl}:\n`; `{emit_symbol lbl}:\n`;
` .long {emit_int (List.length !frame_descriptors)}\n`; ` .long {emit_int (List.length !frame_descriptors)}\n`;
List.iter emit_frame !frame_descriptors; List.iter emit_frame !frame_descriptors;