Browse Source

+ Dw switch now does something.

daniel 26 years ago
parent
commit
2d925677e5
2 changed files with 15 additions and 3 deletions
  1. 10 1
      compiler/link.pas
  2. 5 2
      compiler/systems.pas

+ 10 - 1
compiler/link.pas

@@ -638,6 +638,12 @@ begin
        Replace (S, '$STRIP', Target_Link.StripOpt)
        Replace (S, '$STRIP', Target_Link.StripOpt)
      else
      else
        Replace (S, '$STRIP', '');
        Replace (S, '$STRIP', '');
+     {This is a hack. But I don't think other platforms have a presenation
+      manager, so it should work. (DM)}
+     if usewindowapi then
+       replace (s, '$PM',' -p')
+     else
+       replace (s, '$PM','');
      if utilsdirectory<>'' then
      if utilsdirectory<>'' then
        begin
        begin
           bindbin:=Search(target_link.bindbin[ii]+source_os.exeext,
           bindbin:=Search(target_link.bindbin[ii]+source_os.exeext,
@@ -779,7 +785,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.68  1999-08-18 17:05:53  florian
+  Revision 1.69  1999-09-15 20:24:56  daniel
+  + Dw switch now does something.
+
+  Revision 1.68  1999/08/18 17:05:53  florian
     + implemented initilizing of data for the new code generator
     + implemented initilizing of data for the new code generator
       so it should compile now simple programs
       so it should compile now simple programs
 
 

+ 5 - 2
compiler/systems.pas

@@ -912,7 +912,7 @@ implementation
             linkcmd : '-o $EXE @$RES';
             linkcmd : '-o $EXE @$RES';
             binders : 1;
             binders : 1;
             bindbin : ('emxbind','');
             bindbin : ('emxbind','');
-            bindcmd : ('-b $STRIP -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB',
+            bindcmd : ('-b $STRIP$PM -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB',
                        '');
                        '');
             stripopt   : '-s';
             stripopt   : '-s';
             stripbind  : true;
             stripbind  : true;
@@ -1734,7 +1734,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.92  1999-09-07 15:02:41  pierre
+  Revision 1.93  1999-09-15 20:24:56  daniel
+  + Dw switch now does something.
+
+  Revision 1.92  1999/09/07 15:02:41  pierre
    * powerpc default was alpha !!
    * powerpc default was alpha !!
 
 
   Revision 1.91  1999/08/16 15:35:29  pierre
   Revision 1.91  1999/08/16 15:35:29  pierre