7 lines
276 B
Text
7 lines
276 B
Text
include pmaths.e -- (needed pre-0.8.1 to work around a compiler bug [oops])
|
|
--include complex.e -- (not an auto-include, needed in all versions)
|
|
integer r_abs = routine_id("abs")
|
|
--integer r_abs = routine_id("complex_abs")
|
|
if r_abs!=-1 then
|
|
?call_func(r_abs,{-42})
|
|
end if
|