paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 04:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for web bug #633

Browse Source
This commit is contained in:
pierre 1999-11-22 15:58:40 +00:00
parent 62c9663d4f
commit e298d7a873
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/fpcompil.pas
View File

@ -350,7 +350,7 @@ begin
end;
cpLinking :
begin
StatusS:='Linking...';
StatusS:='Linking '+ExeFile;
KeyS:=CtrlBS;
end;
cpDone :
@ -588,7 +588,7 @@ begin
FileName:='-B '+FileName;
{ tokens are created and distroed by compiler.compile !! PM }
DoneTokens;
Compiler.Compile(FileName);
FpIntF.Compile(FileName);
{ tokens are created and distroed by compiler.compile !! PM }
InitTokens;
if LinkAfter and IsExe and
@ -604,10 +604,10 @@ begin
ChangeRedirError(FPErrFileName,false);
{$endif}
{$ifdef linux}
Shell('./'+PpasFile+source_os.scriptext);
Shell(GetExePath+PpasFile+source_os.scriptext);
Error:=LinuxError;
{$else}
DosExecute(GetEnv('COMSPEC'),'/C '+PpasFile+source_os.scriptext);
DosExecute(GetEnv('COMSPEC'),'/C '+GetExePath+PpasFile+source_os.scriptext);
Error:=DosError;
{$endif}
{$ifndef redircompiler}
@ -748,7 +748,10 @@ end;
end.
{
$Log$
Revision 1.44 1999-11-21 01:44:34 pierre
Revision 1.45 1999-11-22 15:58:40 pierre
* fix for web bug 633
Revision 1.44 1999/11/21 01:44:34 pierre
+ Use def_gdb_stop for easy GDB debugging
Revision 1.43 1999/11/18 13:49:56 pierre