X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDsw%2FMod%2FMakeMain.cp;h=824799955d58e8aec2fe9b6eb389e46de5c63ed7;hp=5c84f5296973d52dd8df3146e4eee924c5bade84;hb=3f567c7517241b0f2e08aeea6a4f4f1cae275a27;hpb=28eed3a1ff043fd056912fde1864e43e4f79e9e7

diff --git a/src/generic/Dsw/Mod/MakeMain.cp b/src/generic/Dsw/Mod/MakeMain.cp
index 5c84f52..8247999 100644
--- a/src/generic/Dsw/Mod/MakeMain.cp
+++ b/src/generic/Dsw/Mod/MakeMain.cp
@@ -29,7 +29,8 @@ MODULE DswMakeMain;
     module = 75; eof = 76;
 
     (* module state flags *)
-    imported = 0; trace = 1; hasObj = 2; hasSym = 3; hasErrors = 4; library = 5;
+    imported = 0; trace = 1; hasObj = 2; hasSym = 3; hasErrors = 4;
+    library = 5; force = 6;
 
     debugImport = FALSE;
     debugOrder = FALSE;
@@ -350,6 +351,7 @@ MODULE DswMakeMain;
     ParseModule(m);
     DevCPR.Check;
     ok := DevCPM.noerr;
+    IF DevCPR.used THEN INCL(m.flags, force) END;
     DevCPR.Close;
     DevCPM.InsertMarks;
     DevCPM.Close;
@@ -521,6 +523,14 @@ MODULE DswMakeMain;
     p := DswProcs.dir.New();
     p.Program(base + "/" + target + "/" + "build");
     p.PutParam(m.odc);
+    IF force IN m.flags THEN p.PutParam("-f") END;
+    IF library IN m.flags THEN p.PutParam("-s") END;
+    s := def.next;
+    WHILE s # NIL DO
+      IF s.value THEN p.PutParam("-D") ELSE p.PutParam("-d") END;
+      p.PutParam(s.name$);
+      s := s.next
+    END;
     RETURN p
   END PrepareCompiler;