Fix some stuff for castxml

Skarsnik · Jan 31, 2018 · ad8d580 · ad8d580
1 parent fea8e6b
commit ad8d580
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git a/examples/test.h b/examples/test.h
@@ -12,12 +12,13 @@ typedef struct s1 {
   float	b;
   double	c;
   char *d;
-};
+} s42;
 
 struct s2 {
-  s1	a;
+  struct s1	a;
+  s42		aa;
   my64bits	b;
-  int	c[];
+  int	c[99];
   double	d[4];
 };
 
@@ -28,11 +29,11 @@ struct s3 {
 };
 
 void	pretty_print(const char *toprint);
-void	*do_stuff(s1 s, 
+void	*do_stuff(struct s1 s, 
 	  size_t piko,
 	  bool b,
 	  const char** const plo
  		);
 
-int  flood(char &ref);
+int  flood(char *ref);
 void testhello(type2 n);
diff --git a/lib/GPT/DumbGenerator.pm6 b/lib/GPT/DumbGenerator.pm6
@@ -16,6 +16,7 @@ sub dg-init($allt) is export {
 my %ctype-to-p6 = (
 'bool'            => 'bool',
   '_bool'           => 'bool',
+  '_Bool'	    => 'bool',
 
   'char'            => 'int8',
   'signed char'     => 'int8',
@@ -248,4 +249,4 @@ sub	dg-generate-externs is export {
   return %toret;
 }
 
-}
+}
diff --git a/lib/GPT/FileFilter.pm6 b/lib/GPT/FileFilter.pm6
@@ -13,6 +13,7 @@ sub files-filter($file-id, $file, @excluded, @selected?, :$context) returns Bool
     return False if $basename eq 'errno.h';
     return False if $file ~~ /'/usr/include/'.+?'-linux-gnu/bits/'/;
     return False if $file ~~ /'/usr/include/'.+?'-linux-gnu/sys/'/;
+    return False if $file ~~ /'/castxml/clang/include/'/;
 
     if @selected !== Empty {
       my @files-list;