Option "Use debug Dcu's" causes compiler error - Delphi

Hi all,

When I check the option "Use debug DCU's" in D7 Ent I get a compiler error saying

"[Fatal error] Variants.pas (1024): Program or unit 'Variants'
recursively uses itself"

The compiler stops at the last line in the source unit Vairants (see code far
below). If I uncomment the code in "procedure VarCopyByRef" then the cursor
stops way down at line 2809 instead.

Why is it doing like this? This means I can't debug using Dcu's (well, you
already guessed that...).

Regards,

// Rolf Lampa



Unit Variants;
....
procedure VarCopyByRef(var Dest: TVarData; const Source: TVarData);
begin
case Source.VType and not varByRef of
varSmallint: Variant(Dest) := PSmallint(Source.VPointer)^;
varInteger: Variant(Dest) := PInteger(Source.VPointer)^;
varSingle: Variant(Dest) := PSingle(Source.VPointer)^;
varDouble: Variant(Dest) := PDouble(Source.VPointer)^;
varCurrency: Variant(Dest) := PCurrency(Source.VPointer)^;
varDate: Variant(Dest) := PDate(Source.VPointer)^;
varOleStr: Variant(Dest) := VarCopyNoIndOleStr(Source);
varBoolean: Variant(Dest) := PWordBool(Source.VPointer)^;
varShortInt: Variant(Dest) := PShortInt(Source.VPointer)^;
varByte: Variant(Dest) := PByte(Source.VPointer)^;
varWord: Variant(Dest) := PWord(Source.VPointer)^;
varLongWord: Variant(Dest) := PLongWord(Source.VPointer)^;
varInt64: Variant(Dest) := PInt64(Source.VPointer)^;

varVariant: _VarCopyNoInd(Dest, PVarData(Source.VPointer)^);

varDispatch,
varUnknown: VarCopyNoIndViaOS(Dest, Source);
else
if Source.VType and varArray <> 0 then
VarArrayCopyForEach(Dest, Source, VarCopyNoIndCopyProc)
else
VarCopyNoIndDeep(Dest, Source);
end
end; <-- # error places cursor here! (1024)

or:

procedure VarStrCat(var Dest: Variant; const Source: Variant);
begin
if TVarData(Dest).VType = varString then
Dest := string(Dest) + string(Source)
else
Dest := WideString(Dest) + WideString(Source);
end; <-- # error places cursor here! (2809)