- add help for some cpu items

- only display choosen items
- remove a dead statement

1 files changed, 6 insertions, 1 deletions

diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 627abeed2..8949eab32 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -17,6 +17,8 @@ my %fields =
      [ N("Bus"), 
        N("this is the physical bus on which the device is plugged (eg: PCI, USB, ...)")],
      "channel" => [N("Channel"), N("EIDE/SCSI channel")],
+	 "bogomips" => [N("Bogomips"), N("The GNU/Linux kernel needs to do run a calculation loop at boot time
+	 to initialize a timer counter.  Its result is stored as bogomips as a way to \"benchmark\" the cpu.")],
      "bus_id" => 
      [ N("Bus identification"), 
        N("- PCI and USB devices: this list the vendor, device, subvendor and subdevice PCI/USB ids")],
@@ -31,6 +33,10 @@ my %fields =
      "devfs_device" => [ N("New devfs device"),  
                          N("new dinamic device name generated by incore kernel devfs")],
      "driver" => [ N("Module"), N("the module of the GNU/Linux kernel that handle that device")],
+	 "flags" => [ N("Flags"), N("CPU flags reported by the kernel")],
+	 "fpu" => [ N("Is FPU present"), N("yes means the processor has an arithmetic coprocessor")],
+	 "fpu_exception" => [ N("Does FPU have an irq vector"), N("yes means the arithmetic coprocessor has an exception vector attached")],
+	 "f00f_bug" => [N("F00f bug"), N("Early pentium were buggy and freeze when decoding the F00F instruction")],
      "media_type" => [ N("Media class"), N("class of hardware device")],
      "Model" => [N("Model"), N("hard disk model")],
      "nbuttons" => [ N("Number of buttons"), "the number of buttons the mouse have"],
@@ -191,7 +197,6 @@ sub new {
     my $wcolor = { 'red' => 0xFFFF, 'green' => 0x6400, 'blue' => 0x6400 };
     $cmap->color_alloc($wcolor);
     $tree->set_column_auto_resize(0, 1);
-    my $curr = $tree->node_nth(0); #- default value
 
     $tree->signal_connect( 'select_row', sub {
         my ( $ctree, $row, $column, $event ) = @_;