Do not print Pervasives

2010-09-13 13:45:51 +02:00 · 2010-09-13 13:45:51 +02:00 · 0b5d1cd471
parent 0b12e6a4ae
commit 0b5d1cd471
1 changed files with 4 additions and 1 deletions
--- a/compiler/obc/c/cgen.ml
+++ b/compiler/obc/c/cgen.ml
@ -57,7 +57,10 @@ struct
 end

 let cname_of_qn q =
-  (q.qual ^ "__" ^ q.name)
+  if q.qual = "Pervasives" then
+    q.name
+  else
+    (q.qual ^ "__" ^ q.name)

 let rec struct_name ty =
  match ty with