diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-02 13:42:30 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-02 13:42:30 +0000 |
| commit | e61ae1a9b55b32b1c2ffe01f3328ec905994f8ee (patch) | |
| tree | 0374806872a754fbf5978c4e4a1357f4a975669b /packages/fcl-net | |
| parent | dcb381287b689aefd8c2f2f64d5ffaf911cc7f21 (diff) | |
| download | fpc-e61ae1a9b55b32b1c2ffe01f3328ec905994f8ee.tar.gz | |
* made FPathInfo field of TServletRequest protected instead of private,
because it's exposed by a property in a derived class
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13793 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-net')
| -rw-r--r-- | packages/fcl-net/src/servlets.pp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/packages/fcl-net/src/servlets.pp b/packages/fcl-net/src/servlets.pp index 85eaba8253..34dca4ba9a 100644 --- a/packages/fcl-net/src/servlets.pp +++ b/packages/fcl-net/src/servlets.pp @@ -35,8 +35,10 @@ type TServletRequest = class private FInputStream: TStream; - FScheme, FPathInfo: String; + FScheme: String; protected + FPathInfo: String; + function GetContentLength: Integer; virtual; abstract; function GetContentType: String; virtual; abstract; function GetProtocol: String; virtual; abstract; |