paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:50:20 +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 not is_objc_class_or_protocol(tfieldvarsym(sym).vardef) then
begin 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_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); inc(fieldcnt);
end; end;
end; end;

2
rtl/inc/rtti.inc
View File

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

15
rtl/objpas/typinfo.pp
View File

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