Posted to tcl by kbk at Thu Nov 12 19:08:15 GMT 2015view raw

  1. oo::define quadcode::database method transform {} {
  2.  
  3. my variable quads
  4. my variable vars
  5. my variable types
  6. my variable ptype
  7. my variable rtype
  8.  
  9. my copyprop
  10. my revprop
  11. my tidyjumps
  12. my insertExistenceAssertions
  13. my insertExistenceChecks
  14. my ssa
  15. my freeValues
  16. my determineVariableTypes
  17. my widenTypes
  18. my assignParameterTypes
  19. my determineReturnType
  20.  
  21. return [list $rtype $ptype $types $quads]
  22.  
  23. }