1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
$NetBSD: patch-ao,v 1.1 2007/09/29 12:08:25 rillig Exp $
Since gcc 4, type casts are no longer lvalues.
--- src/Burlap/descriptor.h.orig 2000-02-21 23:44:29.000000000 +0100
+++ src/Burlap/descriptor.h 2007-09-29 14:04:42.000000000 +0200
@@ -65,6 +65,7 @@
# define D_NumTypes (T_External + 1)
+# define D_uptr_as(d, Type) (*((Type *) &((d) -> u.ptr)))
# define D_Type(d) ((d) -> type)
# define D_Temp(d) ((d) -> temp)
# define D_Trapped(d) ((d) -> trapped)
@@ -80,19 +81,19 @@
# define D_Array(d) ((d) -> u.array)
# define D_Row(d) ((d) -> u.row)
# define D_Matrix(d) ((d) -> u.mtx)
-# define D_MatrixPtr(d) ((Matrix *) (d) -> u.ptr)
-# define D_Analysis(d) ((Analysis *) (d) -> u.ptr)
-# define D_Constraint(d) ((Constraint *) (d) -> u.ptr)
-# define D_Definition(d) ((Definition *) (d) -> u.ptr)
-# define D_Element(d) ((Element *) (d) -> u.ptr)
-# define D_Force(d) ((Force *) (d) -> u.ptr)
-# define D_Load(d) ((Distributed *) (d) -> u.ptr)
-# define D_Material(d) ((Material *) (d) -> u.ptr)
-# define D_Node(d) ((Node *) (d) -> u.ptr)
-# define D_Pair(d) ((Pair *) (d) -> u.ptr)
-# define D_Problem(d) ((Problem *) (d) -> u.ptr)
-# define D_Stress(d) ((Stress *) (d) -> u.ptr)
-# define D_External(d) ((int (**) ( )) (d) -> u.ptr)
+# define D_MatrixPtr(d) D_uptr_as((d), Matrix *)
+# define D_Analysis(d) D_uptr_as((d), Analysis *)
+# define D_Constraint(d) D_uptr_as((d), Constraint *)
+# define D_Definition(d) D_uptr_as((d), Definition *)
+# define D_Element(d) D_uptr_as((d), Element *)
+# define D_Force(d) D_uptr_as((d), Force *)
+# define D_Load(d) D_uptr_as((d), Distributed *)
+# define D_Material(d) D_uptr_as((d), Material *)
+# define D_Node(d) D_uptr_as((d), Node *)
+# define D_Pair(d) D_uptr_as((d), Pair *)
+# define D_Problem(d) D_uptr_as((d), Problem *)
+# define D_Stress(d) D_uptr_as((d), Stress *)
+# define D_External(d) (*((int (***) ( )) &((d) -> u.ptr)))
# define D_TypeName(d) (type_names [D_Type (d)])
# define D_Direct(d) (D_Type (d) == T_Analysis || \
D_Type (d) == T_Problem || D_Type (d) == T_Pair)
|