- declaring the missing pointer types for the Boolean types is no longer necessary

git-svn-id: trunk@42033 -

packages/rtl-objpas/src/i386/invoke.inc

@@ -123,12 +123,6 @@ resourcestring
 
 procedure SystemInvokeRegister(aCodeAddress: CodePointer; const aArgs: TFunctionCallParameterArray; aCallConv: TCallConv;
             aResultType: PTypeInfo; aResultValue: Pointer; aFlags: TFunctionCallFlags);
-type
-  PBoolean16 = ^Boolean16;
-  PBoolean32 = ^Boolean32;
-  PBoolean64 = ^Boolean64;
-  PByteBool = ^ByteBool;
-  PQWordBool = ^QWordBool;
 var
   regstack: array of PtrUInt;
   stackargs: array of SizeInt;

packages/rtl-objpas/src/x86_64/invoke.inc

@@ -125,12 +125,6 @@ end;
 
 procedure SystemInvoke(aCodeAddress: CodePointer; const aArgs: TFunctionCallParameterArray; aCallConv: TCallConv;
             aResultType: PTypeInfo; aResultValue: Pointer; aFlags: TFunctionCallFlags);
-type
-  PBoolean16 = ^Boolean16;
-  PBoolean32 = ^Boolean32;
-  PBoolean64 = ^Boolean64;
-  PByteBool = ^ByteBool;
-  PQWordBool = ^QWordBool;
 var
   stackarea: array of PtrUInt;
   stackptr: Pointer;
@@ -518,12 +512,6 @@ begin
 end;
 
 procedure TSystemFunctionCallback.CreateArgInfos;
-type
-  PBoolean16 = ^Boolean16;
-  PBoolean32 = ^Boolean32;
-  PBoolean64 = ^Boolean64;
-  PByteBool = ^ByteBool;
-  PQWordBool = ^QWordBool;
 var
   i, argidx, ofs: LongInt;
   td: PTypeData;