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

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/objpas.pp
View File

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

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

@ -4,10 +4,8 @@ Type
generic TArray<T> = array of T; generic TArray<T> = array of T;
TStringArray = Array of string; TStringArray = Array of string;
TCharArray = Array of char; TCharArray = Array of char;
{$SCOPEDENUMS ON} TEndian = ObjPas.TEndian;
TEndian = (Little,Big);
{$SCOPEDENUMS OFF}
Const Const
CPUEndian = {$IFDEF FPC_LITTLE_ENDIAN}TEndian.Little{$ELSE}TEndian.Big{$ENDIF}; 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} {$endif mswindows}
type type
TEndian = (Big,Little); TEndian = Objpas.TEndian;
TDirection = (FromBeginning, FromEnd); TDirection = (FromBeginning, FromEnd);
TValueRelationship = -1..1; TValueRelationship = -1..1;