(tcl-omit-ws-regexp): Correctly handle cases like `proc foo {a {b c} d} {'.
[emacs.git] / nt / ftime-nostartup.bat
blob501e438407524af7c29c681abb040390c53ec807
1 @echo off\r
2 if (%1)==() echo Usage: %0 tracefile\r
3 if (%1)==() goto done\r
4 rem Need to fiddle with the dumped image so prep doesn't break it\r
5 obj\i386\preprep ..\src\obj\i386\emacs.exe ..\src\obj\i386\pemacs.exe\r
6 copy ..\src\obj\i386\temacs.map ..\src\obj\i386\pemacs.map\r
7 rem -----------------------------------------------------------------\r
8 rem    Use this version to profile explicit commands only.\r
9 rem prep /om /ft /sf _Fexecute_extended_command ..\src\obj\i386\pemacs\r
10 rem -----------------------------------------------------------------\r
11 rem    Use this version to ignore startup code\r
12 prep /om /ft /sf _command_loop_1 ..\src\obj\i386\pemacs\r
13 rem -----------------------------------------------------------------\r
14 rem    Use this version to include startup code\r
15 rem prep /om /ft ..\src\obj\i386\pemacs\r
16 rem -----------------------------------------------------------------\r
17 if errorlevel 1 goto done\r
18 profile ..\src\obj\i386\pemacs %2 %3 %4 %5 %6 %7 %8 %9\r
19 if errorlevel 1 goto done\r
20 prep /m  ..\src\obj\i386\pemacs\r
21 if errorlevel 1 goto done\r
22 plist ..\src\obj\i386\pemacs > %1\r
23 :done\r