mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-24 11:09:15 +02:00
* more Renamefest
This commit is contained in:
parent
b70dab6700
commit
9fb1b5377c
rtl
@ -22,7 +22,7 @@ interface
|
||||
|
||||
{ This is very important as this code can be called
|
||||
from inside the RTE 202 error PM }
|
||||
{$ifndef linux}
|
||||
{$ifndef Unix}
|
||||
{$S-}
|
||||
{$endif}
|
||||
|
||||
@ -352,7 +352,7 @@ end;
|
||||
{$ENDIF EMX}
|
||||
|
||||
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
function LoadElf32:boolean;
|
||||
type
|
||||
telf32header=packed record
|
||||
@ -443,7 +443,7 @@ begin
|
||||
end;
|
||||
LoadElf32:=(stabofs<>-1) and (stabstrofs<>-1);
|
||||
end;
|
||||
{$endif linux}
|
||||
{$endif}
|
||||
|
||||
{$ifdef sunos}
|
||||
function LoadElf32:boolean;
|
||||
@ -689,7 +689,7 @@ begin
|
||||
exit;
|
||||
end;
|
||||
{$endif}
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
if LoadElf32 then
|
||||
begin
|
||||
OpenStabs:=true;
|
||||
@ -879,7 +879,10 @@ finalization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2001-12-13 03:50:00 carl
|
||||
Revision 1.9 2002-05-31 13:37:24 marco
|
||||
* more Renamefest
|
||||
|
||||
Revision 1.8 2001/12/13 03:50:00 carl
|
||||
+ SunOS target
|
||||
|
||||
Revision 1.1 2000/07/13 06:30:47 michael
|
||||
|
@ -958,7 +958,7 @@ Begin
|
||||
'-','=' : PushExt(FAltKey(ch));
|
||||
#10 : PushKey(#10);
|
||||
'[' : State:=2;
|
||||
{$IFDEF LINUX}
|
||||
{$IFDEF Unix}
|
||||
'O': State:=7;
|
||||
{$ENDIF}
|
||||
else
|
||||
@ -1091,7 +1091,7 @@ Begin
|
||||
if (Ch<>'~') then
|
||||
State:=255;
|
||||
end;
|
||||
{$ifdef LINUX}
|
||||
{$ifdef Unix}
|
||||
7 : begin {Esc[O}
|
||||
case ch of
|
||||
'A' : PushExt(72);
|
||||
@ -1682,7 +1682,10 @@ Finalization
|
||||
End.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2001-12-26 21:03:57 peter
|
||||
Revision 1.9 2002-05-31 13:37:24 marco
|
||||
* more Renamefest
|
||||
|
||||
Revision 1.8 2001/12/26 21:03:57 peter
|
||||
* merged fixes from 1.0.x
|
||||
|
||||
Revision 1.7 2001/07/30 21:53:53 peter
|
||||
|
@ -572,14 +572,14 @@ begin
|
||||
dir:=thedir
|
||||
end;
|
||||
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
{*****************************************************************************
|
||||
Thread Handling
|
||||
*****************************************************************************}
|
||||
|
||||
{ include threading stuff, this is os independend part }
|
||||
{$I thread.inc}
|
||||
{$endif linux}
|
||||
{$endif Unix}
|
||||
|
||||
{*****************************************************************************
|
||||
SystemUnit Initialization
|
||||
@ -767,7 +767,10 @@ End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.21 2002-04-21 15:55:00 carl
|
||||
Revision 1.22 2002-05-31 13:37:24 marco
|
||||
* more Renamefest
|
||||
|
||||
Revision 1.21 2002/04/21 15:55:00 carl
|
||||
+ initialize some global variables
|
||||
|
||||
Revision 1.20 2002/04/12 17:43:28 carl
|
||||
|
Loading…
Reference in New Issue
Block a user