annotate test/suite_x86win32std/mkcase.py @ 606:85b7a117b807

- more statics in test code (this is partly needed on an experimental freebsd sparc64 build where the elf cleanup code crashes for some reason ... it's probably that experimental build, but a good change to do regardless)
author Tassilo Philipp
date Wed, 21 Sep 2022 15:20:58 +0200
parents 3e629dc19168
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 #!/usr/bin/python
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2 #//////////////////////////////////////////////////////////////////////////////
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 #
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 # Copyright (c) 2007,2009 Daniel Adler <dadler@uni-goettingen.de>,
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 # Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 #
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 # Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 # purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 # copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 #
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 #
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 #//////////////////////////////////////////////////////////////////////////////
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 import sys
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23 # parameters
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25 nargs = 3
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 types = ["DCbool","DCint","DClonglong","DCdouble","DCpointer","DCfloat"]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 # generator
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31 ntypes = len(types)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33 sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37 def powerfact(x, n):
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38 if n==0:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 return 0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 else:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41 return x**n+powerfact(x,n-1)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43 x = 0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44 end = powerfact(ntypes,nargs)+1
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46 sys.stdout.write("/* auto generated by mkcase.py (on stdout) */\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
47
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
48 while x < end:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
49 args = [str(x)]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
50 sig = ["f_"]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51 pos = 0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52 y = x
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
53 while y > 0:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54 s = (y-1) % ntypes
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55 y = (y-1) / ntypes
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
56 args += [ types[s] ]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57 sig += [ types[s][2] ]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
58 pos += 1
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
59 sig = "".join(sig)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
60 args += [ sig ]
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
61 args = ",".join(args)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
62 sys.stdout.write( "".join(["VF",str(pos),"(",args,")\n"]) )
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
63 x += 1
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
64