summary refs log tree commit diff stats
path: root/tests/bind
diff options
context:
space:
mode:
authorAraq <rumpf_a@web.de>2014-01-12 21:41:52 +0100
committerAraq <rumpf_a@web.de>2014-01-12 21:41:52 +0100
commit616434c4922373db8072a47d0d8cd1a2e129ab95 (patch)
treef44ed05bec2d8e74a1e6b1dca5995938e7725e23 /tests/bind
parent137e97154729726d650d1aa75042e7604fb266f9 (diff)
downloadNim-616434c4922373db8072a47d0d8cd1a2e129ab95.tar.gz
bugfix: renderer supports 'ptr' etc. as type constraint
Diffstat (limited to 'tests/bind')
0 files changed, 0 insertions, 0 deletions
 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-02-13 13:08:06 +0000


 


vel&id=326bdae8ca14a981f5ab8c553fbba45e28a36082'>326bdae8c ^

172b6aacf ^



7ae6b7e9a ^

172b6aacf ^












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
48
49
50
51
52
53



           



                     







                                                      
                                            























                                                
                                


                                  
                                      









                                
discard """
output: '''
Subobject test called
5
'''
"""

type
  TClassOfTCustomObject {.pure, inheritable.} = object
    base* : ptr TClassOfTCustomObject
    className* : string
  TClassOfTobj = object of TClassOfTCustomObject
    nil
  TCustomObject {.inheritable.} = ref object
    class* : ptr TClassOfTCustomObject
  TObj = ref object of TCustomObject
    data: int

var ClassOfTObj: TClassOfTObj

proc initClassOfTObj() =
  ClassOfTObj.base = nil
  ClassOfTObj.className = "TObj"

initClassOfTObj()

proc initialize*(self: TObj) =
  self.class = addr ClassOfTObj
  # this generates wrong C code: && instead of &

proc newInstance(T: typedesc): T =
  mixin initialize
  new(result)
  initialize(result)

var o = TObj.newInstance()

type
    TestObj* = object of RootObj
        t:int
    SubObject* = object of TestObj

method test*(t:var TestObj) {.base.} =
    echo "test called"

method test*(t:var SubObject) =
    echo "Subobject test called"
    t.t= 5

var a: SubObject

a.test()
echo a.t