Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
Q
QueryR
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container registry
Model registry
Operate
Environments
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Julien Lopez
QueryR
Commits
1caddb8c
Commit
1caddb8c
authored
8 years ago
by
Lukas Stadler
Browse files
Options
Downloads
Patches
Plain Diff
small simplification in ReplacementNode
parent
902cb1f8
Branches
Branches containing commit
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/control/ReplacementNode.java
+13
-12
13 additions, 12 deletions
...c/com/oracle/truffle/r/nodes/control/ReplacementNode.java
with
13 additions
and
12 deletions
com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/control/ReplacementNode.java
+
13
−
12
View file @
1caddb8c
...
...
@@ -54,9 +54,9 @@ import com.oracle.truffle.r.runtime.nodes.RSyntaxElement;
import
com.oracle.truffle.r.runtime.nodes.RSyntaxLookup
;
import
com.oracle.truffle.r.runtime.nodes.RSyntaxNode
;
@NodeChild
(
value
=
"target"
)
@NodeChild
(
value
=
"target"
,
type
=
RNode
.
class
)
@TypeSystemReference
(
EmptyTypeSystemFlatLayout
.
class
)
abstract
class
ReplacementNode
extends
R
Node
{
abstract
class
ReplacementNode
extends
Node
{
private
final
int
tempNamesStartIndex
;
private
final
SourceSection
source
;
...
...
@@ -74,8 +74,10 @@ abstract class ReplacementNode extends RNode {
this
.
tempNamesStartIndex
=
tempNamesStartIndex
;
}
public
abstract
void
execute
(
VirtualFrame
frame
);
@Specialization
protected
Object
doRObject
(
VirtualFrame
frame
,
Object
target
,
protected
void
doRObject
(
VirtualFrame
frame
,
Object
target
,
@Cached
(
"createTargetTmpWrite()"
)
WriteVariableNode
targetTmpWrite
,
@Cached
(
"createTargetTmpRemove()"
)
RemoveAndAnswerNode
targetTmpRemove
,
@Cached
(
"createTargetWrite()"
)
WriteVariableNode
targetWrite
,
...
...
@@ -83,7 +85,6 @@ abstract class ReplacementNode extends RNode {
targetTmpWrite
.
execute
(
frame
,
target
);
replacement
.
execute
(
frame
);
targetWrite
.
execute
(
frame
,
targetTmpRemove
.
execute
(
frame
));
return
null
;
}
protected
final
WriteVariableNode
createTargetTmpWrite
()
{
...
...
@@ -102,7 +103,7 @@ abstract class ReplacementNode extends RNode {
return
createReplacementNode
(
true
);
}
private
R
Nod
e
createReplacementNodeWithoutSpecials
()
{
private
R
eplacementBas
e
createReplacementNodeWithoutSpecials
()
{
return
createReplacementNode
(
false
);
}
...
...
@@ -256,7 +257,10 @@ abstract class ReplacementNode extends RNode {
/**
* Base class for nodes implementing the actual replacement.
*/
protected
abstract
static
class
ReplacementBase
extends
RNode
{
protected
abstract
static
class
ReplacementBase
extends
Node
{
public
abstract
void
execute
(
VirtualFrame
frame
);
protected
final
ReplacementNode
getReplacementNodeParent
()
{
// Note: new DSL puts another node in between ReplacementBase instance and
// ReplacementNode, to be flexible we traverse the parents until we reach it
...
...
@@ -282,7 +286,7 @@ abstract class ReplacementNode extends RNode {
}
@Override
public
Object
execute
(
VirtualFrame
frame
)
{
public
void
execute
(
VirtualFrame
frame
)
{
try
{
// Note: the very last call is the actual assignment, e.g. [[<-, if this call's
// argument is shared, it bails out. Moreover, if that call's argument is not
...
...
@@ -290,10 +294,8 @@ abstract class ReplacementNode extends RNode {
// OK with not calling any other update function and just update the value directly.
replaceCall
.
execute
(
frame
);
}
catch
(
FullCallNeededException
|
RecursiveSpecialBailout
e
)
{
RNode
newReplacement
=
getReplacementNodeParent
().
createReplacementNodeWithoutSpecials
();
return
replace
(
newReplacement
).
execute
(
frame
);
replace
(
getReplacementNodeParent
().
createReplacementNodeWithoutSpecials
()).
execute
(
frame
);
}
return
null
;
}
}
...
...
@@ -309,11 +311,10 @@ abstract class ReplacementNode extends RNode {
@Override
@ExplodeLoop
public
Object
execute
(
VirtualFrame
frame
)
{
public
void
execute
(
VirtualFrame
frame
)
{
for
(
RNode
update
:
updates
)
{
update
.
execute
(
frame
);
}
return
null
;
}
}
}
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment