diff --git a/CHANGELOG.md b/CHANGELOG.md index 0e3579ecc..b651513dc 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -31,6 +31,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 - False positives from nested finally-except blocks in `RedundantJump`. - False positives around wrapped type declarations in `VisibilityKeywordIndentation`. - Trailing whitespace within comments not recognized in `TrailingWhitespace`. +- Overload resolution failures on the variant overload of the `Copy` intrinsic. - Several compiler directives were not being recognized: - `E` - `F` diff --git a/delphi-frontend/src/main/java/au/com/integradev/delphi/type/intrinsic/IntrinsicsInjector.java b/delphi-frontend/src/main/java/au/com/integradev/delphi/type/intrinsic/IntrinsicsInjector.java index d42b54c7a..09983ceda 100644 --- a/delphi-frontend/src/main/java/au/com/integradev/delphi/type/intrinsic/IntrinsicsInjector.java +++ b/delphi-frontend/src/main/java/au/com/integradev/delphi/type/intrinsic/IntrinsicsInjector.java @@ -192,6 +192,11 @@ private void buildRoutines() { .param(type(INTEGER)) .param(type(INTEGER)) .returns(IntrinsicReturnType.copy(typeFactory)); + routine("Copy") + .param(ANY_VARIANT) + .param(type(INTEGER)) + .param(type(INTEGER)) + .returns(IntrinsicReturnType.copy(typeFactory)); routine("Copy") .param(LIKE_DYNAMIC_ARRAY) .param(dynamicArraySizeType())