Warianty rekursywnie używa się?

Question

Próbuję utworzyć wersję debugowania rtl140.bpl, aby ułatwić debugowanie aplikacji z pakietami uruchomieniowymi. Zbudowałem DPK i uruchomiłem na nim DCC32, i dostaje się do środka, a potem umiera.

C: Program Files \ (x86) \ Embarcadero \ RAD Studio \ 7.0 \ source \ Win32 \ RTL \ sys \ Variants.pas (1072) Fatal: Program F2092 lub jednostka 'Warianty' rekurencyjnie wykorzystuje sobie

Ale patrząc na Variants.pas, nie widzę jak. Używa tylko SysUtils i typów w sekcji interface i żadne z nich nie używa Wariantów ani nie używa niczego, co używa Wariantów.

Czy ktoś ma pojęcie, dlaczego to się załamuje?

Answer 1

Jest to jeden z głównych powodów, dla których my (zespół RAD Studio) nie zalecamy przebudowy pakietu rtl core. Należy to zrobić bardzo ostrożnie, a jednostki muszą być wymienione w sekcji zawierającej w określonej kolejności.

Warianty to element "bękarta". Kompilator ma szczegółową wiedzę o tym, że gdy widzi użycie typu Wariant, automatycznie doda Warianty do listy zastosowań w celu zapewnienia aktualnej obsługi RTL dla typu Wariant. System.pas odrzuca większość wszystkich wariantów operacji do jednostki Wariantów, ale ponieważ System nie może używać żadnych innych jednostek innych niż SysInit (która jest również bardzo specjalną jednostką), kompilator musi się zaangażować.

W tej chwili nie mam żadnych konkretnych sugestii, aby to działało, poza próbą zmiany kolejności listy zawierającej zawartość .dpk i ponownej próby. Poniżej znajduje się lista zawiera od rtl.dpk że użyte do budowy tego pakietu:

Variants in 'sys\Variants.pas', 
VarUtils in 'sys\VarUtils.pas', 
SysConst in 'sys\SysConst.pas', 
SysUtils in 'sys\SysUtils.pas', 
SyncObjs in 'common\SyncObjs.pas', 
Types in 'sys\Types.pas', 
VCLCom in 'common\VCLCom.pas', 
ComConst in 'common\ComConst.pas', 
ComObj in 'common\ComObj.pas', 
ComObjWrapper in 'common\ComObjWrapper.pas', 
RTLConsts in 'common\RTLConsts.pas', 
Contnrs in 'common\Contnrs.pas', 
ConvUtils in 'common\ConvUtils.pas', 
DateUtils in 'common\DateUtils.pas', 
IniFiles in 'common\IniFiles.pas', 
Masks in 'common\Masks.pas', 
Math in 'common\Math.pas', 
Registry in 'common\Registry.pas', 
StdConvs in 'common\StdConvs.pas', 
StdVCL in 'common\StdVCL.pas', 
StrUtils in 'common\StrUtils.pas', 
TypInfo in 'common\TypInfo.pas', 
VarConv in 'common\VarConv.pas', 
VarCmplx in 'common\VarCmplx.pas', 
Classes in 'common\Classes.pas', 
MaskUtils in 'common\MaskUtils.pas', 
HelpIntfs in 'common\HelpIntfs.pas', 
ScktComp in 'common\ScktComp.pas', 
AccCtrl in 'win\AccCtrl.pas', 
AclAPI in 'win\AclAPI.pas', 
ActiveX in 'win\ActiveX.pas', 
ComSvcs in 'win\ComSvcs.pas', 
ADOInt in 'win\ADOInt.pas', 
AspTlb in 'win\AspTlb.pas', 
COMAdmin in 'win\COMAdmin.pas', 
CommCtrl in 'win\CommCtrl.pas', 
CommDlg in 'win\CommDlg.pas', 
Cpl in 'win\Cpl.pas', 
DDEml in 'win\DDEml.pas', 
Dlgs in 'win\Dlgs.pas', 
DwmApi in 'win\DwmApi.pas', 
FlatSB in 'win\FlatSB.pas', 
ImageHlp in 'win\ImageHlp.pas', 
Imm in 'win\Imm.pas', 
Isapi in 'win\Isapi.pas', 
Isapi2 in 'win\Isapi2.pas', 
LZExpand in 'win\LZExpand.pas', 
Mapi in 'win\Mapi.pas', 
Messages in 'win\Messages.pas', 
MMSystem in 'win\MMSystem.pas', 
msxml in 'win\msxml.pas', 
Mtx in 'win\Mtx.pas', 
MultiMon in 'win\MultiMon.pas', 
Nb30 in 'win\Nb30.pas', 
Ns30Fix in 'win\Ns30Fix.pas', 
Ns35Fix in 'win\Ns35Fix.pas', 
Ns36Fix in 'win\Ns36Fix.pas', 
Nsapi in 'win\Nsapi.pas', 
ObjComAuto in 'common\ObjComAuto.pas', 
ObjAuto in 'common\ObjAuto.pas', 
OleDB in 'win\OleDB.pas', 
OleDlg in 'win\OleDlg.pas', 
OpenGL in 'win\OpenGL.pas', 
oleacc in 'win\oleacc.pas', 
Penwin in 'win\Penwin.pas', 
PsAPI in 'win\PsAPI.pas', 
RegStr in 'win\RegStr.pas', 
RichEdit in 'win\RichEdit.pas', 
ShellAPI in 'win\ShellAPI.pas', 
SHFolder in 'win\SHFolder.pas', 
ShlObj in 'win\ShlObj.pas', 
ShLwApi in 'win\ShLwApi.pas', 
StrHlpr in 'sys\StrHlpr.pas', 
TlHelp32 in 'win\TlHelp32.pas', 
UrlMon in 'win\UrlMon.pas', 
UxTheme in 'win\UxTheme.pas', 
VarHlpr in 'sys\VarHlpr.pas', 
WideStrings in 'common\WideStrings.pas', 
WideStrUtils in 'common\WideStrUtils.pas', 
windows in 'win\windows.pas', 
winInet in 'win\winInet.pas', 
Winsafer in 'win\Winsafer.pas', 
WinSock in 'win\WinSock.pas', 
winSpool in 'win\winSpool.pas', 
winSvc in 'win\winSvc.pas', 
CorError in 'win\CorError.pas', 
CorHdr in 'win\CorHdr.pas', 
Cor in 'win\Cor.pas', 
DXTypes in 'win\DXTypes.pas', 
DXFile in 'win\DXFile.pas', 
DxDiag in 'win\DxDiag.pas', 
D3DX8 in 'win\D3DX8.pas', 
D3DX9 in 'win\D3DX9.pas', 
Direct3D in 'win\Direct3D.pas', 
Direct3D8 in 'win\Direct3D8.pas', 
DX7toDX8 in 'win\DX7toDX8.pas', 
Direct3D9 in 'win\Direct3D9.pas', 
DirectDraw in 'win\DirectDraw.pas', 
DirectShow9 in 'win\DirectShow9.pas', 
DirectInput in 'win\DirectInput.pas', 
DirectSound in 'win\DirectSound.pas', 
DirectPlay8 in 'win\DirectPlay8.pas', 
DirectMusic in 'win\DirectMusic.pas', 
WMF9 in 'win\WMF9.pas', 
ZLibConst in 'common\ZLibConst.pas', 
ZLib in 'common\ZLib.pas', 
Character in 'common\Character.pas', 
Generics.Defaults in 'common\Generics.Defaults.pas', 
Generics.Collections in 'common\Generics.Collections.pas', 
Rtti in 'common\Rtti.pas', 
TimeSpan in 'common\TimeSpan.pas', 
Diagnostics in 'common\Diagnostics.pas', 
AnsiStrings in 'common\AnsiStrings.pas', 
TpcShrd in 'win\TpcShrd.pas', 
RtsCom in 'win\RtsCom.pas', 
MsInkAut in 'win\MsInkAut.pas', 
MsInkAut15 in 'win\MsInkAut15.pas', 
Manipulations in 'win\Manipulations.pas', 
IOUtils in 'common\IOUtils.pas', 
D2D1 in 'win\D2D1.pas', 
DxgiFormat in 'win\DxgiFormat.pas', 
Wincodec in 'win\Wincodec.pas', 
KnownFolders in 'win\KnownFolders.pas', 
ObjectArray in 'win\ObjectArray.pas', 
PropSys in 'win\PropSys.pas', 
PropKey in 'win\PropKey.pas', 
StructuredQuery in 'win\StructuredQuery.pas', 
StructuredQueryCondition in 'win\StructuredQueryCondition.pas'; 

Answer 2

Programu lub jednostkę „Warianty” rekurencyjnie wykorzystuje się

jest często spowodowane przez posiadające ścieżkę do źródła/win32/rtl/sys w ścieżce wyszukiwania biblioteki projektu, który próbujesz zbudować.

Answer 3

Przejdź (Delpi_Path) \ source \ Win32 \ rtl \ sys, a następnie zmień nazwę pliku "Variants.pas" na dowolne, np. "Variants.sav", wtedy wszystkie są w porządku.

To dlatego, że Delphi nie może teraz znaleźć "Variants.pas", ale nadal może znaleźć gdzieś skompilowany plik dcu o nazwie "Variants.dcu", więc to wszystko.

P.S. Jeśli Delphi również nie znajdzie dcu, powinieneś ręcznie wyszukać "Variants.dcu", a następnie dodać ścieżkę w menu "Narzędzia -> Opcje".