Mercurial > pub > dyncall > dyncall
annotate test/sign/sign.c @ 410:7608e34098b0
- cleanups, simplifications, some api clarification, ...
- test cases consistency:
* return status code depending on test results (for actual conformance tests, not stuff that is not an example or hack to check something, ..)
* platform init helper added for some
| author | Tassilo Philipp |
|---|---|
| date | Tue, 05 Oct 2021 21:53:04 +0200 |
| parents | f5577f6bf97a |
| children | e2899b4ff713 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: test | |
| 5 File: test/sign/sign.c | |
| 6 Description: | |
| 7 License: | |
| 8 | |
|
410
7608e34098b0
- cleanups, simplifications, some api clarification, ...
Tassilo Philipp
parents:
281
diff
changeset
|
9 Copyright (c) 2011-2021 Daniel Adler <dadler@uni-goettingen.de>, |
| 0 | 10 Tassilo Philipp <tphilipp@potion-studios.com> |
| 11 | |
| 12 Permission to use, copy, modify, and distribute this software for any | |
| 13 purpose with or without fee is hereby granted, provided that the above | |
| 14 copyright notice and this permission notice appear in all copies. | |
| 15 | |
| 16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
| 17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
| 18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
| 19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
| 20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
| 21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
| 22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
| 23 | |
| 24 */ | |
| 25 | |
| 26 | |
| 27 #include "dyncall.h" | |
| 28 | |
| 29 // This program demonstrates the need for 'unsigned' integers and the | |
| 30 // ability to implement zero/sign extensions for small integers. | |
| 31 // This test program indicates failure on powerpc 32-bit with | |
| 32 // compiler optimizations enabled (e.g. '-O2' compilation flags). | |
| 33 // | |
| 34 // A fix to be incorporated in the API is also given. | |
| 35 // | |
| 36 | |
| 37 int add1s(unsigned short x) { return x + 1; } | |
| 38 | |
| 39 // API BUGFIX: | |
| 40 #define dcArgUShort(vm,x) dcArgInt(vm,(int)(unsigned int)(x)) | |
| 41 | |
| 42 // OLD TEST: int add1(unsigned char x) { return x + 1; } | |
| 43 | |
| 44 int main(int argc, char* argv[]) | |
| 45 { | |
| 46 DCCallVM* vm; | |
| 47 int result; | |
| 48 int total; | |
| 49 vm = dcNewCallVM(4096); | |
| 50 dcReset(vm); | |
| 51 | |
| 52 dcArgShort(vm, 0xFFFF ); | |
| 53 result = dcCallInt( vm, &add1s ); | |
| 54 total = (result == 0x10000); | |
| 55 printf("result: sign: %d\n", total); | |
| 56 | |
| 57 if (!total) { | |
| 58 // | |
| 59 // TEST BUGFIX: use instead.. | |
| 60 // | |
| 61 dcReset(vm); | |
| 62 dcArgUShort( vm, 0xFFFF ); | |
| 63 result = dcCallInt( vm, &add1s ); | |
| 64 total = (result == 0x10000); | |
| 65 printf("result: sign (bugfix): %d\n", total); | |
| 66 } | |
| 67 | |
| 68 // result = dcCallInt( vm, &add1s ); | |
| 69 // total = (result == 0x10000); | |
| 70 | |
| 71 // OLD TEST: updated to using 'short' | |
| 72 // dcArgChar( vm, (char) 255 ); | |
| 73 // result = dcCallInt( vm, &add1 ); | |
| 74 // total = (result == 256); | |
| 75 | |
| 76 // printf("result: sign: %d\n", total); | |
| 77 return 0; | |
| 78 } |