[BLACKBOX] AW: [BLACKBOX] Benchmark failed to compile

From: [at]} <Helmut>
Date: Sun, 16 Jan 2011 08:47:38 +0100

----boundary-LibPST-iamunique-649104225_-_-
Content-type: text/plain

Dear Darek,

I use BBox 1.6 rc-6, on Windows 7 and the module compiles without errors. So
what happens?

The different in the number (-5 and -6) does not solve your problems.

There was reported some WinApi corrections via the BB mailing list. I'm
sorry I have forgotten who send those information.

I list here only the one which are relevant for subsystem Benchmark. You
find the WinApi at the appendix.

Add the line
        CONST REG_QWORD = 11;

Change the type SHORTCHAR in

        PROCEDURE RegEnumValueW* ["ADVAPI32.dll", ""] (hKey: HKEY; dwIndex:
INTEGER; lpValueName: PtrWSTR; VAR [nil] lpcbValueName: INTEGER; VAR [nil]
lpReserved: INTEGER; VAR [nil] lpType: INTEGER; VAR [nil] lpData: SHORTCHAR;
VAR [nil] lpcbData: INTEGER): INTEGER;
        (*END RegEnumValueW;*)

against CHAR

        PROCEDURE RegEnumValueW* ["ADVAPI32.dll", ""] (hKey: HKEY; dwIndex:
INTEGER; lpValueName: PtrWSTR; VAR [nil] lpcbValueName: INTEGER; VAR [nil]
lpReserved: INTEGER; VAR [nil] lpType: INTEGER; VAR [nil] lpData: CHAR; VAR
[nil] lpcbData: INTEGER): INTEGER;
        (*END RegEnumValueW;*)
.

Change the type SHORTCHAR in

        PROCEDURE RegQueryValueExW* ["ADVAPI32.dll", ""] (hKey: HKEY;
lpValueName: PtrWSTR; VAR [nil] lpReserved: INTEGER; VAR [nil] lpType:
INTEGER; VAR [nil] lpData: SHORTCHAR; VAR [nil] lpcbData: INTEGER): INTEGER;
        (*END RegQueryValueExW;*)

against PtrWSTR

        PROCEDURE RegQueryValueExW* ["ADVAPI32.dll", ""] (hKey: HKEY;
lpValueName: PtrWSTR; VAR [nil] lpReserved: INTEGER; VAR [nil] lpType:
INTEGER; lpData: PtrWSTR; VAR [nil] lpcbData: INTEGER): INTEGER;
        (*END RegQueryValueExW;*)
.

After those changes and recompilation of WinApi the subsystem Benchmark
compiles without errors.

The hardware detection is not perfect. Successions and corrections are
welcome.

The measurements results of Benchmark 2010 are not comparable with the
previous version. I increased the runtime of part 2.

Have anybody a complete list of changes since BBox 1.6 rc-6 ? Please send it
to me. When does it added to BB?

Regards,

Helmut

-----Ursprüngliche Nachricht-----
Von: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
Maksimiuk
Gesendet: Samstag, 15. Januar 2011 10:54
An: BLACKBOX{([at]})nowhere.xy
Betreff: [BLACKBOX] Benchmark failed to compile

Dear Helmut,
  I wanted to have some fun and I downloaded the Benchmark packaged
from your site (*.Pac format) and unpack on my machine.
  When I tried to compile it, I got:

  (Log window):

  compiling "BenchmarkRegistry"
    13 errors detected

  and the first error is reported in the following place:

  PROCEDURE ShowEntryTyp* (typ: INTEGER);
        BEGIN
                StdLog.Ln;
                CASE typ OF
| WinApi.REG_SZ: StdLog.String("(1): REG_SZ");
| WinApi.REG_BINARY: StdLog.String("(2): REG_BINARY");
| WinApi.REG_DWORD: StdLog.String("(3): REG_DWORD");
| WinApi.REG_QWORD: <-------------- here: "undeclared
identifier"
                  StdLog.String("(4): REG_QWORD");
| WinApi.REG_MULTI_SZ: StdLog.String("(5): REG_MULTI_SZ");
| WinApi.REG_EXPAND_SZ: StdLog.String("(6): REG_EXPAND_SZ");
                ELSE
                        StdLog.String("typ: unknown");
                END;
                StdLog.Ln;
        END ShowEntryTyp;

It seems that the WinApi provided with the BBox does not have this
entry: WinApi.REG_QWORD.

Also calls to the WinApi.RegQueryValueExW procedure drives the
compiler crazy and I got (in BenchmarkRegistry, PROCEDURE
ReadAsString):

res := WinApi.RegQueryValueExW(h, name, NIL, NIL, data<-----"type is
not identical with that of formal VAR-, IN-, or OUT-parameter", len)

I am running BBox 1.6 rc-5, on Windows 7.

How shall I fix this problem?

Regards,
   Darek

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-649104225_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBEZWFyIERhcmVrLFxwYXINClxw
YXINCkkgdXNlIEJCb3ggMS42IHJjLTYsIG9uIFdpbmRvd3MgNyBhbmQgdGhlIG1vZHVsZSBjb21w
aWxlcyB3aXRob3V0IGVycm9ycy4gU29ccGFyDQp3aGF0IGhhcHBlbnM/XHBhcg0KXHBhcg0KVGhl
IGRpZmZlcmVudCBpbiB0aGUgbnVtYmVyICgtNSBhbmQgLTYpIGRvZXMgbm90IHNvbHZlIHlvdXIg
cHJvYmxlbXMuXHBhcg0KXHBhcg0KVGhlcmUgd2FzIHJlcG9ydGVkIHNvbWUgV2luQXBpIGNvcnJl
Y3Rpb25zIHZpYSB0aGUgQkIgbWFpbGluZyBsaXN0LiBJJ21ccGFyDQpzb3JyeSBJIGhhdmUgZm9y
Z290dGVuIHdobyBzZW5kIHRob3NlIGluZm9ybWF0aW9uLlxwYXINClxwYXINCkkgbGlzdCBoZXJl
IG9ubHkgdGhlIG9uZSB3aGljaCBhcmUgcmVsZXZhbnQgZm9yIHN1YnN5c3RlbSBCZW5jaG1hcmsu
IFlvdVxwYXINCmZpbmQgdGhlIFdpbkFwaSBhdCB0aGUgYXBwZW5kaXguXHBhcg0KXHBhcg0KQWRk
IHRoZSBsaW5lXHBhcg0KXHRhYiBDT05TVCBSRUdfUVdPUkQgPSAxMTsgXHBhcg0KXHBhcg0KQ2hh
bmdlIHRoZSB0eXBlIFNIT1JUQ0hBUiBpblxwYXINClxwYXINClx0YWIgUFJPQ0VEVVJFIFJlZ0Vu
dW1WYWx1ZVcqIFsiQURWQVBJMzIuZGxsIiwgIiJdIChoS2V5OiBIS0VZOyBkd0luZGV4OlxwYXIN
CklOVEVHRVI7IGxwVmFsdWVOYW1lOiBQdHJXU1RSOyBWQVIgW25pbF0gbHBjYlZhbHVlTmFtZTog
SU5URUdFUjsgVkFSIFtuaWxdXHBhcg0KbHBSZXNlcnZlZDogSU5URUdFUjsgVkFSIFtuaWxdIGxw
VHlwZTogSU5URUdFUjsgVkFSIFtuaWxdIGxwRGF0YTogU0hPUlRDSEFSO1xwYXINClZBUiBbbmls
XSBscGNiRGF0YTogSU5URUdFUik6IElOVEVHRVI7XHBhcg0KXHRhYiAoKkVORCBSZWdFbnVtVmFs
dWVXOyopXHBhcg0KXHBhcg0KYWdhaW5zdCBDSEFSXHBhcg0KXHBhcg0KXHRhYiBQUk9DRURVUkUg
UmVnRW51bVZhbHVlVyogWyJBRFZBUEkzMi5kbGwiLCAiIl0gKGhLZXk6IEhLRVk7IGR3SW5kZXg6
XHBhcg0KSU5URUdFUjsgbHBWYWx1ZU5hbWU6IFB0cldTVFI7IFZBUiBbbmlsXSBscGNiVmFsdWVO
YW1lOiBJTlRFR0VSOyBWQVIgW25pbF1ccGFyDQpscFJlc2VydmVkOiBJTlRFR0VSOyBWQVIgW25p
bF0gbHBUeXBlOiBJTlRFR0VSOyBWQVIgW25pbF0gbHBEYXRhOiBDSEFSOyBWQVJccGFyDQpbbmls
XSBscGNiRGF0YTogSU5URUdFUik6IElOVEVHRVI7XHBhcg0KXHRhYiAoKkVORCBSZWdFbnVtVmFs
dWVXOyopXHBhcg0KLlxwYXINClxwYXINCkNoYW5nZSB0aGUgdHlwZSBTSE9SVENIQVIgaW5ccGFy
DQpccGFyDQpcdGFiIFBST0NFRFVSRSBSZWdRdWVyeVZhbHVlRXhXKiBbIkFEVkFQSTMyLmRsbCIs
ICIiXSAoaEtleTogSEtFWTtccGFyDQpscFZhbHVlTmFtZTogUHRyV1NUUjsgVkFSIFtuaWxdIGxw
UmVzZXJ2ZWQ6IElOVEVHRVI7IFZBUiBbbmlsXSBscFR5cGU6XHBhcg0KSU5URUdFUjsgVkFSIFtu
aWxdIGxwRGF0YTogU0hPUlRDSEFSOyBWQVIgW25pbF0gbHBjYkRhdGE6IElOVEVHRVIpOiBJTlRF
R0VSO1xwYXINClx0YWIgKCpFTkQgUmVnUXVlcnlWYWx1ZUV4VzsqKVxwYXINClxwYXINCmFnYWlu
c3QgUHRyV1NUUlxwYXINClxwYXINClx0YWIgUFJPQ0VEVVJFIFJlZ1F1ZXJ5VmFsdWVFeFcqIFsi
QURWQVBJMzIuZGxsIiwgIiJdIChoS2V5OiBIS0VZO1xwYXINCmxwVmFsdWVOYW1lOiBQdHJXU1RS
OyBWQVIgW25pbF0gbHBSZXNlcnZlZDogSU5URUdFUjsgVkFSIFtuaWxdIGxwVHlwZTpccGFyDQpJ
TlRFR0VSOyBscERhdGE6IFB0cldTVFI7IFZBUiBbbmlsXSBscGNiRGF0YTogSU5URUdFUik6IElO
VEVHRVI7XHBhcg0KXHRhYiAoKkVORCBSZWdRdWVyeVZhbHVlRXhXOyopXHBhcg0KLlxwYXINClxw
YXINCkFmdGVyIHRob3NlIGNoYW5nZXMgYW5kIHJlY29tcGlsYXRpb24gb2YgV2luQXBpIHRoZSBz
dWJzeXN0ZW0gQmVuY2htYXJrXHBhcg0KY29tcGlsZXMgd2l0aG91dCBlcnJvcnMuXHBhcg0KXHBh
cg0KVGhlIGhhcmR3YXJlIGRldGVjdGlvbiBpcyBub3QgcGVyZmVjdC4gU3VjY2Vzc2lvbnMgYW5k
IGNvcnJlY3Rpb25zIGFyZVxwYXINCndlbGNvbWUuXHBhcg0KXHBhcg0KVGhlIG1lYXN1cmVtZW50
cyByZXN1bHRzIG9mIEJlbmNobWFyayAyMDEwIGFyZSBub3QgY29tcGFyYWJsZSB3aXRoIHRoZVxw
YXINCnByZXZpb3VzIHZlcnNpb24uIEkgaW5jcmVhc2VkIHRoZSBydW50aW1lIG9mIHBhcnQgMi5c
cGFyDQpccGFyDQpIYXZlIGFueWJvZHkgYSBjb21wbGV0ZSBsaXN0IG9mIGNoYW5nZXMgc2luY2Ug
QkJveCAxLjYgcmMtNiA/IFBsZWFzZSBzZW5kIGl0XHBhcg0KdG8gbWUuIFdoZW4gZG9lcyBpdCBh
ZGRlZCB0byBCQj9ccGFyDQpccGFyDQpSZWdhcmRzLFxwYXINClxwYXINCkhlbG11dFxwYXINClxw
YXINCi0tLS0tVXJzcHJcJ2ZjbmdsaWNoZSBOYWNocmljaHQtLS0tLVxwYXINClZvbjogQmxhY2tC
b3ggW21haWx0bzpCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hdIEltIEF1ZnRyYWcgdm9uIERhcmVr
XHBhcg0KTWFrc2ltaXVrXHBhcg0KR2VzZW5kZXQ6IFNhbXN0YWcsIDE1LiBKYW51YXIgMjAxMSAx
MDo1NFxwYXINCkFuOiBCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hccGFyDQpCZXRyZWZmOiBbQkxB
Q0tCT1hdIEJlbmNobWFyayBmYWlsZWQgdG8gY29tcGlsZVxwYXINClxwYXINCkRlYXIgSGVsbXV0
LFxwYXINCiAgSSB3YW50ZWQgdG8gaGF2ZSBzb21lIGZ1biBhbmQgSSBkb3dubG9hZGVkIHRoZSBC
ZW5jaG1hcmsgcGFja2FnZWRccGFyDQpmcm9tIHlvdXIgc2l0ZSAoKi5QYWMgZm9ybWF0KSBhbmQg
dW5wYWNrIG9uIG15IG1hY2hpbmUuXHBhcg0KICBXaGVuIEkgdHJpZWQgdG8gY29tcGlsZSBpdCwg
SSBnb3Q6XHBhcg0KXHBhcg0KICAoTG9nIHdpbmRvdyk6XHBhcg0KXHBhcg0KICBjb21waWxpbmcg
IkJlbmNobWFya1JlZ2lzdHJ5IlxwYXINCiAgICAxMyBlcnJvcnMgZGV0ZWN0ZWRccGFyDQpccGFy
DQogIGFuZCB0aGUgZmlyc3QgZXJyb3IgaXMgcmVwb3J0ZWQgaW4gdGhlIGZvbGxvd2luZyBwbGFj
ZTpccGFyDQpccGFyDQogIFBST0NFRFVSRSBTaG93RW50cnlUeXAqICh0eXA6IElOVEVHRVIpO1xw
YXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgU3RkTG9nLkxuO1xwYXINClx0YWIgXHRhYiBD
QVNFIHR5cCBPRlxwYXINClx0YWIgXHRhYiB8IFdpbkFwaS5SRUdfU1o6IFN0ZExvZy5TdHJpbmco
IigxKTogUkVHX1NaIik7XHBhcg0KXHRhYiBcdGFiIHwgV2luQXBpLlJFR19CSU5BUlk6IFN0ZExv
Zy5TdHJpbmcoIigyKTogUkVHX0JJTkFSWSIpO1xwYXINClx0YWIgXHRhYiB8IFdpbkFwaS5SRUdf
RFdPUkQ6IFN0ZExvZy5TdHJpbmcoIigzKTogUkVHX0RXT1JEIik7XHBhcg0KXHRhYiBcdGFiIHwg
V2luQXBpLlJFR19RV09SRDogPC0tLS0tLS0tLS0tLS0tIGhlcmU6ICJ1bmRlY2xhcmVkXHBhcg0K
aWRlbnRpZmllciJccGFyDQogICAgICAgICAgICAgICAgICBTdGRMb2cuU3RyaW5nKCIoNCk6IFJF
R19RV09SRCIpO1xwYXINClx0YWIgXHRhYiB8IFdpbkFwaS5SRUdfTVVMVElfU1o6IFN0ZExvZy5T
dHJpbmcoIig1KTogUkVHX01VTFRJX1NaIik7XHBhcg0KXHRhYiBcdGFiIHwgV2luQXBpLlJFR19F
WFBBTkRfU1o6IFN0ZExvZy5TdHJpbmcoIig2KTogUkVHX0VYUEFORF9TWiIpO1xwYXINClx0YWIg
XHRhYiBFTFNFXHBhcg0KXHRhYiBcdGFiIFx0YWIgU3RkTG9nLlN0cmluZygidHlwOiB1bmtub3du
Iik7XHBhcg0KXHRhYiBcdGFiIEVORDtccGFyDQpcdGFiIFx0YWIgU3RkTG9nLkxuO1xwYXINClx0
YWIgRU5EIFNob3dFbnRyeVR5cDtccGFyDQpccGFyDQpJdCBzZWVtcyB0aGF0IHRoZSBXaW5BcGkg
cHJvdmlkZWQgd2l0aCB0aGUgQkJveCBkb2VzIG5vdCBoYXZlIHRoaXNccGFyDQplbnRyeTogIFdp
bkFwaS5SRUdfUVdPUkQuXHBhcg0KXHBhcg0KQWxzbyBjYWxscyB0byB0aGUgIFdpbkFwaS5SZWdR
dWVyeVZhbHVlRXhXICBwcm9jZWR1cmUgIGRyaXZlcyB0aGVccGFyDQpjb21waWxlciBjcmF6eSBh
bmQgSSBnb3QgKGluIEJlbmNobWFya1JlZ2lzdHJ5LCAgUFJPQ0VEVVJFXHBhcg0KUmVhZEFzU3Ry
aW5nKTpccGFyDQpccGFyDQpyZXMgOj0gV2luQXBpLlJlZ1F1ZXJ5VmFsdWVFeFcoaCwgbmFtZSwg
TklMLCBOSUwsIGRhdGE8LS0tLS0idHlwZSBpc1xwYXINCm5vdCBpZGVudGljYWwgd2l0aCB0aGF0
IG9mIGZvcm1hbCBWQVItLCBJTi0sIG9yIE9VVC1wYXJhbWV0ZXIiLCBsZW4pXHBhcg0KXHBhcg0K
SSBhbSBydW5uaW5nIEJCb3ggMS42IHJjLTUsIG9uIFdpbmRvd3MgNy5ccGFyDQpccGFyDQpIb3cg
c2hhbGwgSSBmaXggdGhpcyBwcm9ibGVtP1xwYXINClxwYXINClJlZ2FyZHMsXHBhcg0KICAgRGFy
ZWtccGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNz
YWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9O
LkNIXHBhcg0KfQ=
----boundary-LibPST-iamunique-649104225_-_---

Received on Sun Jan 16 2011 - 08:47:38 UTC