1

/*******************************************************************************

     2

     3

  Intel PRO/1000 Linux driver

     4

  Copyright(c) 1999 - 2008 Intel Corporation.

     5

     6

  This program is free software; you can redistribute it and/or modify it

     7

  under the terms and conditions of the GNU General Public License,

     8

  version 2, as published by the Free Software Foundation.

     9

    10

  This program is distributed in the hope it will be useful, but WITHOUT

    11

  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

    12

  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for

    13

  more details.

    14

    15

  You should have received a copy of the GNU General Public License along with

    16

  this program; if not, write to the Free Software Foundation, Inc.,

    17

  51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.

    18

    19

  The full GNU General Public License is included in this distribution in

    20

  the file called "COPYING".

    21

    22

  Contact Information:

    23

  Linux NICS <linux.nics@intel.com>

    24

  e1000-devel Mailing List <e1000-devel@lists.sourceforge.net>

    25

  Intel Corporation, 5200 N.E. Elam Young Parkway, Hillsboro, OR 97124-6497

    26

    27

*******************************************************************************/

    28

    29

/* ethtool support for e1000 */

    30

    31

#include <linux/netdevice.h>

    32

#include <linux/ethtool.h>

    33

#include <linux/pci.h>

    34

#include <linux/delay.h>

    35

    36

#include "e1000.h"

    37

    38

struct e1000_stats {

    39

	char stat_string[ETH_GSTRING_LEN];

    40

	int sizeof_stat;

    41

	int stat_offset;

    42

};

    43

    44

#define E1000_STAT(m) sizeof(((struct e1000_adapter *)0)->m), \

    45

		      offsetof(struct e1000_adapter, m)

    46

static const struct e1000_stats e1000_gstrings_stats[] = {

    47

	{ "rx_packets", E1000_STAT(stats.gprc) },

    48

	{ "tx_packets", E1000_STAT(stats.gptc) },

    49

	{ "rx_bytes", E1000_STAT(stats.gorc) },

    50

	{ "tx_bytes", E1000_STAT(stats.gotc) },

    51

	{ "rx_broadcast", E1000_STAT(stats.bprc) },

    52

	{ "tx_broadcast", E1000_STAT(stats.bptc) },

    53

	{ "rx_multicast", E1000_STAT(stats.mprc) },

    54

	{ "tx_multicast", E1000_STAT(stats.mptc) },

    55

	{ "rx_errors", E1000_STAT(net_stats.rx_errors) },

    56

	{ "tx_errors", E1000_STAT(net_stats.tx_errors) },

    57

	{ "tx_dropped", E1000_STAT(net_stats.tx_dropped) },

    58

	{ "multicast", E1000_STAT(stats.mprc) },

    59

	{ "collisions", E1000_STAT(stats.colc) },

    60

	{ "rx_length_errors", E1000_STAT(net_stats.rx_length_errors) },

    61

	{ "rx_over_errors", E1000_STAT(net_stats.rx_over_errors) },

    62

	{ "rx_crc_errors", E1000_STAT(stats.crcerrs) },

    63

	{ "rx_frame_errors", E1000_STAT(net_stats.rx_frame_errors) },

    64

	{ "rx_no_buffer_count", E1000_STAT(stats.rnbc) },

    65

	{ "rx_missed_errors", E1000_STAT(stats.mpc) },

    66

	{ "tx_aborted_errors", E1000_STAT(stats.ecol) },

    67

	{ "tx_carrier_errors", E1000_STAT(stats.tncrs) },

    68

	{ "tx_fifo_errors", E1000_STAT(net_stats.tx_fifo_errors) },

    69

	{ "tx_heartbeat_errors", E1000_STAT(net_stats.tx_heartbeat_errors) },

    70

	{ "tx_window_errors", E1000_STAT(stats.latecol) },

    71

	{ "tx_abort_late_coll", E1000_STAT(stats.latecol) },

    72

	{ "tx_deferred_ok", E1000_STAT(stats.dc) },

    73

	{ "tx_single_coll_ok", E1000_STAT(stats.scc) },

    74

	{ "tx_multi_coll_ok", E1000_STAT(stats.mcc) },

    75

	{ "tx_timeout_count", E1000_STAT(tx_timeout_count) },

    76

	{ "tx_restart_queue", E1000_STAT(restart_queue) },

    77

	{ "rx_long_length_errors", E1000_STAT(stats.roc) },

    78

	{ "rx_short_length_errors", E1000_STAT(stats.ruc) },

    79

	{ "rx_align_errors", E1000_STAT(stats.algnerrc) },

    80

	{ "tx_tcp_seg_good", E1000_STAT(stats.tsctc) },

    81

	{ "tx_tcp_seg_failed", E1000_STAT(stats.tsctfc) },

    82

	{ "rx_flow_control_xon", E1000_STAT(stats.xonrxc) },

    83

	{ "rx_flow_control_xoff", E1000_STAT(stats.xoffrxc) },

    84

	{ "tx_flow_control_xon", E1000_STAT(stats.xontxc) },

    85

	{ "tx_flow_control_xoff", E1000_STAT(stats.xofftxc) },

    86

	{ "rx_long_byte_count", E1000_STAT(stats.gorc) },

    87

	{ "rx_csum_offload_good", E1000_STAT(hw_csum_good) },

    88

	{ "rx_csum_offload_errors", E1000_STAT(hw_csum_err) },

    89

	{ "rx_header_split", E1000_STAT(rx_hdr_split) },

    90

	{ "alloc_rx_buff_failed", E1000_STAT(alloc_rx_buff_failed) },

    91

	{ "tx_smbus", E1000_STAT(stats.mgptc) },

    92

	{ "rx_smbus", E1000_STAT(stats.mgprc) },

    93

	{ "dropped_smbus", E1000_STAT(stats.mgpdc) },

    94

	{ "rx_dma_failed", E1000_STAT(rx_dma_failed) },

    95

	{ "tx_dma_failed", E1000_STAT(tx_dma_failed) },

    96

};

    97

    98

#define E1000_GLOBAL_STATS_LEN	ARRAY_SIZE(e1000_gstrings_stats)

    99

#define E1000_STATS_LEN (E1000_GLOBAL_STATS_LEN)

   100

static const char e1000_gstrings_test[][ETH_GSTRING_LEN] = {

   101

	"Register test  (offline)", "Eeprom test    (offline)",

   102

	"Interrupt test (offline)", "Loopback test  (offline)",

   103

	"Link test   (on/offline)"

   104

};

   105

#define E1000_TEST_LEN ARRAY_SIZE(e1000_gstrings_test)

   106

   107

static int e1000_get_settings(struct net_device *netdev,

   108

			      struct ethtool_cmd *ecmd)

   109

{

   110

	struct e1000_adapter *adapter = netdev_priv(netdev);

   111

	struct e1000_hw *hw = &adapter->hw;

   112

	u32 status;

   113

   114

	if (hw->phy.media_type == e1000_media_type_copper) {

   115

   116

		ecmd->supported = (SUPPORTED_10baseT_Half |

   117

				   SUPPORTED_10baseT_Full |

   118

				   SUPPORTED_100baseT_Half |

   119

				   SUPPORTED_100baseT_Full |

   120

				   SUPPORTED_1000baseT_Full |

   121

				   SUPPORTED_Autoneg |

   122

				   SUPPORTED_TP);

   123

		if (hw->phy.type == e1000_phy_ife)

   124

			ecmd->supported &= ~SUPPORTED_1000baseT_Full;

   125

		ecmd->advertising = ADVERTISED_TP;

   126

   127

		if (hw->mac.autoneg == 1) {

   128

			ecmd->advertising |= ADVERTISED_Autoneg;

   129

			/* the e1000 autoneg seems to match ethtool nicely */

   130

			ecmd->advertising |= hw->phy.autoneg_advertised;

   131

		}

   132

   133

		ecmd->port = PORT_TP;

   134

		ecmd->phy_address = hw->phy.addr;

   135

		ecmd->transceiver = XCVR_INTERNAL;

   136

   137

	} else {

   138

		ecmd->supported   = (SUPPORTED_1000baseT_Full |

   139

				     SUPPORTED_FIBRE |

   140

				     SUPPORTED_Autoneg);

   141

   142

		ecmd->advertising = (ADVERTISED_1000baseT_Full |

   143

				     ADVERTISED_FIBRE |

   144

				     ADVERTISED_Autoneg);

   145

   146

		ecmd->port = PORT_FIBRE;

   147

		ecmd->transceiver = XCVR_EXTERNAL;

   148

	}

   149

   150

	status = er32(STATUS);

   151

	if (status & E1000_STATUS_LU) {

   152

		if (status & E1000_STATUS_SPEED_1000)

   153

			ecmd->speed = 1000;

   154

		else if (status & E1000_STATUS_SPEED_100)

   155

			ecmd->speed = 100;

   156

		else

   157

			ecmd->speed = 10;

   158

   159

		if (status & E1000_STATUS_FD)

   160

			ecmd->duplex = DUPLEX_FULL;

   161

		else

   162

			ecmd->duplex = DUPLEX_HALF;

   163

	} else {

   164

		ecmd->speed = -1;

   165

		ecmd->duplex = -1;

   166

	}

   167

   168

	ecmd->autoneg = ((hw->phy.media_type == e1000_media_type_fiber) ||

   169

			 hw->mac.autoneg) ? AUTONEG_ENABLE : AUTONEG_DISABLE;

   170

   171

	/* MDI-X => 2; MDI =>1; Invalid =>0 */

   172

	if ((hw->phy.media_type == e1000_media_type_copper) &&

   173

	    !hw->mac.get_link_status)

   174

		ecmd->eth_tp_mdix = hw->phy.is_mdix ? ETH_TP_MDI_X :

   175

		                                      ETH_TP_MDI;

   176

	else

   177

		ecmd->eth_tp_mdix = ETH_TP_MDI_INVALID;

   178

   179

	return 0;

   180

}

   181

   182

static u32 e1000_get_link(struct net_device *netdev)

   183

{

   184

	struct e1000_adapter *adapter = netdev_priv(netdev);

   185

   186

	return e1000_has_link(adapter);

   187

}

   188

   189

static int e1000_set_spd_dplx(struct e1000_adapter *adapter, u16 spddplx)

   190

{

   191

	struct e1000_mac_info *mac = &adapter->hw.mac;

   192

   193

	mac->autoneg = 0;

   194

   195

	/* Fiber NICs only allow 1000 gbps Full duplex */

   196

	if ((adapter->hw.phy.media_type == e1000_media_type_fiber) &&

   197

		spddplx != (SPEED_1000 + DUPLEX_FULL)) {

   198

		e_err("Unsupported Speed/Duplex configuration\n");

   199

		return -EINVAL;

   200

	}

   201

   202

	switch (spddplx) {

   203

	case SPEED_10 + DUPLEX_HALF:

   204

		mac->forced_speed_duplex = ADVERTISE_10_HALF;

   205

		break;

   206

	case SPEED_10 + DUPLEX_FULL:

   207

		mac->forced_speed_duplex = ADVERTISE_10_FULL;

   208

		break;

   209

	case SPEED_100 + DUPLEX_HALF:

   210

		mac->forced_speed_duplex = ADVERTISE_100_HALF;

   211

		break;

   212

	case SPEED_100 + DUPLEX_FULL:

   213

		mac->forced_speed_duplex = ADVERTISE_100_FULL;

   214

		break;

   215

	case SPEED_1000 + DUPLEX_FULL:

   216

		mac->autoneg = 1;

   217

		adapter->hw.phy.autoneg_advertised = ADVERTISE_1000_FULL;

   218

		break;

   219

	case SPEED_1000 + DUPLEX_HALF: /* not supported */

   220

	default:

   221

		e_err("Unsupported Speed/Duplex configuration\n");

   222

		return -EINVAL;

   223

	}

   224

	return 0;

   225

}

   226

   227

static int e1000_set_settings(struct net_device *netdev,

   228

			      struct ethtool_cmd *ecmd)

   229

{

   230

	struct e1000_adapter *adapter = netdev_priv(netdev);

   231

	struct e1000_hw *hw = &adapter->hw;

   232

   233

	/*

   234

	 * When SoL/IDER sessions are active, autoneg/speed/duplex

   235

	 * cannot be changed

   236

	 */

   237

	if (e1000_check_reset_block(hw)) {

   238

		e_err("Cannot change link characteristics when SoL/IDER is "

   239

		      "active.\n");

   240

		return -EINVAL;

   241

	}

   242

   243

	while (test_and_set_bit(__E1000_RESETTING, &adapter->state))

   244

		msleep(1);

   245

   246

	if (ecmd->autoneg == AUTONEG_ENABLE) {

   247

		hw->mac.autoneg = 1;

   248

		if (hw->phy.media_type == e1000_media_type_fiber)

   249

			hw->phy.autoneg_advertised = ADVERTISED_1000baseT_Full |

   250

						     ADVERTISED_FIBRE |

   251

						     ADVERTISED_Autoneg;

   252

		else

   253

			hw->phy.autoneg_advertised = ecmd->advertising |

   254

						     ADVERTISED_TP |

   255

						     ADVERTISED_Autoneg;

   256

		ecmd->advertising = hw->phy.autoneg_advertised;

   257

		if (adapter->fc_autoneg)

   258

			hw->fc.requested_mode = e1000_fc_default;

   259

	} else {

   260

		if (e1000_set_spd_dplx(adapter, ecmd->speed + ecmd->duplex)) {

   261

			clear_bit(__E1000_RESETTING, &adapter->state);

   262

			return -EINVAL;

   263

		}

   264

	}

   265

   266

	/* reset the link */

   267

   268

	if (netif_running(adapter->netdev)) {

   269

		e1000e_down(adapter);

   270

		e1000e_up(adapter);

   271

	} else {

   272

		e1000e_reset(adapter);

   273

	}

   274

   275

	clear_bit(__E1000_RESETTING, &adapter->state);

   276

	return 0;

   277

}

   278

   279

static void e1000_get_pauseparam(struct net_device *netdev,

   280

				 struct ethtool_pauseparam *pause)

   281

{

   282

	struct e1000_adapter *adapter = netdev_priv(netdev);

   283

	struct e1000_hw *hw = &adapter->hw;

   284

   285

	pause->autoneg =

   286

		(adapter->fc_autoneg ? AUTONEG_ENABLE : AUTONEG_DISABLE);

   287

   288

	if (hw->fc.current_mode == e1000_fc_rx_pause) {

   289

		pause->rx_pause = 1;

   290

	} else if (hw->fc.current_mode == e1000_fc_tx_pause) {

   291

		pause->tx_pause = 1;

   292

	} else if (hw->fc.current_mode == e1000_fc_full) {

   293

		pause->rx_pause = 1;

   294

		pause->tx_pause = 1;

   295

	}

   296

}

   297

   298

static int e1000_set_pauseparam(struct net_device *netdev,

   299

				struct ethtool_pauseparam *pause)

   300

{

   301

	struct e1000_adapter *adapter = netdev_priv(netdev);

   302

	struct e1000_hw *hw = &adapter->hw;

   303

	int retval = 0;

   304

   305

	adapter->fc_autoneg = pause->autoneg;

   306

   307

	while (test_and_set_bit(__E1000_RESETTING, &adapter->state))

   308

		msleep(1);

   309

   310

	if (adapter->fc_autoneg == AUTONEG_ENABLE) {

   311

		hw->fc.requested_mode = e1000_fc_default;

   312

		if (netif_running(adapter->netdev)) {

   313

			e1000e_down(adapter);

   314

			e1000e_up(adapter);

   315

		} else {

   316

			e1000e_reset(adapter);

   317

		}

   318

	} else {

   319

		if (pause->rx_pause && pause->tx_pause)

   320

			hw->fc.requested_mode = e1000_fc_full;

   321

		else if (pause->rx_pause && !pause->tx_pause)

   322

			hw->fc.requested_mode = e1000_fc_rx_pause;

   323

		else if (!pause->rx_pause && pause->tx_pause)

   324

			hw->fc.requested_mode = e1000_fc_tx_pause;

   325

		else if (!pause->rx_pause && !pause->tx_pause)

   326

			hw->fc.requested_mode = e1000_fc_none;

   327

   328

		hw->fc.current_mode = hw->fc.requested_mode;

   329

   330

		if (hw->phy.media_type == e1000_media_type_fiber) {

   331

			retval = hw->mac.ops.setup_link(hw);

   332

			/* implicit goto out */

   333

		} else {

   334

			retval = e1000e_force_mac_fc(hw);

   335

			if (retval)

   336

				goto out;

   337

			e1000e_set_fc_watermarks(hw);

   338

		}

   339

	}

   340

   341

out:

   342

	clear_bit(__E1000_RESETTING, &adapter->state);

   343

	return retval;

   344

}

   345

   346

static u32 e1000_get_rx_csum(struct net_device *netdev)

   347

{

   348

	struct e1000_adapter *adapter = netdev_priv(netdev);

   349

	return (adapter->flags & FLAG_RX_CSUM_ENABLED);

   350

}

   351

   352

static int e1000_set_rx_csum(struct net_device *netdev, u32 data)

   353

{

   354

	struct e1000_adapter *adapter = netdev_priv(netdev);

   355

   356

	if (data)

   357

		adapter->flags |= FLAG_RX_CSUM_ENABLED;

   358

	else

   359

		adapter->flags &= ~FLAG_RX_CSUM_ENABLED;

   360

   361

	if (netif_running(netdev))

   362

		e1000e_reinit_locked(adapter);

   363

	else

   364

		e1000e_reset(adapter);

   365

	return 0;

   366

}

   367

   368

static u32 e1000_get_tx_csum(struct net_device *netdev)

   369

{

   370

	return ((netdev->features & NETIF_F_HW_CSUM) != 0);

   371

}

   372

   373

static int e1000_set_tx_csum(struct net_device *netdev, u32 data)

   374

{

   375

	if (data)

   376

		netdev->features |= NETIF_F_HW_CSUM;

   377

	else

   378

		netdev->features &= ~NETIF_F_HW_CSUM;

   379

   380

	return 0;

   381

}

   382

   383

static int e1000_set_tso(struct net_device *netdev, u32 data)

   384

{

   385

	struct e1000_adapter *adapter = netdev_priv(netdev);

   386

   387

	if (data) {

   388

		netdev->features |= NETIF_F_TSO;

   389

		netdev->features |= NETIF_F_TSO6;

   390

	} else {

   391

		netdev->features &= ~NETIF_F_TSO;

   392

		netdev->features &= ~NETIF_F_TSO6;

   393

	}

   394

   395

	e_info("TSO is %s\n", data ? "Enabled" : "Disabled");

   396

	adapter->flags |= FLAG_TSO_FORCE;

   397

	return 0;

   398

}

   399

   400

static u32 e1000_get_msglevel(struct net_device *netdev)

   401

{

   402

	struct e1000_adapter *adapter = netdev_priv(netdev);

   403

	return adapter->msg_enable;

   404

}

   405

   406

static void e1000_set_msglevel(struct net_device *netdev, u32 data)

   407

{

   408

	struct e1000_adapter *adapter = netdev_priv(netdev);

   409

	adapter->msg_enable = data;

   410

}

   411

   412

static int e1000_get_regs_len(struct net_device *netdev)

   413

{

   414

#define E1000_REGS_LEN 32 /* overestimate */

   415

	return E1000_REGS_LEN * sizeof(u32);

   416

}

   417

   418

static void e1000_get_regs(struct net_device *netdev,

   419

			   struct ethtool_regs *regs, void *p)

   420

{

   421

	struct e1000_adapter *adapter = netdev_priv(netdev);

   422

	struct e1000_hw *hw = &adapter->hw;

   423

	u32 *regs_buff = p;

   424

	u16 phy_data;

   425

	u8 revision_id;

   426

   427

	memset(p, 0, E1000_REGS_LEN * sizeof(u32));

   428

   429

	pci_read_config_byte(adapter->pdev, PCI_REVISION_ID, &revision_id);

   430

   431

	regs->version = (1 << 24) | (revision_id << 16) | adapter->pdev->device;

   432

   433

	regs_buff[0]  = er32(CTRL);

   434

	regs_buff[1]  = er32(STATUS);

   435

   436

	regs_buff[2]  = er32(RCTL);

   437

	regs_buff[3]  = er32(RDLEN);

   438

	regs_buff[4]  = er32(RDH);

   439

	regs_buff[5]  = er32(RDT);

   440

	regs_buff[6]  = er32(RDTR);

   441

   442

	regs_buff[7]  = er32(TCTL);

   443

	regs_buff[8]  = er32(TDLEN);

   444

	regs_buff[9]  = er32(TDH);

   445

	regs_buff[10] = er32(TDT);

   446

	regs_buff[11] = er32(TIDV);

   447

   448

	regs_buff[12] = adapter->hw.phy.type;  /* PHY type (IGP=1, M88=0) */

   449

   450

	/* ethtool doesn't use anything past this point, so all this

   451

	 * code is likely legacy junk for apps that may or may not

   452

	 * exist */

   453

	if (hw->phy.type == e1000_phy_m88) {

   454

		e1e_rphy(hw, M88E1000_PHY_SPEC_STATUS, &phy_data);

   455

		regs_buff[13] = (u32)phy_data; /* cable length */

   456

		regs_buff[14] = 0;  /* Dummy (to align w/ IGP phy reg dump) */

   457

		regs_buff[15] = 0;  /* Dummy (to align w/ IGP phy reg dump) */

   458

		regs_buff[16] = 0;  /* Dummy (to align w/ IGP phy reg dump) */

   459

		e1e_rphy(hw, M88E1000_PHY_SPEC_CTRL, &phy_data);

   460

		regs_buff[17] = (u32)phy_data; /* extended 10bt distance */

   461

		regs_buff[18] = regs_buff[13]; /* cable polarity */

   462

		regs_buff[19] = 0;  /* Dummy (to align w/ IGP phy reg dump) */

   463

		regs_buff[20] = regs_buff[17]; /* polarity correction */

   464

		/* phy receive errors */

   465

		regs_buff[22] = adapter->phy_stats.receive_errors;

   466

		regs_buff[23] = regs_buff[13]; /* mdix mode */

   467

	}

   468

	regs_buff[21] = 0; /* was idle_errors */

   469

	e1e_rphy(hw, PHY_1000T_STATUS, &phy_data);

   470

	regs_buff[24] = (u32)phy_data;  /* phy local receiver status */

   471

	regs_buff[25] = regs_buff[24];  /* phy remote receiver status */

   472

}

   473

   474

static int e1000_get_eeprom_len(struct net_device *netdev)

   475

{

   476

	struct e1000_adapter *adapter = netdev_priv(netdev);

   477

	return adapter->hw.nvm.word_size * 2;

   478

}

   479

   480

static int e1000_get_eeprom(struct net_device *netdev,

   481

			    struct ethtool_eeprom *eeprom, u8 *bytes)

   482

{

   483

	struct e1000_adapter *adapter = netdev_priv(netdev);

   484

	struct e1000_hw *hw = &adapter->hw;

   485

	u16 *eeprom_buff;

   486

	int first_word;

   487

	int last_word;

   488

	int ret_val = 0;

   489

	u16 i;

   490

   491

	if (eeprom->len == 0)

   492

		return -EINVAL;

   493

   494

	eeprom->magic = adapter->pdev->vendor | (adapter->pdev->device << 16);

   495

   496

	first_word = eeprom->offset >> 1;

   497

	last_word = (eeprom->offset + eeprom->len - 1) >> 1;

   498

   499

	eeprom_buff = kmalloc(sizeof(u16) *

   500

			(last_word - first_word + 1), GFP_KERNEL);

   501

	if (!eeprom_buff)

   502

		return -ENOMEM;

   503

   504

	if (hw->nvm.type == e1000_nvm_eeprom_spi) {

   505

		ret_val = e1000_read_nvm(hw, first_word,

   506

					 last_word - first_word + 1,

   507

					 eeprom_buff);

   508

	} else {

   509

		for (i = 0; i < last_word - first_word + 1; i++) {

   510

			ret_val = e1000_read_nvm(hw, first_word + i, 1,

   511

						      &eeprom_buff[i]);

   512

			if (ret_val)

   513

				break;

   514

		}

   515

	}

   516

   517

	if (ret_val) {

   518

		/* a read error occurred, throw away the result */

   519

		memset(eeprom_buff, 0xff, sizeof(eeprom_buff));

   520

	} else {

   521

		/* Device's eeprom is always little-endian, word addressable */

   522

		for (i = 0; i < last_word - first_word + 1; i++)

   523

			le16_to_cpus(&eeprom_buff[i]);

   524

	}

   525

   526

	memcpy(bytes, (u8 *)eeprom_buff + (eeprom->offset & 1), eeprom->len);

   527

	kfree(eeprom_buff);

   528

   529

	return ret_val;

   530

}