diff options
| author | Jeroen van Rijn <Kelimion@users.noreply.github.com> | 2024-09-30 08:01:36 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-09-30 08:01:36 +0200 |
| commit | 7f9cfd15797427f654584960065be4b0a024d9d6 (patch) | |
| tree | 6b7966c7823c0e7032db4d4796495d2716da5272 /src | |
| parent | 38fedf26318d53fa92e3d57a8668114b245918d8 (diff) | |
| parent | e3eea1b9fa7aee552cb07abdd4820dd0380dc2aa (diff) | |
Merge pull request #4327 from beaumccartney/fix-deferred-attrib-error-report
fix #4326
Diffstat (limited to 'src')
| -rw-r--r-- | src/checker.cpp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/checker.cpp b/src/checker.cpp index af1e0e675..54807d43f 100644 --- a/src/checker.cpp +++ b/src/checker.cpp @@ -6206,7 +6206,7 @@ gb_internal void check_deferred_procedures(Checker *c) { } if ((src_params == nullptr && dst_params != nullptr) || (src_params != nullptr && dst_params == nullptr)) { - error(src->token, "Deferred procedure '%.*s' parameters do not match the inputs of initial procedure '%.*s'", LIT(src->token.string), LIT(dst->token.string)); + error(src->token, "Deferred procedure '%.*s' parameters do not match the inputs of initial procedure '%.*s'", LIT(dst->token.string), LIT(src->token.string)); continue; } @@ -6219,8 +6219,8 @@ gb_internal void check_deferred_procedures(Checker *c) { gbString s = type_to_string(src_params); gbString d = type_to_string(dst_params); error(src->token, "Deferred procedure '%.*s' parameters do not match the inputs of initial procedure '%.*s':\n\t(%s) =/= (%s)", - LIT(src->token.string), LIT(dst->token.string), - s, d + LIT(dst->token.string), LIT(src->token.string), + d, s ); gb_string_free(d); gb_string_free(s); @@ -6236,7 +6236,7 @@ gb_internal void check_deferred_procedures(Checker *c) { } if ((src_results == nullptr && dst_params != nullptr) || (src_results != nullptr && dst_params == nullptr)) { - error(src->token, "Deferred procedure '%.*s' parameters do not match the results of initial procedure '%.*s'", LIT(src->token.string), LIT(dst->token.string)); + error(src->token, "Deferred procedure '%.*s' parameters do not match the results of initial procedure '%.*s'", LIT(dst->token.string), LIT(src->token.string)); continue; } @@ -6249,8 +6249,8 @@ gb_internal void check_deferred_procedures(Checker *c) { gbString s = type_to_string(src_results); gbString d = type_to_string(dst_params); error(src->token, "Deferred procedure '%.*s' parameters do not match the results of initial procedure '%.*s':\n\t(%s) =/= (%s)", - LIT(src->token.string), LIT(dst->token.string), - s, d + LIT(dst->token.string), LIT(src->token.string), + d, s ); gb_string_free(d); gb_string_free(s); @@ -6302,8 +6302,8 @@ gb_internal void check_deferred_procedures(Checker *c) { gbString s = type_to_string(tsrc); gbString d = type_to_string(dst_params); error(src->token, "Deferred procedure '%.*s' parameters do not match the results of initial procedure '%.*s':\n\t(%s) =/= (%s)", - LIT(src->token.string), LIT(dst->token.string), - s, d + LIT(dst->token.string), LIT(src->token.string), + d, s ); gb_string_free(d); gb_string_free(s); |