From 0a491e166d1e22bf3fc179213b181cec359b44de Mon Sep 17 00:00:00 2001
From: amai2012 <amai@users.sf.net>
Date: Sun, 27 Jan 2019 20:27:03 +0100
Subject: [PATCH] More Additions to the X11 Intrinsics

---
 cfg/motif.cfg | 49 +++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 39 insertions(+), 10 deletions(-)

diff --git a/cfg/motif.cfg b/cfg/motif.cfg
index ecc1ecc2d..9d20a65f1 100644
--- a/cfg/motif.cfg
+++ b/cfg/motif.cfg
@@ -100,6 +100,8 @@
   </resource>
   <!-- Intrinsics, not Motif... -->
   <function name="XtAsprintf">
+    <leak-ignore/>
+    <returnValue type="Cardinal"/>
     <arg nr="1"/>
     <arg nr="2">
       <formatstr/>
@@ -107,6 +109,25 @@
       <not-uninit/>
     </arg>
   </function>
+  <function name="XtCalloc">
+    <noreturn>false</noreturn>
+    <use-retval/>
+    <arg nr="1">
+      <not-uninit/>
+    </arg>
+    <arg nr="2">
+      <not-uninit/>
+    </arg>
+  </function>
+  <function name="XtDisplay,XtDisplayOfObject">
+    <leak-ignore/>
+    <noreturn>false</noreturn>
+    <returnValue type="Display *"/>
+    <use-retval/>
+    <arg nr="1">
+      <not-uninit/>
+    </arg>
+  </function>
   <function name="XtFree">
     <noreturn>false</noreturn>
     <arg nr="1">
@@ -130,16 +151,6 @@
       <not-uninit/>
     </arg>
   </function>
-  <function name="XtCalloc">
-    <noreturn>false</noreturn>
-    <use-retval/>
-    <arg nr="1">
-      <not-uninit/>
-    </arg>
-    <arg nr="2">
-      <not-uninit/>
-    </arg>
-  </function>
   <resource>
     <dealloc>XtFree</dealloc>
     <alloc init="true">XtMalloc</alloc>
@@ -152,7 +163,18 @@
   <define name="ClipboardSuccess" value="1"/>
   <define name="True" value="1"/>
   <define name="False" value="0"/>
+  <podtype name="Boolean" sign="u"/>
+  <podtype name="Cardinal" sign="u"/>
+  <podtype name="Dimension" sign="u"/>
+  <podtype name="Pixel" sign="u"/>
+  <podtype name="Position" sign="u"/>
   <podtype name="Widget"/>
+  <podtype name="XtValueMask" sign="u"/>
+  <podtype name="XtIntervalId" sign="u"/>
+  <podtype name="XtInputId" sign="u"/>
+  <podtype name="XtSignalId" sign="u"/>
+  <podtype name="XtGeometryMask" sign="u"/>
+  <podtype name="XtGCMask" sign="u"/>
   <!-- X11... -->
   <function name="XOpenDisplay">
     <noreturn>false</noreturn>
@@ -175,6 +197,13 @@
       <not-uninit/>
     </arg>
   </function>
+  <function name="XtScreen,XtScreenOfObject">
+    <noreturn>false</noreturn>
+    <leak-ignore/>
+    <arg nr="1">
+      <not-uninit/>
+    </arg>
+  </function>
   <function name="XtScreenDatabase">
     <noreturn>false</noreturn>
     <leak-ignore/>