paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* move tendian to objpas, alias in sysutils, types. mantis

Browse Source 
git-svn-id: trunk@35202 -
This commit is contained in:
marco 2016-12-27 14:30:13 +00:00
parent 8760ff96e1
commit b33da605f3
3 changed files with 6 additions and 5 deletions

3
rtl/objpas/objpas.pp
View File

@ -87,6 +87,9 @@ interface
end;
{$endif}
{$SCOPEDENUMS ON}
TEndian = (Little,Big);
{$SCOPEDENUMS OFF}
{$ifdef FPC_HAS_FEATURE_CLASSES}
Var

6
rtl/objpas/sysutils/syshelph.inc
View File

@ -4,10 +4,8 @@ Type
generic TArray<T> = array of T;
TStringArray = Array of string;
TCharArray = Array of char;
{$SCOPEDENUMS ON}
TEndian = (Little,Big);
{$SCOPEDENUMS OFF}
TEndian = ObjPas.TEndian;
Const
CPUEndian = {$IFDEF FPC_LITTLE_ENDIAN}TEndian.Little{$ELSE}TEndian.Big{$ENDIF};

2
rtl/objpas/types.pp
View File

@ -28,7 +28,7 @@ const
{$endif mswindows}
type
TEndian = (Big,Little);
TEndian = Objpas.TEndian;
TDirection = (FromBeginning, FromEnd);
TValueRelationship = -1..1;