redef class MMAttribute
# Compile a read acces on selffor a given reciever.
- meth compile_read_access(v: CompilerVisitor, recv: String): String
+ meth compile_read_access(v: CompilerVisitor, n: PNode, recv: String): String
do
- return "{global.attr_access}({recv}) /*{local_class}::{name}*/"
+ var res = "{global.attr_access}({recv}) /*{local_class}::{name}*/"
+ if not signature.return_type.is_nullable and v.tc.opt_warn.value > 0 then
+ res = v.ensure_var(res, "{local_class}::{name}")
+ v.add_instr("if ({res} == NIT_NULL) \{ fprintf(stderr, \"Uninitialized attribute %s\", \"{name}\"); {v.printf_locate_error(n)} } /* implicit isset */;")
+ end
+ return res
end
# Compile a write acces on selffor a given reciever.
- meth compile_write_access(v: CompilerVisitor, recv: String, value: String)
+ meth compile_write_access(v: CompilerVisitor, n: PNode, recv: String, value: String)
do
v.add_instr("{global.attr_access}({recv}) /*{local_class}::{name}*/ = {value};")
end
redef class MMReadImplementationMethod
redef meth do_compile_inside(v, params)
do
- return node.prop.compile_read_access(v, params[0])
+ return node.prop.compile_read_access(v, node, params[0])
end
end
redef class MMWriteImplementationMethod
redef meth do_compile_inside(v, params)
do
- node.prop.compile_write_access(v, params[0], params[1])
+ node.prop.compile_write_access(v, node, params[0], params[1])
return null
end
end
end
for i in [f..params.length[ do
var attribute = unassigned_attributes[i-f]
- attribute.compile_write_access(v, recv, params[i])
+ attribute.compile_write_access(v, null, recv, params[i])
end
return null
end
redef meth compile_expr(v)
do
var e = v.compile_expr(n_expr)
- return prop.compile_read_access(v, e)
+ return prop.compile_read_access(v, n_id, e)
end
end
do
var e = v.compile_expr(n_expr)
var e2 = v.compile_expr(n_value)
- prop.compile_write_access(v, e, e2)
+ prop.compile_write_access(v, n_id, e, e2)
end
end
redef class AAttrReassignExpr
redef meth compile_stmt(v)
do
var e1 = v.compile_expr(n_expr)
- var e2 = prop.compile_read_access(v, e1)
+ var e2 = prop.compile_read_access(v, n_id, e1)
var e3 = v.compile_expr(n_value)
var e4 = assign_method.compile_expr_call(v, [e2, e3])
- prop.compile_write_access(v, e1, e4)
+ prop.compile_write_access(v, n_id, e1, e4)
end
end
--- /dev/null
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# Copyright 2004-2008 Jean Privat <jean@pryen.org>
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+import end
+
+interface Object
+end
+
+universal Int
+ meth output is intern
+ meth +(o: Int): Int is intern
+end
+
+class Integer
+ readable writable attr _val: Int
+ init(val: Int) do _val = val
+ meth output do _val.output
+end
+
+class Foo
+ attr _a1: Integer
+ readable attr _a2: Integer
+ meth run
+ do
+ _a1.output
+ a2.output
+ end
+
+ meth run_other(o: Foo)
+ do
+ o._a1.output
+ o._a2.output
+ end
+
+ init
+ do
+ #alt1#run
+ _a1 = new Integer(1)
+ #alt2#run
+ _a2 = new Integer(_a1.val + 1)
+ end
+
+ init nop do end
+end
+
+class Bar
+special Foo
+ attr _a3: Integer
+ redef meth run
+ do
+ _a1.output
+ _a2.output
+ _a3.output
+ end
+
+ init
+ do
+ nop
+ #alt3#run
+ _a1 = new Integer(10)
+ #alt4#run_other(self)
+ _a2 = new Integer(20)
+ #alt5#run
+ _a3 = new Integer(30)
+ end
+end
+
+var f = new Foo
+var b = new Bar
+f.run
+b.run