From e5fdb4c742dba4ca67cc4dcfe399b97e01fb907b Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Mon, 9 Aug 2021 12:51:22 +0200
Subject: [PATCH] Patch sorts 1 byte vars in sequence, to save some memory.
 Patch #107 provided by Florian Ballenegger

---
 .../adms/admst/ngspiceMODULEdefs.h.xml        | 29 +++++++++++++++----
 1 file changed, 23 insertions(+), 6 deletions(-)

diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
index 53200b0f6..2364a9953 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
@@ -217,12 +217,20 @@ typedef struct s$(module)instance {
   </admst:choose>
 </admst:for-each>
   /* instance parameters */
+
 <admst:for-each select="variable[parametertype='instance' and input='yes']">
   <admst:value-of select="name"/>
+  <admst:text format="  unsigned %s_Given  :1;"/>
+  <admst:if test="attribute[name='info']">
+    <admst:value-of select="."/>
+    <admst:text format="  /*%s*/"/>
+  </admst:if>
+  <admst:text format="\n"/>
+</admst:for-each>
+<admst:for-each select="variable[parametertype='instance' and input='yes']">
   <admst:value-of select="name"/>
   <admst:apply-templates select="." match="dectype"/>
-  <admst:text format="%s;\n"/>
-  <admst:text format="  unsigned %s_Given  :1;"/>
+  <admst:text format="%s;"/>
   <admst:if test="attribute[name='info']">
     <admst:value-of select="."/>
     <admst:text format="  /*%s*/"/>
@@ -254,10 +262,12 @@ typedef struct s$(module)instance {
 <admst:for-each select="jacobian">
   <admst:value-of select="column/name"/>
   <admst:value-of select="row/name"/>
-  <admst:text format="  double *PTR_J_%s_%s;\n"/>
+  <admst:text format="    unsigned int PTR_J_%s_%s_required : 1;\n"/>
+</admst:for-each>
+<admst:for-each select="jacobian">
   <admst:value-of select="column/name"/>
   <admst:value-of select="row/name"/>
-  <admst:text format="    int PTR_J_%s_%s_required;\n"/>
+  <admst:text format="  double *PTR_J_%s_%s;\n"/>
   <admst:if test="[static='yes']">
     <admst:value-of select="column/name"/>
     <admst:value-of select="row/name"/>
@@ -297,10 +307,17 @@ typedef struct s$(module)model {         /* model structure */
   /* model parameters */
   <admst:for-each select="variable[parametertype='model' and input='yes']">
     <admst:value-of select="name"/>
+    <admst:text format="  unsigned %s_Given  :1;"/>
+    <admst:if test="attribute[name='info']">
+      <admst:value-of select="."/>
+      <admst:text format="  /*%s*/"/>
+    </admst:if>
+    <admst:text format="\n"/>
+  </admst:for-each>
+  <admst:for-each select="variable[parametertype='model' and input='yes']">
     <admst:value-of select="name"/>
     <admst:apply-templates select="." match="dectype"/>
-    <admst:text format="%s;\n"/>
-    <admst:text format="  unsigned %s_Given  :1;"/>
+    <admst:text format="%s;"/>
     <admst:if test="attribute[name='info']">
       <admst:value-of select="."/>
       <admst:text format="  /*%s*/"/>