diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-20 23:34:58 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-20 23:34:58 +0000 |
| commit | 4ca27e2d7bb6579ca67d916d9ba99486570c167b (patch) | |
| tree | 610bc3eeb2884609fe8ad5cb9aa1f6a1561d0a5b /tests | |
| parent | 1fb48f3becca2ba53793d05c944c562b5f73a53e (diff) | |
| parent | 8a8cc958027132a0aeb6c37a0dc6a2b875a2534e (diff) | |
| download | fpc-4ca27e2d7bb6579ca67d916d9ba99486570c167b.tar.gz | |
* synchronized with trunk
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/wasm@48248 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test/packages/fcl-registry/tregistry2.pp | 2 | ||||
| -rw-r--r-- | tests/webtbs/tw37060.pp | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/tests/test/packages/fcl-registry/tregistry2.pp b/tests/test/packages/fcl-registry/tregistry2.pp index 301883777d..7ed675bb7c 100644 --- a/tests/test/packages/fcl-registry/tregistry2.pp +++ b/tests/test/packages/fcl-registry/tregistry2.pp @@ -5,7 +5,7 @@ } {$ifdef FPC} {$mode delphi} {$endif} -uses Windows, SysUtils, Classes, registry; +uses SysUtils, Classes, registry; {$ifdef FPC} {$WARN implicit_string_cast_loss off} diff --git a/tests/webtbs/tw37060.pp b/tests/webtbs/tw37060.pp index c167a50887..847c5ede4f 100644 --- a/tests/webtbs/tw37060.pp +++ b/tests/webtbs/tw37060.pp @@ -4,7 +4,7 @@ program fp37060; uses sockets, Classes, SysUtils; -procedure BuildBadAddrs4(out bad_addrs: TStringList); +procedure BuildBadAddrs4(var bad_addrs: TStringList); begin bad_addrs.Add('1.1.1.1.1'); // too many octets bad_addrs.Add('0xa.3.4.5'); //hex in octets @@ -32,7 +32,7 @@ begin bad_addrs.Add('&7.&5.30.4'); // octal end; -procedure BuildGoodAddrs4(out good_addrs: TStringList); +procedure BuildGoodAddrs4(var good_addrs: TStringList); begin good_addrs.Add('127.0.0.1|127.0.0.1'); good_addrs.Add('0.0.0.0|0.0.0.0'); @@ -40,7 +40,7 @@ begin good_addrs.Add('255.255.255.255|255.255.255.255'); end; -procedure BuildBadAddrs6(out bad_addrs: TStringList); +procedure BuildBadAddrs6(var bad_addrs: TStringList); begin // start with some obviously bad formats. bad_addrs.Add(''); @@ -193,7 +193,7 @@ begin bad_addrs.Add('127.0.0.2'); end; -procedure BuildGoodAddrs6(out addrlist: TStringList); +procedure BuildGoodAddrs6(var addrlist: TStringList); begin // Each str is two parts, separated by a pipe. The left part is the input // address to be parsed, and the right is the expected result of taking the |