Implement __builtin_types_compatible_p

This is used by util-linux.

1 files changed, 5 insertions, 0 deletions

diff --git a/expr.c b/expr.c
index 28585c9..5c3e688 100644
--- a/expr.c
+++ b/expr.c
@@ -442,6 +442,11 @@ builtinfunc(struct scope *s, enum builtinkind kind)
 		e = mkconstexpr(&typeulong, offset);
 		free(name);
 		break;
+	case BUILTINTYPESCOMPATIBLEP:
+		t = typename(s, NULL);
+		expect(TCOMMA, "after type name");
+		e = mkconstexpr(&typeint, typecompatible(t, typename(s, NULL)));
+		break;
 	case BUILTINVAARG:
 		e = mkexpr(EXPRBUILTIN, NULL);
 		e->builtin.kind = BUILTINVAARG;