diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-10-25 16:31:58 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-10-25 16:31:58 +0200 |
| commit | f2d6637c7d4a11f961ff289e64f70bf4de93d0aa (patch) | |
| tree | 43b9ead4ff02e1ad6a1ffef9449ca081391523cb /debug | |
| parent | 755ceeb9476f96c5d07f27edd1b26b5f183ec9f5 (diff) | |
| download | compcert-kvx-f2d6637c7d4a11f961ff289e64f70bf4de93d0aa.tar.gz compcert-kvx-f2d6637c7d4a11f961ff289e64f70bf4de93d0aa.zip | |
macosx needs all strings in degub_str.
Diffstat (limited to 'debug')
| -rw-r--r-- | debug/Dwarfgen.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/debug/Dwarfgen.ml b/debug/Dwarfgen.ml index 3c75b3dc..617c4570 100644 --- a/debug/Dwarfgen.ml +++ b/debug/Dwarfgen.ml @@ -578,7 +578,8 @@ let gnu_file_loc (f,l) = let string_table: (string,int) Hashtbl.t = Hashtbl.create 7 let gnu_string_entry s = - if String.length s < 4 || Configuration.system = "cygwin" then (*Cygwin does not use the debug_str seciton *) + if (String.length s < 4 && Configuration.system <> "macosx") (* macosx needs debug_str *) + || Configuration.system = "cygwin" then (*Cygwin does not use the debug_str seciton*) Simple_string s else try |