anchor.diff:  {$IFDEF ALIGN_STACK}
               ADD     ESP, AlignBytes
   {$ENDIF ALIGN_STACK}
  +{$IFDEF PIC}
  +            MOV     EBX, SavedEBX
  +{$ENDIF PIC}
     end;
   
     if ReturnInfo^.CallingConvention = ccCdecl then
  
positive.code:     else
      begin
        Regs[paEAX] := TVarData(ReturnValue).VLongWord;
        Regs[paEDX] := PCardinal(Integer(@TVarData(ReturnValue).VLongWord) + 4)^;
      end;
    end;
  
  
negative.code: function GetReturnInfo(MethodInfo: PMethodInfoHeader): PReturnInfo;
  begin
  {$IFNDEF DELPHIXE3_UP}
    Result := PReturnInfo(NativeUInt(MethodInfo) + SizeOf(TMethodInfoHeader) -
                          SizeOf(ShortString) + 1 + Length(MethodInfo^.Name));
  {$ELSE}
    Result := PReturnInfo(MethodInfo.NameFld.Tail);
  