I don't think this it is the fault of patent law that companies do not fund basic research. I think is it just the fact that it is very hard to profit from basic research, fundamentally. If anything, patent law (for all its faults) at least tries to create some incentives.