diff options
Diffstat (limited to 'utils/h2pas/h2poptions.pas')
| -rw-r--r-- | utils/h2pas/h2poptions.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/h2pas/h2poptions.pas b/utils/h2pas/h2poptions.pas index 3d8cda2121..3f78e2c064 100644 --- a/utils/h2pas/h2poptions.pas +++ b/utils/h2pas/h2poptions.pas @@ -16,7 +16,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ****************************************************************************} + unit h2poptions; +{$H+} interface const @@ -138,7 +140,7 @@ end; Procedure ProcessOptions; Var - cp : string; + cp : string[255]; {because of cp[3] indexing} I : longint; Function GetNextParam (const Opt,Name : String) : string; |