Skip to content
Snippets Groups Projects
Commit 40141e66 authored by xleroy's avatar xleroy
Browse files

Updated Linux conventions

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1301 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
parent 11409781
No related branches found
No related tags found
No related merge requests found
...@@ -94,7 +94,8 @@ let label_high oc lbl = ...@@ -94,7 +94,8 @@ let label_high oc lbl =
let comment = let comment =
match target with match target with
| MacOS|Linux -> ";" | MacOS -> ";"
| Linux -> "#"
| Diab -> "%" | Diab -> "%"
let constant oc cst = let constant oc cst =
...@@ -117,10 +118,12 @@ let constant oc cst = ...@@ -117,10 +118,12 @@ let constant oc cst =
end end
| Csymbol_sda(s, n) -> | Csymbol_sda(s, n) ->
begin match target with begin match target with
| MacOS ->
assert false
| Linux ->
fprintf oc "(%a)@sda21" symbol_offset (s, camlint_of_coqint n)
| Diab -> | Diab ->
fprintf oc "(%a)@sdarx" symbol_offset (s, camlint_of_coqint n) fprintf oc "(%a)@sdarx" symbol_offset (s, camlint_of_coqint n)
| _ ->
assert false
end end
let num_crbit = function let num_crbit = function
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment