paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 12:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Renamefest

Browse Source
This commit is contained in:
marco 2000-11-13 15:43:07 +00:00
parent b65958a61e
commit 5a2b1ed57b
3 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ppc.dpr
View File

@ -96,7 +96,7 @@ uses
{$ifdef heaptrc} {$ifdef heaptrc}
ppheap, ppheap,
{$endif heaptrc} {$endif heaptrc}
{$ifdef linux} {$ifdef Unix}
catch, catch,
{$endif} {$endif}
{$ifdef go32v2} {$ifdef go32v2}
@ -158,7 +158,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-09-24 15:06:24 peter Revision 1.3 2000-11-13 15:43:07 marco
* Renamefest
Revision 1.2 2000/09/24 15:06:24 peter
* use defines.inc * use defines.inc
Revision 1.1 2000/07/13 06:29:54 michael Revision 1.1 2000/07/13 06:29:54 michael

17
compiler/script.pas
View File

@ -67,7 +67,7 @@ var
implementation implementation
uses uses
{$ifdef linux} {$ifdef Unix}
linux, linux,
{$endif} {$endif}
globals,systems; globals,systems;
@ -126,7 +126,7 @@ begin
while not data.Empty do while not data.Empty do
Writeln(t,data.Get); Writeln(t,data.Get);
Close(t); Close(t);
{$ifdef linux} {$ifdef Unix}
if executable then if executable then
ChMod(fn,493); ChMod(fn,493);
{$endif} {$endif}
@ -145,7 +145,7 @@ end;
Procedure TAsmScript.AddAsmCommand (Const Command, Options,FileName : String); Procedure TAsmScript.AddAsmCommand (Const Command, Options,FileName : String);
begin begin
{$ifdef linux} {$ifdef Unix}
if FileName<>'' then if FileName<>'' then
Add('echo Assembling '+FileName); Add('echo Assembling '+FileName);
Add (Command+' '+Options); Add (Command+' '+Options);
@ -164,7 +164,7 @@ end;
Procedure TasmScript.AddLinkCommand (Const Command, Options, FileName : String); Procedure TasmScript.AddLinkCommand (Const Command, Options, FileName : String);
begin begin
{$ifdef linux} {$ifdef Unix}
if FileName<>'' then if FileName<>'' then
Add('echo Linking '+FileName); Add('echo Linking '+FileName);
Add (Command+' '+Options); Add (Command+' '+Options);
@ -183,7 +183,7 @@ end;
Procedure TAsmScript.AddDeleteCommand (Const FileName : String); Procedure TAsmScript.AddDeleteCommand (Const FileName : String);
begin begin
{$ifdef linux} {$ifdef Unix}
Add('rm '+FileName); Add('rm '+FileName);
{$else} {$else}
Add('Del '+FileName); Add('Del '+FileName);
@ -193,7 +193,7 @@ end;
Procedure TAsmScript.WriteToDisk; Procedure TAsmScript.WriteToDisk;
Begin Begin
{$ifdef linux} {$ifdef Unix}
AddStart('{ echo "An error occurred while linking $1"; exit 1; }'); AddStart('{ echo "An error occurred while linking $1"; exit 1; }');
AddStart('DoExitLink ()'); AddStart('DoExitLink ()');
AddStart('{ echo "An error occurred while assembling $1"; exit 1; }'); AddStart('{ echo "An error occurred while assembling $1"; exit 1; }');
@ -237,7 +237,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.3 2000-09-24 15:06:28 peter Revision 1.4 2000-11-13 15:43:07 marco
* Renamefest
Revision 1.3 2000/09/24 15:06:28 peter
* use defines.inc * use defines.inc
Revision 1.2 2000/07/13 11:32:49 michael Revision 1.2 2000/07/13 11:32:49 michael

7
compiler/tpexcept.pas
View File

@ -26,7 +26,7 @@ unit tpexcept;
interface interface
{$ifndef LINUX} {$ifndef UNIX}
{$S-} {$S-}
{$endif} {$endif}
@ -243,7 +243,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 2000-09-24 21:19:53 peter Revision 1.5 2000-11-13 15:43:07 marco
* Renamefest
Revision 1.4 2000/09/24 21:19:53 peter
* delphi compile fixes * delphi compile fixes
Revision 1.3 2000/09/24 15:06:32 peter Revision 1.3 2000/09/24 15:06:32 peter