paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 12:01:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* properties properly set

Browse Source 
git-svn-id: trunk@11475 -
This commit is contained in:
florian 2008-07-28 15:56:23 +00:00
parent 66e015f48c
commit daedb7d82e
2 changed files with 118 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.gitattributes vendored
View File

@ -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_linux.pas svneol=native#text/plain
compiler/systems/i_macos.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_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_nwl.pas svneol=native#text/plain
compiler/systems/i_nwm.pas svneol=native#text/plain compiler/systems/i_nwm.pas svneol=native#text/plain
compiler/systems/i_os2.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_linux.pas svneol=native#text/plain
compiler/systems/t_macos.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_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_nwl.pas svneol=native#text/plain
compiler/systems/t_nwm.pas svneol=native#text/plain compiler/systems/t_nwm.pas svneol=native#text/plain
compiler/systems/t_os2.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/tokens.pas svneol=native#text/plain
compiler/utils/Makefile svneol=native#text/plain compiler/utils/Makefile svneol=native#text/plain
compiler/utils/Makefile.fpc svneol=native#text/plain compiler/utils/Makefile.fpc svneol=native#text/plain
compiler/utils/README -text compiler/utils/README svneol=native#text/plain
compiler/utils/dummyas.pp -text compiler/utils/dummyas.pp svneol=native#text/plain
compiler/utils/fixlog.pp svneol=native#text/plain compiler/utils/fixlog.pp svneol=native#text/plain
compiler/utils/fixmsg.pp svneol=native#text/plain compiler/utils/fixmsg.pp svneol=native#text/plain
compiler/utils/fixnasm.pp svneol=native#text/plain compiler/utils/fixnasm.pp svneol=native#text/plain
compiler/utils/fixtab.pp svneol=native#text/plain compiler/utils/fixtab.pp svneol=native#text/plain
compiler/utils/fpc.cft 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/fpc.pp svneol=native#text/plain
compiler/utils/fpccfg.inc svneol=native#text/plain compiler/utils/fpccfg.inc svneol=native#text/plain
compiler/utils/fpcfg.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/mkx86reg.pp svneol=native#text/plain
compiler/utils/msg2inc.pp svneol=native#text/plain compiler/utils/msg2inc.pp svneol=native#text/plain
compiler/utils/msgdif.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/ppudump.pp svneol=native#text/plain
compiler/utils/ppufiles.pp svneol=native#text/plain compiler/utils/ppufiles.pp svneol=native#text/plain
compiler/utils/ppumove.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/utils/usubst.pp svneol=native#text/plain
compiler/verbose.pas svneol=native#text/plain compiler/verbose.pas svneol=native#text/plain
compiler/version.pas svneol=native#text/plain compiler/version.pas svneol=native#text/plain

222
compiler/utils/dummyas.pp
View File

@ -1,111 +1,111 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2007 by Pierre Muller Copyright (c) 2007 by Pierre Muller
member of the Free Pascal development team. member of the Free Pascal development team.
Dummy assembler program to be able to easily test Dummy assembler program to be able to easily test
all FPC targets even without cross tools. all FPC targets even without cross tools.
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
program dummyas; program dummyas;
var var
assembler_name : string; assembler_name : string;
object_name : string; object_name : string;
ofile : text; ofile : text;
function RemoveSuffix(const st : string) : string; function RemoveSuffix(const st : string) : string;
var var
i,last : longint; i,last : longint;
begin begin
last:=length(st); last:=length(st);
for i:=length(st) downto 1 do for i:=length(st) downto 1 do
begin begin
if st[i]='.' then if st[i]='.' then
begin begin
last:=i-1; last:=i-1;
break; break;
end; end;
end; end;
RemoveSuffix:=Copy(st,1,last); RemoveSuffix:=Copy(st,1,last);
end; end;
var var
i : longint; i : longint;
param : string; param : string;
skipnext : boolean; skipnext : boolean;
begin begin
object_name:=''; object_name:='';
skipnext:=false; skipnext:=false;
for i:=1 to ParamCount do for i:=1 to ParamCount do
begin begin
param:=Paramstr(i); param:=Paramstr(i);
if skipnext or (length(Param)=0) then if skipnext or (length(Param)=0) then
begin begin
skipnext:=false; skipnext:=false;
continue; continue;
end; end;
if Param='-o' then if Param='-o' then
begin begin
skipnext:=true; skipnext:=true;
object_name:=ParamStr(i+1); object_name:=ParamStr(i+1);
end end
else if (Param[1]='-') then else if (Param[1]='-') then
begin begin
{ option Param not handled } { option Param not handled }
{ Shouldn't be a real problem } { Shouldn't be a real problem }
end end
else else
begin begin
if assembler_name='' then if assembler_name='' then
assembler_name:=ParamStr(i) assembler_name:=ParamStr(i)
else else
begin begin
Writeln(stderr,'two non option param found!'); Writeln(stderr,'two non option param found!');
Writeln(stderr,'first non option param =',assembler_name); Writeln(stderr,'first non option param =',assembler_name);
Writeln(stderr,'second non option param =',Param); Writeln(stderr,'second non option param =',Param);
Writeln(stderr,'Don''t know how to handle this!'); Writeln(stderr,'Don''t know how to handle this!');
halt(1); halt(1);
end; end;
end; end;
end; end;
if assembler_name='' then if assembler_name='' then
begin begin
Writeln(stderr,'Dummyas, no source file specified'); Writeln(stderr,'Dummyas, no source file specified');
halt(1); halt(1);
end; end;
Assign(ofile,assembler_name); Assign(ofile,assembler_name);
{$I-} {$I-}
Reset(ofile); Reset(ofile);
if IOResult<>0 then if IOResult<>0 then
begin begin
Writeln(stderr,'Dummyas, source file not found ',assembler_name); Writeln(stderr,'Dummyas, source file not found ',assembler_name);
halt(1); halt(1);
end; end;
Close(ofile); Close(ofile);
if object_name='' then if object_name='' then
object_name:=RemoveSuffix(assembler_name)+'.o'; object_name:=RemoveSuffix(assembler_name)+'.o';
Assign(ofile,object_name); Assign(ofile,object_name);
Rewrite(ofile); Rewrite(ofile);
if IOResult<>0 then if IOResult<>0 then
begin begin
Writeln(stderr,'Dummyas, object file not writable ',object_name); Writeln(stderr,'Dummyas, object file not writable ',object_name);
halt(1); halt(1);
end; end;
Writeln(ofile,'Dummy as called'); Writeln(ofile,'Dummy as called');
for i:=0 to Paramcount do for i:=0 to Paramcount do
Write(ofile,ParamStr(i),' '); Write(ofile,ParamStr(i),' ');
Writeln(ofile); Writeln(ofile);
Writeln(ofile,'assembler file=',assembler_name); Writeln(ofile,'assembler file=',assembler_name);
Writeln(ofile,'object file=',object_name); Writeln(ofile,'object file=',object_name);
Close(ofile); Close(ofile);
end. end.