|
@@ -737,7 +737,7 @@ var
|
|
|
i, j: integer;
|
|
i, j: integer;
|
|
|
begin
|
|
begin
|
|
|
try
|
|
try
|
|
|
- fpc:=ExtractFilePath(ppudumpprog) + 'fpc' + ExtractFileExt(ppudumpprog);
|
|
|
|
|
|
|
+ fpc:=ExtractFilePath(ppudumpprog) + 'fpc' + ExtractFileExt(ParamStr(0));
|
|
|
if not FileExists(fpc) then
|
|
if not FileExists(fpc) then
|
|
|
exit;
|
|
exit;
|
|
|
// Find the compiler binary
|
|
// Find the compiler binary
|
yury