[fpc-devel] trunk no longer compiles with -Cr

[Ludo Brands]

> Compiling .\winunits-base\src\typelib.pas
> typelib.pas(371,71) Hint: Local variable "Handle" does not seem to be 
> initialized
> typelib.pas(493,33) Hint: Local variable "sl" does not seem to be 
> initialized
> typelib.pas(562,48) Hint: Local variable "sMethodName" does 
> not seem to 
> be initialized
> typelib.pas(609,46) Hint: Local variable "sVarName" does not 
> seem to be 
> initialized
> typelib.pas(1034,40) Hint: Local variable "senum" does not seem to be 
> initialized
> typelib.pas(1097,37) Hint: Local variable "sl" does not seem to be 
> initialized
> typelib.pas(1138,40) Hint: Local variable "slref" does not seem to be 
> initialized
> typelib.pas(1207,48) Hint: Local variable "srecordname" does 
> not seem to 
> be initialized
> typelib.pas(1224,50) Hint: Local variable "smembername" does 
> not seem to 
> be initialized
> typelib.pas(1346,32) Hint: Local variable "sl" does not seem to be 
> initialized
> typelib.pas(1353,48) Error: range check error while 
> evaluating constants 
> (-1 must be between 0 and 4294967295) 

Can you raise a mantis issue? I'll fix this. According to msdn
http://msdn.microsoft.com/en-us/library/cc237755%28v=prot.10%29.aspx the
function ITypeInfo::GetRefTypeOfImplType is defined as
 
HRESULT GetRefTypeOfImplType(
  [in] UINT index,
  [out] HREFTYPE* pRefType
);

index: MUST be a nonnegative integer, or -1.

Ludo