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

compier, rtl: revert 24424 since it fails on some platforms

Browse Source 
git-svn-id: trunk@24425 -
This commit is contained in:
paul 2013-05-04 16:16:30 +00:00
parent e23534eec4
commit d18f273f67
3 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgrtti.pas
View File

@ -175,7 +175,7 @@ implementation
not is_objc_class_or_protocol(tfieldvarsym(sym).vardef) then
begin
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(tfieldvarsym(sym).vardef,rt)));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_pint(tfieldvarsym(sym).fieldoffset));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_32bit(tfieldvarsym(sym).fieldoffset));
inc(fieldcnt);
end;
end;

2
rtl/inc/rtti.inc
View File

@ -20,7 +20,7 @@ type
PRecordElement=^TRecordElement;
TRecordElement=packed record
TypeInfo: Pointer;
Offset: PtrInt;
Offset: Longint;
end;
PRecordInfo=^TRecordInfo;

15
rtl/objpas/typinfo.pp
View File

@ -152,12 +152,6 @@ unit typinfo;
UnitName : ShortString
// here the properties follow as array of TPropInfo
);
tkRecord:
(
RecSize: Integer;
ManagedFldCount: Integer;
{ManagedFields: array[1..ManagedFldCount] of TManagedField}
);
tkHelper:
(HelperParent : PTypeInfo;
ExtendedInfo : PTypeInfo;
@ -219,14 +213,6 @@ unit typinfo;
end;
// unsed, just for completeness
TManagedField =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
TypeRef: PTypeInfo;
FldOffset: PtrInt;
end;
TPropData =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
@ -263,7 +249,6 @@ unit typinfo;
TPropList = array[0..65535] of PPropInfo;
const
tkProcedure = tkProcVar; // for compatibility with Delphi
tkAny = [Low(TTypeKind)..High(TTypeKind)];
tkMethods = [tkMethod];
tkProperties = tkAny-tkMethods-[tkUnknown];