Changeset 57 for trunk/NewView/ViewStub.pas

Timestamp:

Jan 13, 2007, 9:02:55 PM (19 years ago)

Author:

RBRi

Message:

more log output; assembler calls removed

File:

• trunk/NewView/ViewStub.pas (modified) (3 diffs)

trunk/NewView/ViewStub.pas

@@ -11 +11 @@
   PMShl,
   PmWin,
+  SysUtils,
+  DebugUnit,
+  CmdLineParameterUnit,
   StartupUnit;
 
@@ -41 +44 @@
 end;
 
+var
+    tmpCmdLine : String;
+    tmpPCharCmdLine : PChar;
+
 Begin
+  LogEvent(LogViewStub, 'Starting' );
+
   if Startup then
   begin
     // Want a new instance.
 
-    // Get address of parameters, ignoring first (exename).
-    ASM
-      MOV ESI, SYSTEM.ArgStart    // Get start of parameters
-
-      // read over exe name (until first null byte)
-!rrloop:
-      LODSB
-      CMP AL,0
-      JNE !rrloop
-
-      MOV Parameters, ESI
-    End;
+    tmpCmdLine := nativeOS2GetCmdLineParameter;
+    tmpPCharCmdLine := StrAlloc(length(tmpCmdLine) + 1);
+    StrPCopy(tmpPCharCmdLine, tmpCmdLine);
 
     // set up details for launching newview
@@ -77 +77 @@
     _WinStartApp( NULLHANDLE, // no notify window
                   Details,
-                  Parameters, // use these rather than Details parameters,
+                  tmpPCharCmdLine, // use these rather than Details parameters,
                               // cause PM was swallowing /? the other way!!
                   nil, // reserved
                   0 );
+
+    StrDispose(tmpPCharCmdLine);
+
   end;
+  LogEvent(LogViewStub, 'Finished' );
 End.