* compilation fixes + *w tools renamed to *

compiler/impdef.pas

@@ -23,7 +23,7 @@
 
  ****************************************************************************
 }
-unit imtdef;
+unit impdef;
 
 {$ifndef STANDALONE}
   {$i fpcdefs.inc}
@@ -71,7 +71,7 @@ var
   PEoffset:cardinal;
   loaded:longint;
 
-function DOSstubOK(var x:longint):longbool;
+function DOSstubOK(var x:cardinal):longbool;
 begin
   blockread(f,TheWord,2,loaded);
   if loaded<>2 then
@@ -175,7 +175,7 @@ procedure CreateTempDir(const s:string);
  end;
 procedure call_as(const name:string);
  begin
-  exec(utilsprefix+as_name,'-o '+name+'o '+name);
+  exec(as_name,'-o '+name+'o '+name);
  end;
 procedure call_ar;
  var
@@ -190,7 +190,7 @@ procedure call_ar;
   GetFAttr(f,attr);
   If DOSError=0 then
    erase(f);
-  exec(utilsprefix+ar_name,'rs '+impname+' '+path+dirsep+'*.swo');
+  exec(ar_name,'rs '+impname+' '+path+dirsep+'*.swo');
   cleardir(path,'*.sw');
   cleardir(path,'*.swo');
   {$i-}
@@ -478,7 +478,10 @@ end.
 
 {
   $Log$
-  Revision 1.12  2003-10-03 14:16:48  marco
+  Revision 1.13  2004-02-22 14:52:59  hajny
+    * compilation fixes + *w tools renamed to *
+
+  Revision 1.12  2003/10/03 14:16:48  marco
    * -XP<prefix> support
 
   Revision 1.11  2003/10/02 21:17:08  peter

compiler/utils/fpimpdef.pp

@@ -75,21 +75,21 @@ begin
 binname:=GetOption('-i','--input');
 if(binname='')or(Ofound('-h','--help')>0)then
   help_info;
- asw_name:=GetOption('-s','--assembler');
- if asw_name='' then
-  asw_name:='asw';
- arw_name:=GetOption('-r','--archiver');
- if arw_name='' then
-  arw_name:='arw';
+ as_name:=GetOption('-s','--assembler');
+ if as_name='' then
+  as_name:='as';
+ ar_name:=GetOption('-r','--archiver');
+ if ar_name='' then
+  ar_name:='ar';
 {$ifndef UNIX}
- AddExt(asw_name);
- AddExt(arw_name);
+ AddExt(as_name);
+ AddExt(ar_name);
 {$endif}
  EnvPath:=GetEnv('Path');
  if EnvPath='' then
   EnvPath:=GetEnv('PATH');
- asw_name:=FSearch(asw_name,EnvPath);
- arw_name:=FSearch(arw_name,EnvPath);
+ as_name:=FSearch(as_name,EnvPath);
+ ar_name:=FSearch(ar_name,EnvPath);
 if not makedef(binname,GetOption('-o','--output'),GetOption('-l','--library'))then
   begin
    writeln('Export names not found');

compiler/utils/gppc386.pp

@@ -46,11 +46,7 @@ const
   GDBIniName = '.gdbinit';
   DefaultCompilerName = 'ppc386';
 {$else}
-{$ifdef win32}
-  GDBExeName = 'gdbpasw.exe';
-{$else not win32}
   GDBExeName = 'gdbpas.exe';
-{$endif win32}
   GDBIniName = 'gdb.ini';
   DefaultCompilerName = 'ppc386.exe';
 {$endif not linux}
@@ -143,7 +139,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  2002-12-06 17:51:11  peter
+  Revision 1.6  2004-02-22 14:52:59  hajny
+    * compilation fixes + *w tools renamed to *
+
+  Revision 1.5  2002/12/06 17:51:11  peter
     * merged cdecl and array fixes
 
   Revision 1.4  2002/06/02 09:44:17  marco