[Jcl-checkins-diff] SF.net SVN: jcl:[3387] trunk/jcl/experts

[<ou...@us...>]

Revision: 3387
          http://jcl.svn.sourceforge.net/jcl/?rev=3387&view=rev
Author:   outchy
Date:     2010-10-24 12:21:45 +0000 (Sun, 24 Oct 2010)

Log Message:
-----------
Make the SIMD view expert compliant with JCL rev 3385.

Revision Links:
--------------
    http://jcl.svn.sourceforge.net/jcl/?rev=3385&view=rev

Modified Paths:
--------------
    trunk/jcl/experts/common/JclOtaResources.pas
    trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm
    trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas

Modified: trunk/jcl/experts/common/JclOtaResources.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaResources.pas	2010-10-24 12:11:23 UTC (rev 3386)
+++ trunk/jcl/experts/common/JclOtaResources.pas	2010-10-24 12:21:45 UTC (rev 3387)
@@ -309,8 +309,9 @@
   RsSSE2 = 'SSE Version 2';
   RsSSE3 = 'SSE Version 3';
   RsSSE3Ext = 'SSE Version 3 Ext.';
-  RsSSE4A = 'SSE Version 4 A';
-  RsSSE4B = 'SSE Version 4 B';
+  RsSSE41 = 'SSE Version 4.1';
+  RsSSE42 = 'SSE Version 4.2';
+  RsSSE4A = 'SSE Version 4 AMD Ext.';
   RsSSE5 = 'SSE Version 5';
   RsAVX = 'AVX';
   RsClose = 'Close';

Modified: trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm
===================================================================
--- trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm	2010-10-24 12:11:23 UTC (rev 3386)
+++ trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm	2010-10-24 12:21:45 UTC (rev 3387)
@@ -3,7 +3,7 @@
   Top = 438
   BorderStyle = bsDialog
   Caption = 'RsCpuInfoTitle'
-  ClientHeight = 296
+  ClientHeight = 312
   ClientWidth = 322
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -144,8 +144,8 @@
     TabOrder = 10
   end
   object ButtonClose: TButton
-    Left = 128
-    Top = 263
+    Left = 120
+    Top = 279
     Width = 83
     Height = 25
     Caption = 'RsClose'
@@ -162,19 +162,19 @@
     Enabled = False
     TabOrder = 11
   end
-  object CheckBoxSSE4A: TCheckBox
+  object CheckBoxSSE41: TCheckBox
     Left = 161
     Top = 164
     Width = 153
     Height = 17
     Alignment = taLeftJustify
-    Caption = 'RsSSE4A'
+    Caption = 'RsSSE41'
     Enabled = False
     TabOrder = 12
   end
   object CheckBoxSSE5: TCheckBox
     Left = 161
-    Top = 210
+    Top = 233
     Width = 153
     Height = 17
     Alignment = taLeftJustify
@@ -182,19 +182,19 @@
     Enabled = False
     TabOrder = 14
   end
-  object CheckBoxSSE4B: TCheckBox
+  object CheckBoxSSE42: TCheckBox
     Left = 161
     Top = 187
     Width = 153
     Height = 17
     Alignment = taLeftJustify
-    Caption = 'RsSSE4B'
+    Caption = 'RsSSE42'
     Enabled = False
     TabOrder = 13
   end
   object CheckBoxAVX: TCheckBox
     Left = 161
-    Top = 233
+    Top = 256
     Width = 153
     Height = 17
     Alignment = taLeftJustify
@@ -232,4 +232,14 @@
     Enabled = False
     TabOrder = 19
   end
+  object CheckBoxSSE4A: TCheckBox
+    Left = 161
+    Top = 210
+    Width = 153
+    Height = 17
+    Alignment = taLeftJustify
+    Caption = 'RsSSE4A'
+    Enabled = False
+    TabOrder = 20
+  end
 end

Modified: trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas
===================================================================
--- trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas	2010-10-24 12:11:23 UTC (rev 3386)
+++ trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas	2010-10-24 12:21:45 UTC (rev 3387)
@@ -60,13 +60,14 @@
     CheckBoxSSE3: TCheckBox;
     ButtonClose: TButton;
     CheckBoxSSSE3: TCheckBox;
-    CheckBoxSSE4A: TCheckBox;
+    CheckBoxSSE41: TCheckBox;
     CheckBoxSSE5: TCheckBox;
-    CheckBoxSSE4B: TCheckBox;
+    CheckBoxSSE42: TCheckBox;
     CheckBoxAVX: TCheckBox;
     CheckBoxEnabledFPU: TCheckBox;
     CheckBoxEnabledSSE: TCheckBox;
     CheckBoxEnabledAVX: TCheckBox;
+    CheckBoxSSE4A: TCheckBox;
   protected
     procedure CreateParams(var Params: TCreateParams); override;
   public
@@ -126,8 +127,9 @@
   CheckBoxSSE2.Caption := LoadResString(@RsSSE2);
   CheckBoxSSE3.Caption := LoadResString(@RsSSE3);
   CheckBoxSSSE3.Caption := LoadResString(@RsSSE3Ext);
+  CheckBoxSSE41.Caption := LoadResString(@RsSSE41);
+  CheckBoxSSE42.Caption := LoadResString(@RsSSE42);
   CheckBoxSSE4A.Caption := LoadResString(@RsSSE4A);
-  CheckBoxSSE4B.Caption := LoadResString(@RsSSE4B);
   CheckBoxSSE5.Caption := LoadResString(@RsSSE5);
   CheckBoxAVX.Caption := LoadResString(@RsAVX);
   ButtonClose.Caption := LoadResString(@RsClose);
@@ -144,8 +146,9 @@
   CheckBoxSSE2.Checked := sse2 in CpuInfo.SSE;
   CheckBoxSSE3.Checked := sse3 in CpuInfo.SSE;
   CheckBoxSSSE3.Checked := ssse3 in CpuInfo.SSE;
+  CheckBoxSSE41.Checked := sse41 in CpuInfo.SSE;
+  CheckBoxSSE42.Checked := sse42 in CpuInfo.SSE;
   CheckBoxSSE4A.Checked := sse4A in CpuInfo.SSE;
-  CheckBoxSSE4B.Checked := sse4B in CpuInfo.SSE;
   CheckBoxSSE5.Checked := sse5 in CpuInfo.SSE;
   CheckBoxAVX.Checked := avx in CpuInfo.SSE;
   CheckBoxEnabledFPU.Checked := oefFPU in EnabledFeatures;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.