Added -S flag

diff --git a/lang/cem/cemcom/BigPars b/lang/cem/cemcom/BigPars
index b3b746e..f875eae 100644 (file)
--- a/lang/cem/cemcom/BigPars
+++ b/lang/cem/cemcom/BigPars
@@ -30,7 +30,7 @@
 
 
 !File: density.h
-#define        DENSITY 2       /* see switch.[ch] for an explanation           */
+#define        DENSITY 3       /* see switch.[ch] for an explanation           */
 
 
 !File: lapbuf.h

diff --git a/lang/cem/cemcom/SmallPars b/lang/cem/cemcom/SmallPars
index a55ebb2..d4e1ae1 100644 (file)
--- a/lang/cem/cemcom/SmallPars
+++ b/lang/cem/cemcom/SmallPars
@@ -30,7 +30,7 @@
 
 
 !File: density.h
-#define        DENSITY 2       /* see switch.[ch] for an explanation           */
+#define        DENSITY 3       /* see switch.[ch] for an explanation           */
 
 
 !File: lapbuf.h

diff --git a/lang/cem/cemcom/options b/lang/cem/cemcom/options
index b14bdc6..0dd6468 100644 (file)
--- a/lang/cem/cemcom/options
+++ b/lang/cem/cemcom/options
@@ -13,6 +13,7 @@ L     don't generate linenumbers and filename indications
 p      trace
 P      in running the preprocessor do not output '# line' lines
 R      restricted C
+S      density for CSA/CSB
 T      take path following as directory for storing temporary file(s)
 U      undefine predefined name
 V      set objectsize and alignment requirements

diff --git a/lang/cem/cemcom/options.c b/lang/cem/cemcom/options.c
index 296ed59..346c88d 100644 (file)
--- a/lang/cem/cemcom/options.c
+++ b/lang/cem/cemcom/options.c
@@ -38,6 +38,7 @@ char loptions[128];                   /* one for every char   */
 #endif LINT
 
 extern int idfsize;
+extern int density;
 
 static int txt2int();
 
@@ -337,6 +338,9 @@ deleted, is now a debug-flag
                break;
        }
 #endif NOCROSS
+       case 'S':
+               density = txt2int(&text);
+               break;
 #endif LINT
        }
 }

diff --git a/lang/cem/cemcom/switch.c b/lang/cem/cemcom/switch.c
index 27ea92a..7f2579c 100644 (file)
--- a/lang/cem/cemcom/switch.c
+++ b/lang/cem/cemcom/switch.c
@@ -28,6 +28,7 @@
 #include       "noRoption.h"
 
 extern char options[];
+int density = DENSITY;
 
 compact(nr, low, up)
        arith low, up;
@@ -38,7 +39,7 @@ compact(nr, low, up)
        */
        arith diff = up - low;
 
-       return (nr == 0 || (diff >= 0 && diff / nr <= (DENSITY - 1)));
+       return (nr == 0 || (diff >= 0 && diff / nr <= (density - 1)));
 }
 
 static struct switch_hdr *switch_stack = 0;