equal
deleted
inserted
replaced
9 category:'Cface-C AST' |
9 category:'Cface-C AST' |
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !CDoubleNode methodsFor:'accessing'! |
13 !CDoubleNode methodsFor:'accessing'! |
|
14 |
|
15 cByteSize |
|
16 |
|
17 " |
|
18 Cface::CDoubleNode new cByteSize |
|
19 " |
|
20 |
|
21 %{ |
|
22 return __MKSMALLINT(sizeof(double)); |
|
23 %}. |
|
24 ^8 |
|
25 |
|
26 "Created: / 09-07-2008 / 19:33:02 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
27 ! |
14 |
28 |
15 ffiTypeSymbol |
29 ffiTypeSymbol |
16 "Superclass Cface::CTypeNode says that I am responsible to implement this method" |
30 "Superclass Cface::CTypeNode says that I am responsible to implement this method" |
17 |
31 |
18 ^ #double |
32 ^ #double |
24 "Superclass says that I am responsible to implement this method" |
38 "Superclass says that I am responsible to implement this method" |
25 |
39 |
26 ^#Float |
40 ^#Float |
27 |
41 |
28 "Created: / 12-02-2008 / 22:06:24 / janfrog" |
42 "Created: / 12-02-2008 / 22:06:24 / janfrog" |
|
43 ! |
|
44 |
|
45 smalltalkxValueExtractionSelector |
|
46 |
|
47 ^#doubleAt: |
|
48 |
|
49 "Created: / 09-07-2008 / 21:41:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
29 ! ! |
50 ! ! |
30 |
51 |
31 !CDoubleNode methodsFor:'printing'! |
52 !CDoubleNode methodsFor:'printing'! |
32 |
53 |
33 printOn: stream indent: indent |
54 printOn: stream indent: indent |