diff options
Diffstat (limited to 'packages/compiler/fpcp.pas')
| -rw-r--r-- | packages/compiler/fpcp.pas | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/packages/compiler/fpcp.pas b/packages/compiler/fpcp.pas index 78bd2bdd08..7b07ebe7ee 100644 --- a/packages/compiler/fpcp.pas +++ b/packages/compiler/fpcp.pas @@ -57,6 +57,7 @@ interface function getmodulestream(module:tmodulebase):tcstream; procedure initmoduleinfo(module:tmodulebase); procedure addunit(module:tmodulebase); + procedure add_required_package(pkg:tpackage); end; implementation @@ -551,5 +552,19 @@ implementation containedmodules.add(module.modulename^,containedunit); end; + + procedure tpcppackage.add_required_package(pkg:tpackage); + var + p : tpackage; + begin + p:=tpackage(requiredpackages.find(pkg.packagename^)); + if not assigned(p) then + requiredpackages.Add(pkg.packagename^,pkg) + else + if p<>pkg then + internalerror(2015112302); + end; + + end. |