Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fix for #34375, make lpshcolumnid a pointer.

git-svn-id: trunk@39852 -
marco 6 years ago
parent
cec7188704
commit
618935b433
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/winunits-base/src/shlobj.pp

+ 1 - 1
packages/winunits-base/src/shlobj.pp
View File 

@@ -1018,7 +1018,7 @@ Type
 
       TCATEGORY_INFO = CATEGORY_INFO;
 
       TCATEGORY_INFO = CATEGORY_INFO;
 
       PCATEGORY_INFO = ^CATEGORY_INFO;
 
       PCATEGORY_INFO = ^CATEGORY_INFO;
 
 
 
-      LPSHColumnID = SHColumnID;
 
+      LPSHColumnID = ^SHColumnID;
 
       TSHColumnid = SHColumnID;
 
       TSHColumnid = SHColumnID;
 
       pSHColumnID = LPSHColumnID;
 
       pSHColumnID = LPSHColumnID;