jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Do not print Pervasives

Browse source
This commit is contained in:
Cédric Pasteur 2010-09-13 13:45:51 +02:00
parent 0b12e6a4ae
commit 0b5d1cd471
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
compiler/obc/c/cgen.ml
View file

@ -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