mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 22:29:24 +02:00
* properties properly set
git-svn-id: trunk@11475 -
This commit is contained in:
florian
parent
66e015f48c
commit
daedb7d82e
14
.gitattributes
vendored
14
.gitattributes
vendored
@ -492,7 +492,7 @@ compiler/systems/i_haiku.pas svneol=native#text/plain
|
||||
compiler/systems/i_linux.pas svneol=native#text/plain
|
||||
compiler/systems/i_macos.pas svneol=native#text/plain
|
||||
compiler/systems/i_morph.pas svneol=native#text/plain
|
||||
compiler/systems/i_nds.pas -text
|
||||
compiler/systems/i_nds.pas svneol=native#text/plain
|
||||
compiler/systems/i_nwl.pas svneol=native#text/plain
|
||||
compiler/systems/i_nwm.pas svneol=native#text/plain
|
||||
compiler/systems/i_os2.pas svneol=native#text/plain
|
||||
@ -515,7 +515,7 @@ compiler/systems/t_haiku.pas svneol=native#text/plain
|
||||
compiler/systems/t_linux.pas svneol=native#text/plain
|
||||
compiler/systems/t_macos.pas svneol=native#text/plain
|
||||
compiler/systems/t_morph.pas svneol=native#text/plain
|
||||
compiler/systems/t_nds.pas svneol=native#text/x-pascal
|
||||
compiler/systems/t_nds.pas svneol=native#text/plain
|
||||
compiler/systems/t_nwl.pas svneol=native#text/plain
|
||||
compiler/systems/t_nwm.pas svneol=native#text/plain
|
||||
compiler/systems/t_os2.pas svneol=native#text/plain
|
||||
@ -529,14 +529,14 @@ compiler/tgobj.pas svneol=native#text/plain
|
||||
compiler/tokens.pas svneol=native#text/plain
|
||||
compiler/utils/Makefile svneol=native#text/plain
|
||||
compiler/utils/Makefile.fpc svneol=native#text/plain
|
||||
compiler/utils/README -text
|
||||
compiler/utils/dummyas.pp -text
|
||||
compiler/utils/README svneol=native#text/plain
|
||||
compiler/utils/dummyas.pp svneol=native#text/plain
|
||||
compiler/utils/fixlog.pp svneol=native#text/plain
|
||||
compiler/utils/fixmsg.pp svneol=native#text/plain
|
||||
compiler/utils/fixnasm.pp svneol=native#text/plain
|
||||
compiler/utils/fixtab.pp svneol=native#text/plain
|
||||
compiler/utils/fpc.cft svneol=native#text/plain
|
||||
compiler/utils/fpc.mpw -text
|
||||
compiler/utils/fpc.mpw svneol=native#text/plain
|
||||
compiler/utils/fpc.pp svneol=native#text/plain
|
||||
compiler/utils/fpccfg.inc svneol=native#text/plain
|
||||
compiler/utils/fpcfg.inc svneol=native#text/plain
|
||||
@ -559,11 +559,11 @@ compiler/utils/mkx86ins.pp svneol=native#text/plain
|
||||
compiler/utils/mkx86reg.pp svneol=native#text/plain
|
||||
compiler/utils/msg2inc.pp svneol=native#text/plain
|
||||
compiler/utils/msgdif.pp svneol=native#text/plain
|
||||
compiler/utils/msgused.pl -text
|
||||
compiler/utils/msgused.pl svneol=native#text/plain
|
||||
compiler/utils/ppudump.pp svneol=native#text/plain
|
||||
compiler/utils/ppufiles.pp svneol=native#text/plain
|
||||
compiler/utils/ppumove.pp svneol=native#text/plain
|
||||
compiler/utils/samplecfg -text
|
||||
compiler/utils/samplecfg svneol=native#text/plain
|
||||
compiler/utils/usubst.pp svneol=native#text/plain
|
||||
compiler/verbose.pas svneol=native#text/plain
|
||||
compiler/version.pas svneol=native#text/plain
|
||||
|
||||
@ -1,111 +1,111 @@
|
||||
{
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 2007 by Pierre Muller
|
||||
member of the Free Pascal development team.
|
||||
|
||||
Dummy assembler program to be able to easily test
|
||||
all FPC targets even without cross tools.
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
program dummyas;
|
||||
|
||||
var
|
||||
assembler_name : string;
|
||||
object_name : string;
|
||||
ofile : text;
|
||||
|
||||
function RemoveSuffix(const st : string) : string;
|
||||
var
|
||||
i,last : longint;
|
||||
begin
|
||||
last:=length(st);
|
||||
for i:=length(st) downto 1 do
|
||||
begin
|
||||
if st[i]='.' then
|
||||
begin
|
||||
last:=i-1;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
RemoveSuffix:=Copy(st,1,last);
|
||||
end;
|
||||
|
||||
var
|
||||
i : longint;
|
||||
param : string;
|
||||
skipnext : boolean;
|
||||
begin
|
||||
object_name:='';
|
||||
skipnext:=false;
|
||||
for i:=1 to ParamCount do
|
||||
begin
|
||||
param:=Paramstr(i);
|
||||
if skipnext or (length(Param)=0) then
|
||||
begin
|
||||
skipnext:=false;
|
||||
continue;
|
||||
end;
|
||||
if Param='-o' then
|
||||
begin
|
||||
skipnext:=true;
|
||||
object_name:=ParamStr(i+1);
|
||||
end
|
||||
else if (Param[1]='-') then
|
||||
begin
|
||||
{ option Param not handled }
|
||||
{ Shouldn't be a real problem }
|
||||
end
|
||||
else
|
||||
begin
|
||||
if assembler_name='' then
|
||||
assembler_name:=ParamStr(i)
|
||||
else
|
||||
begin
|
||||
Writeln(stderr,'two non option param found!');
|
||||
Writeln(stderr,'first non option param =',assembler_name);
|
||||
Writeln(stderr,'second non option param =',Param);
|
||||
Writeln(stderr,'Don''t know how to handle this!');
|
||||
halt(1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if assembler_name='' then
|
||||
begin
|
||||
Writeln(stderr,'Dummyas, no source file specified');
|
||||
halt(1);
|
||||
end;
|
||||
Assign(ofile,assembler_name);
|
||||
{$I-}
|
||||
Reset(ofile);
|
||||
if IOResult<>0 then
|
||||
begin
|
||||
Writeln(stderr,'Dummyas, source file not found ',assembler_name);
|
||||
halt(1);
|
||||
end;
|
||||
Close(ofile);
|
||||
if object_name='' then
|
||||
object_name:=RemoveSuffix(assembler_name)+'.o';
|
||||
Assign(ofile,object_name);
|
||||
Rewrite(ofile);
|
||||
if IOResult<>0 then
|
||||
begin
|
||||
Writeln(stderr,'Dummyas, object file not writable ',object_name);
|
||||
halt(1);
|
||||
end;
|
||||
Writeln(ofile,'Dummy as called');
|
||||
for i:=0 to Paramcount do
|
||||
Write(ofile,ParamStr(i),' ');
|
||||
Writeln(ofile);
|
||||
Writeln(ofile,'assembler file=',assembler_name);
|
||||
Writeln(ofile,'object file=',object_name);
|
||||
Close(ofile);
|
||||
end.
|
||||
{
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 2007 by Pierre Muller
|
||||
member of the Free Pascal development team.
|
||||
|
||||
Dummy assembler program to be able to easily test
|
||||
all FPC targets even without cross tools.
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
program dummyas;
|
||||
|
||||
var
|
||||
assembler_name : string;
|
||||
object_name : string;
|
||||
ofile : text;
|
||||
|
||||
function RemoveSuffix(const st : string) : string;
|
||||
var
|
||||
i,last : longint;
|
||||
begin
|
||||
last:=length(st);
|
||||
for i:=length(st) downto 1 do
|
||||
begin
|
||||
if st[i]='.' then
|
||||
begin
|
||||
last:=i-1;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
RemoveSuffix:=Copy(st,1,last);
|
||||
end;
|
||||
|
||||
var
|
||||
i : longint;
|
||||
param : string;
|
||||
skipnext : boolean;
|
||||
begin
|
||||
object_name:='';
|
||||
skipnext:=false;
|
||||
for i:=1 to ParamCount do
|
||||
begin
|
||||
param:=Paramstr(i);
|
||||
if skipnext or (length(Param)=0) then
|
||||
begin
|
||||
skipnext:=false;
|
||||
continue;
|
||||
end;
|
||||
if Param='-o' then
|
||||
begin
|
||||
skipnext:=true;
|
||||
object_name:=ParamStr(i+1);
|
||||
end
|
||||
else if (Param[1]='-') then
|
||||
begin
|
||||
{ option Param not handled }
|
||||
{ Shouldn't be a real problem }
|
||||
end
|
||||
else
|
||||
begin
|
||||
if assembler_name='' then
|
||||
assembler_name:=ParamStr(i)
|
||||
else
|
||||
begin
|
||||
Writeln(stderr,'two non option param found!');
|
||||
Writeln(stderr,'first non option param =',assembler_name);
|
||||
Writeln(stderr,'second non option param =',Param);
|
||||
Writeln(stderr,'Don''t know how to handle this!');
|
||||
halt(1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if assembler_name='' then
|
||||
begin
|
||||
Writeln(stderr,'Dummyas, no source file specified');
|
||||
halt(1);
|
||||
end;
|
||||
Assign(ofile,assembler_name);
|
||||
{$I-}
|
||||
Reset(ofile);
|
||||
if IOResult<>0 then
|
||||
begin
|
||||
Writeln(stderr,'Dummyas, source file not found ',assembler_name);
|
||||
halt(1);
|
||||
end;
|
||||
Close(ofile);
|
||||
if object_name='' then
|
||||
object_name:=RemoveSuffix(assembler_name)+'.o';
|
||||
Assign(ofile,object_name);
|
||||
Rewrite(ofile);
|
||||
if IOResult<>0 then
|
||||
begin
|
||||
Writeln(stderr,'Dummyas, object file not writable ',object_name);
|
||||
halt(1);
|
||||
end;
|
||||
Writeln(ofile,'Dummy as called');
|
||||
for i:=0 to Paramcount do
|
||||
Write(ofile,ParamStr(i),' ');
|
||||
Writeln(ofile);
|
||||
Writeln(ofile,'assembler file=',assembler_name);
|
||||
Writeln(ofile,'object file=',object_name);
|
||||
Close(ofile);
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user