Browse Source

+ Fixed XrmHashBucket and Xrmstring types, sas suggested by Jeff Pohlmeyer

michael 21 years ago
parent
commit
e964ce7ca3
1 changed files with 3 additions and 2 deletions
  1. 3 2
      packages/extra/x11/xresource.pp

+ 3 - 2
packages/extra/x11/xresource.pp

@@ -39,7 +39,8 @@ function NULLQUARK : TXrmQuark;
 type
 
    PXrmString = ^TXrmString;
-   TXrmString = char;
+   TXrmString = ^char;
+   
 function NULLSTRING : TXrmString;
 
 function XrmStringToQuark(para1:Pchar):TXrmQuark;cdecl;external libX11;
@@ -115,7 +116,7 @@ type
    PXrmHashBucket = ^TXrmHashBucket;
 
    PXrmHashTable = ^TXrmHashTable;
-   TXrmHashTable = TXrmHashBucket;
+   TXrmHashTable = ^TXrmHashBucket;
 
    TXrmDatabase = PXrmHashBucketRec;
    PXrmDatabase = ^TXrmDatabase;