Posted to tcl by kbk at Thu Nov 12 19:08:15 GMT 2015view pretty
oo::define quadcode::database method transform {} { my variable quads my variable vars my variable types my variable ptype my variable rtype my copyprop my revprop my tidyjumps my insertExistenceAssertions my insertExistenceChecks my ssa my freeValues my determineVariableTypes my widenTypes my assignParameterTypes my determineReturnType return [list $rtype $ptype $types $quads] }