diff --git a/compiler/utils/ppumove.pp b/compiler/utils/ppumove.pp index e4f6b0a1a2..b1bb69b57a 100644 --- a/compiler/utils/ppumove.pp +++ b/compiler/utils/ppumove.pp @@ -39,15 +39,15 @@ uses {$else unix} dos, {$endif unix} - ppu, + cutils,ppu,systems, getopts; const - Version = 'Version 2.0.2'; + Version = 'Version 2.1.1'; Title = 'PPU-Mover'; - Copyright = 'Copyright (c) 1998-2006 by the Free Pascal Development Team'; + Copyright = 'Copyright (c) 1998-2007 by the Free Pascal Development Team'; - ShortOpts = 'o:e:d:i:qhsvbw'; + ShortOpts = 'o:e:d:i:qhsvb'; BufSize = 4096; PPUExt = 'ppu'; ObjExt = 'o'; @@ -247,6 +247,7 @@ Var f : file; ext, s : string; + ppuversion : dword; begin DoPPU:=false; If Not Quiet then @@ -265,10 +266,11 @@ begin Error('Error: Not a PPU File : '+PPUFn,false); Exit; end; - if inppu.GetPPUVersion'arw' then - begin - Writeln('Warning: shared library not supported for Go32, switching to static library'); - MakeStatic:=true; - end; -{$endif} { fix the libext and outputfilename } if Makestatic then LibExt:=StaticLibExt