compiler/PPCNodeVisitor.st
changeset 515 b5316ef15274
parent 502 1e45d3c96ec5
child 529 439c4057517f
equal deleted inserted replaced
502:1e45d3c96ec5 515:b5316ef15274
    51 
    51 
    52 !PPCNodeVisitor methodsFor:'traversing'!
    52 !PPCNodeVisitor methodsFor:'traversing'!
    53 
    53 
    54 close: node
    54 close: node
    55     self assert: (self isOpen: node) description: 'should be opened first!!'.
    55     self assert: (self isOpen: node) description: 'should be opened first!!'.
    56     
    56     openSet size > 500 ifTrue: [ self error: 'This seems to be a bit too much, isnt it?' ].
       
    57         
    57     openSet remove: node.
    58     openSet remove: node.
    58     closeSet add: node
    59     closeSet add: node
    59 !
    60 !
    60 
    61 
    61 isClosed: child
    62 isClosed: child
    66     ^ openSet includes: child
    67     ^ openSet includes: child
    67 !
    68 !
    68 
    69 
    69 open: node
    70 open: node
    70     self assert: (self isOpen: node) not description: 'already opened!!'.
    71     self assert: (self isOpen: node) not description: 'already opened!!'.
       
    72     openSet size > 100 ifTrue: [ self error: 'This seems to be a bit too much, isnt it?' ].
    71     openSet add: node
    73     openSet add: node
    72 !
    74 !
    73 
    75 
    74 visit: node
    76 visit: node
    75     | retval |
    77     | retval |