paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 01:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* target test fixed, resolves #6580

Browse Source 
git-svn-id: trunk@5888 -
This commit is contained in:
florian 2007-01-11 15:09:39 +00:00
parent 901cc71411
commit 93c86bbaf2
1 changed files with 15 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/utils/ppumove.pp
View File

@ -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<CurrentPPUVersion then
ppuversion:=inppu.GetPPUVersion;
if ppuversion<CurrentPPUVersion then
begin
inppu.free;
Error('Error: Wrong PPU Version : '+PPUFn,false);
Error('Error: Wrong PPU Version '+tostr(ppuversion)+' in '+PPUFn,false);
Exit;
end;
{ No .o file generated for this ppu, just skip }
@ -294,6 +296,12 @@ begin
Error('Error: PPU is not static linked : '+PPUFn,false);
Exit;
end;
{ Check if shared is allowed }
if tsystem(inppu.header.target) in [system_i386_go32v2] then
begin
Writeln('Warning: shared library not supported for ppu target, switching to static library');
MakeStatic:=true;
end;
{ Create the new ppu }
if PPUFn=PPLFn then
outppu:=tppufile.create('ppumove.$$$')
@ -521,7 +529,7 @@ Procedure usage;
Print usage and exit.
}
begin
Writeln(paramstr(0),': [-qhwvbsS] [-e ext] [-o name] [-d path] file [file ...]');
Writeln(paramstr(0),': [-qhvbsS] [-e ext] [-o name] [-d path] file [file ...]');
Halt(0);
end;
@ -560,10 +568,6 @@ begin
end;
'e' : PPLext:=OptArg;
'q' : Quiet:=True;
'w' : begin
ArBin:='arw';
LdBin:='ldw';
end;
'b' : Batch:=true;
's' : DoStrip:=true;
'?' : Usage;
@ -594,14 +598,6 @@ begin
Writeln(Copyright);
Writeln;
end;
{ Check if shared is allowed }
{$ifndef unix}
if arbin<>'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