[BLACKBOX] Using a simple DLL

From: Campbell, Robert (SELEX GALILEO, UK) <"Campbell,>
Date: Tue, 19 Feb 2008 09:38:02 -0000

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

Hi

Can anyone explain the following to me, I am
rather out of my depth & baffled?


The first module creates a small DLL.

The second two test it. It all works fine.

But when I redeclare sum by the commented line it crashes with
an illegal memory read message.


Thanks

Robert.




MODULE DemoAddFunction;

TYPE
  Real = POINTER TO RECORD z : REAL END;

PROCEDURE Addd* (a, b : REAL; sum : Real);
  BEGIN
    sum.z := a + b
  END Addd;

END DemoAddFunction.

<Q> DevLinker.LinkDll DemoAddDll.dll := DemoAddFunction# ~



MODULE DemoAddInterface ["\BlackBox\DemoAddDll"];

TYPE
  Real* = POINTER TO RECORD z* : REAL END;

PROCEDURE Add* ['Addd'] (a, b : REAL; sum : ANYPTR);

END DemoAddInterface.




MODULE DemoAddTest;

IMPORT DemoAddInterface, StdLog;

TYPE
  Real* = POINTER TO RECORD z* : REAL END;

PROCEDURE Do*;
  VAR
    sum : Real;
(* sum : DemoAddInterface.Real; *)
  BEGIN
    NEW (sum);
    DemoAddInterface.Add (2.6, 6.1, sum);

    StdLog.String ('2.6 + 6.1 :'); StdLog.Real (sum.z); StdLog.Ln
  END Do;

END DemoAddTest.

<Q> DevDebug.Unload

<Q> DemoAddTest.Do>

SELEX Sensors and Airborne Systems Limited
Registered Office: Sigma House, Christopher Martin Road, Basildon, Essex SS14 3EL
A company registered in England & Wales. Company no. 02426132
********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1206721919_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpXHBhcg0KXHBhcg0KQ2FuIGFueW9uZSBleHBs
YWluIHRoZSBmb2xsb3dpbmcgdG8gbWUsIEkgYW1ccGFyDQpyYXRoZXIgb3V0IG9mIG15IGRlcHRo
ICYgYmFmZmxlZD9ccGFyDQpccGFyDQpccGFyDQpUaGUgZmlyc3QgbW9kdWxlIGNyZWF0ZXMgYSBz
bWFsbCBETEwuXHBhcg0KXHBhcg0KVGhlIHNlY29uZCB0d28gdGVzdCBpdC4gSXQgYWxsIHdvcmtz
IGZpbmUuXHBhcg0KXHBhcg0KQnV0IHdoZW4gSSByZWRlY2xhcmUgc3VtIGJ5IHRoZSBjb21tZW50
ZWQgbGluZSBpdCBjcmFzaGVzIHdpdGhccGFyDQphbiBpbGxlZ2FsIG1lbW9yeSByZWFkIG1lc3Nh
Z2UuXHBhcg0KXHBhcg0KXHBhcg0KVGhhbmtzXHBhcg0KXHBhcg0KUm9iZXJ0LlxwYXINClxwYXIN
ClxwYXINClxwYXINClxwYXINCk1PRFVMRSAgRGVtb0FkZEZ1bmN0aW9uO1xwYXINClxwYXINClRZ
UEVccGFyDQogIFJlYWwgID0gIFBPSU5URVIgIFRPICBSRUNPUkQgIHogOiBSRUFMICBFTkQ7XHBh
cg0KXHBhcg0KUFJPQ0VEVVJFICBBZGRkKiAoYSwgYiA6IFJFQUw7IHN1bSA6IFJlYWwpO1xwYXIN
CiAgQkVHSU5ccGFyDQogICAgc3VtLnogIDo9ICBhICsgYlxwYXINCiAgRU5EICBBZGRkO1xwYXIN
ClxwYXINCkVORCAgRGVtb0FkZEZ1bmN0aW9uLlxwYXINClxwYXINCjxRPiAgIERldkxpbmtlci5M
aW5rRGxsICAgIERlbW9BZGREbGwuZGxsIDo9IERlbW9BZGRGdW5jdGlvbiMgICB+XHBhcg0KXHBh
cg0KXHBhcg0KXHBhcg0KTU9EVUxFICBEZW1vQWRkSW50ZXJmYWNlIFsiXFxCbGFja0JveFxcRGVt
b0FkZERsbCJdO1xwYXINClxwYXINClRZUEVccGFyDQogIFJlYWwqICA9ICBQT0lOVEVSICBUTyAg
UkVDT1JEICB6KiA6IFJFQUwgIEVORDtccGFyDQpccGFyDQpQUk9DRURVUkUgIEFkZCogIFsnQWRk
ZCddIChhLCBiIDogUkVBTDsgc3VtIDogQU5ZUFRSKTtccGFyDQpccGFyDQpFTkQgIERlbW9BZGRJ
bnRlcmZhY2UuXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KTU9EVUxFICBEZW1vQWRkVGVz
dDtccGFyDQpccGFyDQpJTVBPUlQgIERlbW9BZGRJbnRlcmZhY2UsIFN0ZExvZztccGFyDQpccGFy
DQpUWVBFXHBhcg0KICBSZWFsKiAgPSAgUE9JTlRFUiAgVE8gIFJFQ09SRCAgeiogOiBSRUFMICBF
TkQ7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFICBEbyo7XHBhcg0KICBWQVJccGFyDQogICAgc3VtICA6
ICBSZWFsO1xwYXINCigqICBzdW0gIDogIERlbW9BZGRJbnRlcmZhY2UuUmVhbDsgICopXHBhcg0K
ICBCRUdJTlxwYXINCiAgICBORVcgKHN1bSk7XHBhcg0KICAgIERlbW9BZGRJbnRlcmZhY2UuQWRk
ICgyLjYsIDYuMSwgc3VtKTtccGFyDQpccGFyDQogICAgU3RkTG9nLlN0cmluZyAoJzIuNiArIDYu
MSAgIDonKTsgU3RkTG9nLlJlYWwgKHN1bS56KTsgU3RkTG9nLkxuXHBhcg0KICBFTkQgIERvO1xw
YXINClxwYXINCkVORCAgRGVtb0FkZFRlc3QuXHBhcg0KXHBhcg0KPFE+ICBEZXZEZWJ1Zy5Vbmxv
YWRccGFyDQpccGFyDQo8UT4gIERlbW9BZGRUZXN0LkRvPiBccGFyDQpccGFyDQpTRUxFWCBTZW5z
b3JzIGFuZCBBaXJib3JuZSBTeXN0ZW1zIExpbWl0ZWRccGFyDQpSZWdpc3RlcmVkIE9mZmljZTog
U2lnbWEgSG91c2UsIENocmlzdG9waGVyIE1hcnRpbiBSb2FkLCBCYXNpbGRvbiwgRXNzZXggU1Mx
NCAzRUxccGFyDQpBIGNvbXBhbnkgcmVnaXN0ZXJlZCBpbiBFbmdsYW5kICYgV2FsZXMuICBDb21w
YW55IG5vLiAwMjQyNjEzMlxwYXINCioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqXHBhcg0KVGhpcyBlbWFpbCBhbmQgYW55
IGF0dGFjaG1lbnRzIGFyZSBjb25maWRlbnRpYWwgdG8gdGhlIGludGVuZGVkXHBhcg0KcmVjaXBp
ZW50IGFuZCBtYXkgYWxzbyBiZSBwcml2aWxlZ2VkLiBJZiB5b3UgYXJlIG5vdCB0aGUgaW50ZW5k
ZWRccGFyDQpyZWNpcGllbnQgcGxlYXNlIGRlbGV0ZSBpdCBmcm9tIHlvdXIgc3lzdGVtIGFuZCBu
b3RpZnkgdGhlIHNlbmRlci5ccGFyDQpZb3Ugc2hvdWxkIG5vdCBjb3B5IGl0IG9yIHVzZSBpdCBm
b3IgYW55IHB1cnBvc2Ugbm9yIGRpc2Nsb3NlIG9yXHBhcg0KZGlzdHJpYnV0ZSBpdHMgY29udGVu
dHMgdG8gYW55IG90aGVyIHBlcnNvbi5ccGFyDQoqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKlxwYXINClxwYXINClxwYXIN
Ci0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdO
T0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFyDQp9
----boundary-LibPST-iamunique-1206721919_-_---

Received on Tue Feb 19 2008 - 10:38:02 UTC