2
0
Эх сурвалжийг харах

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

michael 21 жил өмнө
parent
commit
e964ce7ca3

+ 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;