paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the FPC 2.6.x compatibility ifdefs from tinterfaceentry

Browse Source 
git-svn-id: trunk@34637 -
This commit is contained in:
nickysn 2016-10-06 21:10:40 +00:00
parent 8571e9f82a
commit 019f904be8
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/objpash.inc
View File

@ -178,17 +178,7 @@
VTable : Pointer; VTable : Pointer;
IOffset : sizeuint; IOffset : sizeuint;
IIDStrRef : {$IFNDEF VER3_0}^{$ENDIF}pshortstring; { never nil. Com: upper(GuidToString(IID^)) } IIDStrRef : {$IFNDEF VER3_0}^{$ENDIF}pshortstring; { never nil. Com: upper(GuidToString(IID^)) }
{$ifdef VER2_6}
case boolean of
{$ifdef ENDIAN_BIG}
true : ({$IFDEF CPU64}__pad: longint;{$ENDIF}IType : tinterfaceentrytype);
{$else ENDIAN_BIG}
true : (IType : tinterfaceentrytype);
{$endif ENDIAN_BIG}
false : (__pad_dummy : sizeint);
{$else VER2_6}
IType : tinterfaceentrytype; IType : tinterfaceentrytype;
{$endif VER2_6}
end; end;
tinterfacetable = record tinterfacetable = record