* the Exception constructors' AHelpContext parameter changed from Integer to

  Longint

git-svn-id: trunk@27043 -

rtl/objpas/sysutils/sysutilh.inc

@@ -113,12 +113,12 @@ type
       constructor CreateFmt(const msg : string; const args : array of const);
       constructor CreateRes(ResString: PString);
       constructor CreateResFmt(ResString: PString; const Args: array of const);
-      constructor CreateHelp(const Msg: string; AHelpContext: Integer);
+      constructor CreateHelp(const Msg: string; AHelpContext: Longint);
       constructor CreateFmtHelp(const Msg: string; const Args: array of const;
-        AHelpContext: Integer);
-      constructor CreateResHelp(ResString: PString; AHelpContext: Integer);
+        AHelpContext: Longint);
+      constructor CreateResHelp(ResString: PString; AHelpContext: Longint);
       constructor CreateResFmtHelp(ResString: PString; const Args: array of const;
-        AHelpContext: Integer);
+        AHelpContext: Longint);
       Function ToString : String; override;  
       { !!!! }
       property HelpContext : longint read fhelpcontext write fhelpcontext;

rtl/objpas/sysutils/sysutils.inc

@@ -194,7 +194,7 @@ end;
       end;
 
 
-    constructor Exception.CreateHelp(const Msg: string; AHelpContext: Integer);
+    constructor Exception.CreateHelp(const Msg: string; AHelpContext: Longint);
 
       begin
          inherited create;
@@ -204,7 +204,7 @@ end;
 
 
     constructor Exception.CreateFmtHelp(const Msg: string; const Args: array of const;
-      AHelpContext: Integer);
+      AHelpContext: Longint);
 
     begin
        inherited create;
@@ -213,7 +213,7 @@ end;
     end;
 
 
-    constructor Exception.CreateResHelp(ResString: PString; AHelpContext: Integer);
+    constructor Exception.CreateResHelp(ResString: PString; AHelpContext: Longint);
 
     begin
        inherited create;
@@ -223,7 +223,7 @@ end;
 
 
     constructor Exception.CreateResFmtHelp(ResString: PString; const Args: array of const;
-      AHelpContext: Integer);
+      AHelpContext: Longint);
 
     begin
        inherited create;