paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +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}
ppheap,
{$endif heaptrc}
{$ifdef linux}
{$ifdef Unix}
catch,
{$endif}
{$ifdef go32v2}
@ -158,7 +158,10 @@ begin
end.
{
$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
Revision 1.1 2000/07/13 06:29:54 michael

17
compiler/script.pas
View File

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

7
compiler/tpexcept.pas
View File

@ -26,7 +26,7 @@ unit tpexcept;
interface
{$ifndef LINUX}
{$ifndef UNIX}
{$S-}
{$endif}
@ -243,7 +243,10 @@ implementation
end.
{
$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
Revision 1.3 2000/09/24 15:06:32 peter