diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-12-12 20:58:21 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-12-12 20:58:21 +0000 |
| commit | f0199d8611e2f058abf3fa737a2ebbce9f39d6cd (patch) | |
| tree | 24e9a06beb2d54fc87c150e9a7c4e7de8c804e09 /packages/cocoaint | |
| parent | d58d89138fb0d9dc27528c20cc31dffcb9fb7e27 (diff) | |
| download | fpc-f0199d8611e2f058abf3fa737a2ebbce9f39d6cd.tar.gz | |
* fixed C->Pascal type translations
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14429 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/cocoaint')
| -rw-r--r-- | packages/cocoaint/utils/objp_parser.php | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/packages/cocoaint/utils/objp_parser.php b/packages/cocoaint/utils/objp_parser.php index 7094ab3568..8c8ef15cd9 100644 --- a/packages/cocoaint/utils/objp_parser.php +++ b/packages/cocoaint/utils/objp_parser.php @@ -29,7 +29,7 @@ class TObjPParser extends TPasCocoaParser { "unsigned char"=>"char", "short"=>"cshort", "double"=>"double", "long long"=>"clonglong", // ??? new in instance var parser: (add to main section eventually) - "signed char"=>"char", "uint64_t"=>"clonglong", + "signed char"=>"char", "uint64_t"=>"qword", // work-arounds - the type replacement needs regex to handle with spaces I guess "void*"=>"Pointer", @@ -38,9 +38,9 @@ class TObjPParser extends TPasCocoaParser { "IBAction"=>"void", "IBOutlet"=>"", // special pointers - "const id *"=>"NSObjectArrayOfObjectsPtr", "Protocol *"=>"objc_protocol", "NSObject *"=>"NSObject", - "const char *"=>"PChar", "const void *"=>"Pointer", "unsigned char *"=>"Pointer", "char *"=>"Pointer", - "unsigned *"=>"Pointer", "unichar *"=>"PChar", "const unichar *"=>"PChar", + "const id *"=>"NSObjectArrayOfObjectsPtr", "Protocol *"=>"Protocol", "NSObject *"=>"NSObject", + "const char *"=>"PChar", "const void *"=>"Pointer", "unsigned char *"=>"Pointer", "char *"=>"PChar", + "unsigned *"=>"Pointer", "unichar *"=>"PWideChar", "const unichar *"=>"PWideChar", ); // These methods require that the last parameter append a trailing underscore (if $trailing_underscore is on) @@ -557,4 +557,4 @@ class TObjPParser extends TPasCocoaParser { } } -?>
\ No newline at end of file +?> |