* PChar -> PAnsiChar

packages/palmunits/src/applaunchcmd.pp

@@ -107,13 +107,13 @@ const
 
 type
   AddrLookupParamsType = record
-    title: PChar;
+    title: PAnsiChar;
       // Title to appear in the title bar.  If NULL the default is used.
 
-    pasteButtonText: PChar;
+    pasteButtonText: PAnsiChar;
       // Text to appear in paste button.  If NULL "paste" is used.
 
-    lookupString: array [0..addrLookupStringLength-1] of Char;
+    lookupString: array [0..addrLookupStringLength-1] of AnsiChar;
       // Buffer containing string to lookup.  If the string matches
       // only one record then that record is used without
       // presenting the user with the lookup dialog.
@@ -143,7 +143,7 @@ type
       // lookups.  False means a non unique and complete lookup
       // returns resultStringH set to 0 and recordID set to 0;
 
-    formatStringP: PChar;
+    formatStringP: PAnsiChar;
       // When the user selects the paste button a string is generated
       // to return data from the record.  The format of the result string
       // is controlled by this string.  All characters which appear
@@ -226,25 +226,25 @@ type
 
     padding: UInt8;
 
-    subject: PChar;
+    subject: PAnsiChar;
       // Message's subject, a null-terminated string (optional).
 
-    from: PChar;
+    from: PAnsiChar;
       // Message's send, a null-terminated string (not currently used).
 
-    to_: PChar;
+    to_: PAnsiChar;
       // Address the the recipient, a null-terminated string (required).
 
-    cc: PChar;
+    cc: PAnsiChar;
       // Copy Addresses, a null-terminated string (required).
 
-    bcc: PChar;
+    bcc: PAnsiChar;
       // Blind copy Addresses, a null-terminated string (required).
 
-    replyTo: PChar;
+    replyTo: PAnsiChar;
       // Reply to address, a null-terminated string (required).
 
-    body: PChar;
+    body: PAnsiChar;
       // The text of the message, a null-terminated string (required).
   end;
 
@@ -276,19 +276,19 @@ type
       // True means that signature from the Mail application's preferences
       // should be attached to the message.
 
-    subject: PChar;
+    subject: PAnsiChar;
       // Message's subject, a null-terminated string (optional).
 
-    from: PChar;
+    from: PAnsiChar;
       // Message's send, a null-terminated string (not currently used).
 
-    to_: PChar;
+    to_: PAnsiChar;
       // Address the the recipient, a null-terminated string (required).
 
-    replyTo: PChar;
+    replyTo: PAnsiChar;
       // Reply to address, a null-terminated string (required).
 
-    body: PChar;
+    body: PAnsiChar;
       // The text of the message, a null-terminated string (required).
   end;
 

packages/palmunits/src/bitmap.pp

@@ -179,7 +179,7 @@ implementation
 
 function ColorTableEntries(ctP: ColorTablePtr): RGBColorPtr;
 begin
-  ColorTableEntries := RGBColorPtr(PChar(ctP) + SizeOf(ctP^));
+  ColorTableEntries := RGBColorPtr(PAnsiChar(ctP) + SizeOf(ctP^));
 end;
 
 end.

packages/palmunits/src/category.pp

@@ -40,7 +40,7 @@ const
 type
   AppInfoType = record
     renamedCategories: UInt16;
-    categoryLabels: array [0..dmRecNumCategories-1, 0..dmCategoryLength-1] of Char;
+    categoryLabels: array [0..dmRecNumCategories-1, 0..dmCategoryLength-1] of AnsiChar;
     categoryUniqIDs: array [0..dmRecNumCategories-1] of UInt8;
     lastUniqID: UInt8; // Uniq IDs generated by the device are between
                        // 0 - 127.  Those from the PC are 128 - 255.
@@ -59,9 +59,9 @@ procedure CategoryFreeListV10(db: DmOpenRef; lst: ListPtr); syscall sysTrapCateg
 
 procedure CategoryFreeList(db: DmOpenRef; listP: ListPtr; showAll: Boolean; editingStrID: UInt32); syscall sysTrapCategoryFreeList;
 
-function CategoryFind(db: DmOpenRef; const name: PChar): UInt16; syscall sysTrapCategoryFind;
+function CategoryFind(db: DmOpenRef; const name: PAnsiChar): UInt16; syscall sysTrapCategoryFind;
 
-procedure CategoryGetName(db: DmOpenRef; index: UInt16; name: PChar); syscall sysTrapCategoryGetName;
+procedure CategoryGetName(db: DmOpenRef; index: UInt16; name: PAnsiChar); syscall sysTrapCategoryGetName;
 
 function CategoryEditV10(db: DmOpenRef; var category: UInt16): Boolean; syscall sysTrapCategoryEditV10;
 
@@ -70,20 +70,20 @@ function CategoryEditV20(db: DmOpenRef; var category: UInt16; titleStrID: UInt32
 function CategoryEdit(db: DmOpenRef; var category: UInt16; titleStrID: UInt32; numUneditableCategories: UInt8): Boolean; syscall sysTrapCategoryEdit;
 
 function CategorySelectV10(db: DmOpenRef; const frm: FormPtr; ctlID, lstID: UInt16; title: Boolean;
-                           var categoryP: UInt16; categoryName: PChar): Boolean; syscall sysTrapCategorySelectV10;
+                           var categoryP: UInt16; categoryName: PAnsiChar): Boolean; syscall sysTrapCategorySelectV10;
 
 function CategorySelect(db: DmOpenRef; const frm: FormPtr; ctlID, lstID: UInt16; title: Boolean; var categoryP: UInt16;
-                        categoryName: PChar; numUneditableCategories: UInt8; editingStrID: UInt32): Boolean; syscall sysTrapCategorySelect;
+                        categoryName: PAnsiChar; numUneditableCategories: UInt8; editingStrID: UInt32): Boolean; syscall sysTrapCategorySelect;
 
 function CategoryGetNext(db: DmOpenRef; index: UInt16): UInt16; syscall sysTrapCategoryGetNext;
 
-procedure CategorySetTriggerLabel(ctl: ControlPtr; name: PChar); syscall sysTrapCategorySetTriggerLabel;
+procedure CategorySetTriggerLabel(ctl: ControlPtr; name: PAnsiChar); syscall sysTrapCategorySetTriggerLabel;
 
-procedure CategoryTruncateName(name: PChar; maxWidth: UInt16); syscall sysTrapCategoryTruncateName;
+procedure CategoryTruncateName(name: PAnsiChar; maxWidth: UInt16); syscall sysTrapCategoryTruncateName;
 
 procedure CategoryInitialize(appInfoP: AppInfoPtr; localizedAppInfoStrID: UInt16); syscall sysTrapCategoryInitialize;
 
-procedure CategorySetName(db: DmOpenRef; index: UInt16; const nameP: PChar); syscall sysTrapCategorySetName;
+procedure CategorySetName(db: DmOpenRef; index: UInt16; const nameP: PAnsiChar); syscall sysTrapCategorySetName;
 
 implementation
 

packages/palmunits/src/connectionmgr.pp

@@ -411,7 +411,7 @@ function CncProfileSetCurrent(profileId: CncProfileID): Err; syscall sysTrapCncM
 
 function CncProfileGetCurrent(var profileIdP: CncProfileID): Err; syscall sysTrapCncMgrDispatch, sysTrapCncMgrProfileGetCurrent;
 
-function CncProfileGetIDFromName(const profileNameP: PChar; var profileIdP: CncProfileID): Err; syscall sysTrapCncMgrDispatch, sysTrapCncMgrProfileGetIDFromName;
+function CncProfileGetIDFromName(const profileNameP: PAnsiChar; var profileIdP: CncProfileID): Err; syscall sysTrapCncMgrDispatch, sysTrapCncMgrProfileGetIDFromName;
 
 function CncProfileCreate(var profileIdP: CncProfileID): Err; syscall sysTrapCncMgrDispatch, sysTrapCncMgrProfileCreate;
 
@@ -450,13 +450,13 @@ const
 
 function CncGetProfileList(var nameListPPP: PCharPtr; var countP: UInt16): Err; syscall sysTrapCncGetProfileList;
 
-function CncGetProfileInfo(name: PChar; var port, baud: UInt32; var volume, handShake: UInt16;
-                           initString: PChar; var resetString: Char; var isModem, isPulse: Boolean): Err; syscall sysTrapCncGetProfileInfo;
+function CncGetProfileInfo(name: PAnsiChar; var port, baud: UInt32; var volume, handShake: UInt16;
+                           initString: PAnsiChar; var resetString: AnsiChar; var isModem, isPulse: Boolean): Err; syscall sysTrapCncGetProfileInfo;
 
-function CncAddProfile(name: PChar; port, baud: UInt32; volum, handShake: UInt16;
-                       const initString, resetString: PChar; isMode, isPulse: Boolean): Err; syscall sysTrapCncAddProfile;
+function CncAddProfile(name: PAnsiChar; port, baud: UInt32; volum, handShake: UInt16;
+                       const initString, resetString: PAnsiChar; isMode, isPulse: Boolean): Err; syscall sysTrapCncAddProfile;
 
-function CncDeleteProfile(const name: PChar): Err; syscall sysTrapCncDeleteProfile;
+function CncDeleteProfile(const name: PAnsiChar): Err; syscall sysTrapCncDeleteProfile;
 
 
 implementation

packages/palmunits/src/consolemgr.pp

@@ -29,9 +29,9 @@ uses palmos, coretraps;
  * Console Manager Routines
  ********************************************************************)
 
-function ConPutS(const message: PChar): Err; syscall sysTrapConPutS;
+function ConPutS(const message: PAnsiChar): Err; syscall sysTrapConPutS;
 
-function ConGetS(message: PChar; timeout: Int32): Err; syscall sysTrapConGetS;
+function ConGetS(message: PAnsiChar; timeout: Int32): Err; syscall sysTrapConGetS;
 
 implementation
 

packages/palmunits/src/control.pp

@@ -81,7 +81,7 @@ type
 {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_CONTROLS} // These fields will not be available in the next OS release!
     id: UInt16;
     bounds: RectangleType;
-    text: PChar;
+    text: PAnsiChar;
     attr: ControlAttrType;
     style: ControlStyleType;
     font: FontID;
@@ -153,9 +153,9 @@ function CtlGetValue(const controlP: ControlPtr): Int16; syscall sysTrapCtlGetVa
 
 procedure CtlSetValue(controlP: ControlPtr; newValue: Int16); syscall sysTrapCtlSetValue;
 
-function CtlGetLabel(const controlP: ControlPtr): PChar; syscall sysTrapCtlGetLabel;
+function CtlGetLabel(const controlP: ControlPtr): PAnsiChar; syscall sysTrapCtlGetLabel;
 
-procedure CtlSetLabel(controlP: ControlPtr; const newLabel: PChar); syscall sysTrapCtlSetLabel;
+procedure CtlSetLabel(controlP: ControlPtr; const newLabel: PAnsiChar); syscall sysTrapCtlSetLabel;
 
 procedure CtlSetGraphics(ctlP: ControlPtr; newBitmapID, newSelectedBitmapID: DmResID); syscall sysTrapCtlSetGraphics;
 
@@ -172,7 +172,7 @@ function CtlHandleEvent(controlP: ControlPtr; pEvent: EventPtr): Boolean; syscal
 
 function CtlValidatePointer(const controlP: ControlPtr): Boolean; syscall sysTrapCtlValidatePointer;
 
-function CtlNewControl(formPP: PointerPtr; ID: UInt16; style: ControlStyleType; const textP: PChar;
+function CtlNewControl(formPP: PointerPtr; ID: UInt16; style: ControlStyleType; const textP: PAnsiChar;
                        x, y, width, height: Coord; font: FontID; group: UInt8; leftAnchor: Boolean): ControlPtr; syscall sysTrapCtlNewControl;
 
 function CtlNewGraphicControl(formPP: PointerPtr; ID: UInt16; style: ControlStyleType; bitmapID, selectedBitmapID: DmResID;

packages/palmunits/src/datamgr.pp

@@ -230,7 +230,7 @@ const
 function DmInit: Err; syscall sysTrapDmInit;
 
 // Directory Lists
-function DmCreateDatabase(cardNo: UInt16; const nameP: PChar;
+function DmCreateDatabase(cardNo: UInt16; const nameP: PAnsiChar;
                           creator, type_: UInt32; resDB: Boolean): Err; syscall sysTrapDmCreateDatabase;
 
 function DmCreateDatabaseFromImage(bufferP: MemPtr): Err; syscall sysTrapDmCreateDatabaseFromImage;
@@ -242,18 +242,18 @@ function DmNumDatabases(cardNo: UInt16): UInt16; syscall sysTrapDmNumDatabases;
 
 function DmGetDatabase(cardNo, index: UInt16): LocalID; syscall sysTrapDmGetDatabase;
 
-function DmFindDatabase(cardNo: UInt16; const nameP: PChar): LocalID; syscall sysTrapDmFindDatabase;
+function DmFindDatabase(cardNo: UInt16; const nameP: PAnsiChar): LocalID; syscall sysTrapDmFindDatabase;
 
 function DmGetNextDatabaseByTypeCreator(newSearch: Boolean; stateInfoP: DmSearchStatePtr;
                                         type_, creator: UInt32; onlyLatestVers: Boolean;
                                         var cardNoP: UInt16; var dbIDP: LocalID): Err; syscall sysTrapDmGetNextDatabaseByTypeCreator;
 
 // Database info
-function DmDatabaseInfo(cardNo: UInt16; dbID: LocalID; nameP: PChar;
+function DmDatabaseInfo(cardNo: UInt16; dbID: LocalID; nameP: PAnsiChar;
                         var attributesP, versionP: UInt16; var crDateP, modDateP, bckUpDateP, modNumP: UInt32;
                         var appInfoIDP, sortInfoIDP: LocalID; var typeP, creatorP: UInt32): Err; syscall sysTrapDmDatabaseInfo;
 
-function DmSetDatabaseInfo(cardNo: UInt16; dbID: LocalID; const nameP: PChar;
+function DmSetDatabaseInfo(cardNo: UInt16; dbID: LocalID; const nameP: PAnsiChar;
                            var attributesP, versionP: UInt16; var crDateP, modDateP, bckUpDateP, modNumP: UInt32;
                            var appInfoIDP, sortInfoIDP: LocalID; var typeP, creatorP: UInt32): Err; syscall sysTrapDmSetDatabaseInfo;
 
@@ -359,7 +359,7 @@ function DmWriteCheck(recordP: Pointer; offset, bytes: UInt32): Err; syscall sys
 // Writing
 function DmWrite(recordP: Pointer; offset: UInt32; const srcP: Pointer; bytes: UInt32): Err; syscall sysTrapDmWrite;
 
-function DmStrCopy(recordP: Pointer; offset: UInt32; const srcP: PChar): Err; syscall sysTrapDmStrCopy;
+function DmStrCopy(recordP: Pointer; offset: UInt32; const srcP: PAnsiChar): Err; syscall sysTrapDmStrCopy;
 
 function DmSet(recordP: Pointer; offset, bytes: UInt32; value: UInt8): Err; syscall sysTrapDmSet;
 

packages/palmunits/src/datetime.pp

@@ -54,7 +54,7 @@ const
 
 // pass a TimeFormatType
 // Use24HourFormat(t) ((t) == tfColon24h || (t) == tfDot24h || (t) == tfHours24h || (t) == tfComma24h)
-// TimeSeparator(t) ((Char) ( t <= tfColon24h ? ':' : (t <= tfDot24h ? '.' : ',')))
+// TimeSeparator(t) ((AnsiChar) ( t <= tfColon24h ? ':' : (t <= tfDot24h ? '.' : ',')))
 
 type
   DateFormatType = Enum;
@@ -268,13 +268,13 @@ function TimDateTimeToSeconds(dateTimeP: DateTimePtr): UInt32; syscall sysTrapTi
 
 procedure TimAdjust(dateTimeP: DateTimePtr; adjustment: Int32); syscall sysTrapTimAdjust;
 
-procedure TimeToAscii(hours, minutes: UInt8; timeFormat: TimeFormatType; pString: PChar); syscall sysTrapTimeToAscii;
+procedure TimeToAscii(hours, minutes: UInt8; timeFormat: TimeFormatType; pString: PAnsiChar); syscall sysTrapTimeToAscii;
 
 function TimTimeZoneToUTC(seconds: UInt32; timeZone: Int16; daylightSavingAdjustment: Int16): UInt32; syscall sysTrapTimTimeZoneToUTC;
 
 function TimUTCToTimeZone(seconds: UInt32; timeZone: Int16; daylightSavingAdjustment: Int16): UInt32; syscall sysTrapTimUTCToTimeZone;
 
-procedure TimeZoneToAscii(timeZone: Int16; localeP: LmLocalePtr; string_: PChar); syscall sysTrapTimeZoneToAscii;
+procedure TimeZoneToAscii(timeZone: Int16; localeP: LmLocalePtr; string_: PAnsiChar); syscall sysTrapTimeZoneToAscii;
 
 function DaysInMonth(month, year: Int16): Int16; syscall sysTrapDaysInMonth;
 
@@ -292,13 +292,13 @@ function DateToDays(date: DateType): UInt32; syscall sysTrapDateToDays;
 procedure DateAdjust(dateP: DatePtr; adjustment: Int32); syscall sysTrapDateAdjust;
 
 procedure DateToAscii(months, days: UInt8; years: UInt16;
-                      dateFormat: DateFormatType; pString: PChar); syscall sysTrapDateToAscii;
+                      dateFormat: DateFormatType; pString: PAnsiChar); syscall sysTrapDateToAscii;
 
 procedure DateToDOWDMFormat(months, days: UInt8; years: UInt16;
-                            dateFormat: DateFormatType; pString: PChar); syscall sysTrapDateToDOWDMFormat;
+                            dateFormat: DateFormatType; pString: PAnsiChar); syscall sysTrapDateToDOWDMFormat;
 
-function DateTemplateToAscii(const templateP: PChar; months, days: UInt8;
-                             years: UInt16; stringP: PChar; stringLen: Int16): UInt16; syscall sysTrapDateTemplateToAscii;
+function DateTemplateToAscii(const templateP: PAnsiChar; months, days: UInt8;
+                             years: UInt16; stringP: PAnsiChar; stringLen: Int16): UInt16; syscall sysTrapDateTemplateToAscii;
 
 implementation
 

packages/palmunits/src/dlserver.pp

@@ -99,7 +99,7 @@ type
 
   DlkUserInfoType = record
     header: DlkUserInfoHdrType;       // fixed size header
-    nameAndLog: array [0..1] of Char; // user name, followed by sync log;
+    nameAndLog: array [0..1] of AnsiChar; // user name, followed by sync log;
                                       // both null-terminated(for debugging)
   end;
 
@@ -167,7 +167,7 @@ type
 type
   DlkEventDatabaseOpenedType = record
     dbR: DmOpenRef;    // open database ref (v2.0)
-    dbNameP: PChar;    // database name
+    dbNameP: PAnsiChar;    // database name
     dbType: UInt32;    // databse type (v2.0)
     dbCreator: UInt32; // database creator
   end;
@@ -214,7 +214,7 @@ type
     dbR: DmOpenRef;              // TouchDown database access pointer -- if null, no current db
     cardNo: UInt16;              // memory module number
     dbCreator: UInt32;           // creator id
-    dbName: array [0..dmDBNameLength-1] of Char; // DB name
+    dbName: array [0..dmDBNameLength-1] of AnsiChar; // DB name
     dbOpenMode: UInt16;          // database open mode
     created: Boolean;            // true if the current db was created
     isResDB: Boolean;            // set to true if resource database
@@ -384,10 +384,10 @@ type
 function DlkStartServer(paramP: DlkServerParamPtr): Err; syscall sysTrapDlkStartServer;
 
 function DlkGetSyncInfo(var succSyncDateP, lastSyncDateP: UInt32;
-                        var syncStateP: DlkSyncStateType; nameBufP, logBufP: PChar;
+                        var syncStateP: DlkSyncStateType; nameBufP, logBufP: PAnsiChar;
                         var logLenP: Int32): Err; syscall sysTrapDlkGetSyncInfo;
 
-procedure DlkSetLogEntry(const textP: PChar; textLen: Int16; append: Boolean); syscall sysTrapDlkSetLogEntry;
+procedure DlkSetLogEntry(const textP: PAnsiChar; textLen: Int16; append: Boolean); syscall sysTrapDlkSetLogEntry;
 
 // Dispatch a DesktopLink request (exposed for patching)
 function DlkDispatchRequest(sessP: DlkServerSessionPtr): Err; syscall sysTrapDlkDispatchRequest;

packages/palmunits/src/errorbase.pp

@@ -238,7 +238,7 @@ function ErrExceptionList: MemPtrPtr; syscall sysTrapErrExceptionList;
 
 procedure ErrThrow(err_: Int32); syscall sysTrapErrThrow;
 
-procedure ErrDisplayFileLineMsg(const filename: PChar; lineNo: UInt16; const msg: PChar); syscall sysTrapErrDisplayFileLineMsg;
+procedure ErrDisplayFileLineMsg(const filename: PAnsiChar; lineNo: UInt16; const msg: PAnsiChar); syscall sysTrapErrDisplayFileLineMsg;
 
 //---------------------------------------------------------------------
 // 2/25/98 - New routine for PalmOS >3.0 to display a UI alert for
@@ -256,7 +256,7 @@ procedure ErrDisplayFileLineMsg(const filename: PChar; lineNo: UInt16; const msg
 //  macro below 'ErrAlert'
 //---------------------------------------------------------------------
 
-function ErrAlertCustom(errCode: Err; errMsgP, preMsgP, postMsgP: PChar): UInt16; syscall sysTrapErrAlertCustom;
+function ErrAlertCustom(errCode: Err; errMsgP, preMsgP, postMsgP: PAnsiChar): UInt16; syscall sysTrapErrAlertCustom;
 
 function ErrAlert(err: Err): UInt16;
 

packages/palmunits/src/exgmgr.pp

@@ -75,9 +75,9 @@ type
     UInt16  noStatus:1;      // Do not display status dialogs
     UInt16  reserved:12;     // reserved system flags
 }
-    description: PChar;      // text description of object (for user)
-    type_: PChar;            // Mime type of object (optional)
-    name: PChar;             // name of object, generally a file name (optional)
+    description: PAnsiChar;      // text description of object (for user)
+    type_: PAnsiChar;            // Mime type of object (optional)
+    name: PAnsiChar;             // name of object, generally a file name (optional)
   end;
 
   ExgSocketPtr = ^ExgSocketType;
@@ -109,7 +109,7 @@ type
   end;
 
 const
-  exgSeparatorChar    = #9;    // '\t' char used to separate multiple registry entries
+  exgSeparatorChar    = #9;    // '\t' AnsiChar used to separate multiple registry entries
 
   exgRegLibraryID     = $fffc; // library register thier presence
   exgRegExtensionID   = $fffd; // filename extenstion registry
@@ -123,7 +123,7 @@ const
 
 type
   ExgDBReadProc = function(dataP: Pointer; var sizeP: UInt32; userDataP: Pointer): Err;
-  ExgDBDeleteProc = function(const nameP: PChar; version, cardNo: UInt16; dbID: LocalID; userDataP: Pointer): Boolean;
+  ExgDBDeleteProc = function(const nameP: PAnsiChar; version, cardNo: UInt16; dbID: LocalID; userDataP: Pointer): Boolean;
   ExgDBWriteProc = function(const dataP: Pointer; var sizeP: UInt32; userDataP: Pointer): Err;
 
 function ExgInit: Err; syscall sysTrapExgInit;
@@ -142,7 +142,7 @@ function ExgSend(socketP: ExgSocketPtr; const bufP: Pointer; const bufLen: UInt3
 
 function ExgReceive(socketP: ExgSocketPtr; bufP: Pointer; const bufLen: UInt32; var err: Err): UInt32; syscall sysTrapExgReceive;
 
-function ExgRegisterData(const creatorID: UInt32; const id: UInt16; const dataTypesP: PChar): Err; syscall sysTrapExgRegisterData;
+function ExgRegisterData(const creatorID: UInt32; const id: UInt16; const dataTypesP: PAnsiChar): Err; syscall sysTrapExgRegisterData;
 
 function ExgNotifyReceive(socketP: ExgSocketPtr): Err; syscall sysTrapExgNotifyReceive;
 
@@ -152,7 +152,7 @@ function ExgDBRead(readProcP: ExgDBReadProc; deleteProcP: ExgDBDeleteProc;
                    var needResetP: Boolean; keepDates: Boolean): Err; syscall sysTrapExgDBRead;
 
 function ExgDBWrite(writeProcP: ExgDBWriteProc;
-                    userDataP: Pointer; const nameP: PChar; dbID: LocalID; cardNo: UInt16): Err; syscall sysTrapExgDBWrite;
+                    userDataP: Pointer; const nameP: PAnsiChar; dbID: LocalID; cardNo: UInt16): Err; syscall sysTrapExgDBWrite;
 
 
 function ExgDoDialog(socketP: ExgSocketPtr; var infoP: ExgDialogInfoType; var errP: Err): Boolean; syscall sysTrapExgDoDialog;

packages/palmunits/src/expansionmgr.pp

@@ -39,10 +39,10 @@ const
 type
   ExpCardInfoTag = record
     capabilityFlags: UInt32;                                       // bits for different stuff the card supports
-    manufacturerStr: array [0..expCardInfoStringMaxLen] of Char;   // Manufacturer, e.g., "Palm", "Motorola", etc...
-    productStr: array [0..expCardInfoStringMaxLen] of Char;        // Name of product, e.g., "SafeBackup 32MB"
-    deviceClassStr: array [0..expCardInfoStringMaxLen] of Char;    // Type of product, e.g., "Backup", "Ethernet", etc.
-    deviceUniqueIDStr: array [0..expCardInfoStringMaxLen] of Char; // Unique identifier for product, e.g., a serial number.  Set to "" if no such identifier exists.
+    manufacturerStr: array [0..expCardInfoStringMaxLen] of AnsiChar;   // Manufacturer, e.g., "Palm", "Motorola", etc...
+    productStr: array [0..expCardInfoStringMaxLen] of AnsiChar;        // Name of product, e.g., "SafeBackup 32MB"
+    deviceClassStr: array [0..expCardInfoStringMaxLen] of AnsiChar;    // Type of product, e.g., "Backup", "Ethernet", etc.
+    deviceUniqueIDStr: array [0..expCardInfoStringMaxLen] of AnsiChar; // Unique identifier for product, e.g., a serial number.  Set to "" if no such identifier exists.
   end;
   ExpCardInfoType = ExpCardInfoTag;
   ExpCardInfoPtr = ^ExpCardInfoType;

packages/palmunits/src/fatalalert.pp

@@ -29,7 +29,7 @@ const
   fatalEnterDebugger = 1;
   fatalDoNothing = $FFFF;
 
-function SysFatalAlert(const msg: PChar): UInt16; syscall sysTrapSysFatalAlert;
+function SysFatalAlert(const msg: PAnsiChar): UInt16; syscall sysTrapSysFatalAlert;
 
 procedure SysFatalAlertInit; syscall sysTrapSysFatalAlertInit;
 

packages/palmunits/src/field.pp

@@ -63,7 +63,7 @@ type
     start: UInt16;
     end_: UInt16;
     bufferLen: UInt16;
-    buffer: PChar;
+    buffer: PAnsiChar;
   {$endif}
   end;
   FieldUndoTag = FieldUndoType;
@@ -92,7 +92,7 @@ type
 
   LineInfoType = record
   {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_FIELDS} // These fields will not be available in the next OS release!
-    start: UInt16;  // position in text string of first char.
+    start: UInt16;  // position in text string of first AnsiChar.
     length: UInt16; // number of character in the line
   {$endif}
   end;
@@ -104,7 +104,7 @@ type
     id: UInt16;
     rect: RectangleType;
     attr: FieldAttrType;
-    text: PChar; // pointer to the start of text string
+    text: PAnsiChar; // pointer to the start of text string
     textHandle: MemHandle; // block the contains the text string
     lines: LineInfoPtr;
     textLen: UInt16;
@@ -143,7 +143,7 @@ procedure FldGetSelection(const fldP: FieldPtr; var startPosition, endPosition:
 
 function FldGetTextHandle(const fldP: FieldPtr): MemHandle; syscall sysTrapFldGetTextHandle;
 
-function FldGetTextPtr(const fldP: FieldPtr): PChar; syscall sysTrapFldGetTextPtr;
+function FldGetTextPtr(const fldP: FieldPtr): PAnsiChar; syscall sysTrapFldGetTextPtr;
 
 function FldHandleEvent(fldP: FieldPtr; eventP: EventPtr): Boolean; syscall sysTrapFldHandleEvent;
 
@@ -159,7 +159,7 @@ procedure FldSetText(fldP: FieldPtr; textHandle: MemHandle; offset, size: UInt16
 
 procedure FldSetTextHandle(fldP: FieldPtr; textHandle: MemHandle); syscall sysTrapFldSetTextHandle;
 
-procedure FldSetTextPtr(fldP: FieldPtr; textP: PChar); syscall sysTrapFldSetTextPtr;
+procedure FldSetTextPtr(fldP: FieldPtr; textP: PAnsiChar); syscall sysTrapFldSetTextPtr;
 
 procedure FldSetUsable(fldP: FieldPtr; usable: Boolean); syscall sysTrapFldSetUsable;
 
@@ -191,9 +191,9 @@ function FldGetVisibleLines(const fldP: FieldPtr): UInt16; syscall sysTrapFldGet
 
 function FldGetTextHeight(const fldP: FieldPtr): UInt16; syscall sysTrapFldGetTextHeight;
 
-function FldCalcFieldHeight(const chars: PChar; maxWidth: UInt16): UInt16; syscall sysTrapFldCalcFieldHeight;
+function FldCalcFieldHeight(const chars: PAnsiChar; maxWidth: UInt16): UInt16; syscall sysTrapFldCalcFieldHeight;
 
-function FldWordWrap(const chars: PChar; maxWidth: Int16): UInt16; syscall sysTrapFldWordWrap;
+function FldWordWrap(const chars: PAnsiChar; maxWidth: Int16): UInt16; syscall sysTrapFldWordWrap;
 
 procedure FldCompactText(fldP: FieldPtr); syscall sysTrapFldCompactText;
 
@@ -205,7 +205,7 @@ function FldGetMaxChars(const fldP: FieldPtr): UInt16; syscall sysTrapFldGetMaxC
 
 procedure FldSetMaxChars(fldP: FieldPtr; maxChars: UInt16); syscall sysTrapFldSetMaxChars;
 
-function FldInsert(fldP: FieldPtr; const insertChars: PChar; insertLen: UInt16): Boolean; syscall sysTrapFldInsert;
+function FldInsert(fldP: FieldPtr; const insertChars: PAnsiChar; insertLen: UInt16): Boolean; syscall sysTrapFldInsert;
 
 procedure FldDelete(fldP: FieldPtr; start, end_: UInt16); syscall sysTrapFldDelete;
 

packages/palmunits/src/filestream.pp

@@ -208,13 +208,13 @@ const
 
 // Open/create a file stream (name must all be valid -- non-null, non-empty)
 // (errP is optional - set to NULL to ignore)
-function FileOpen(cardNo: UInt16; const nameP: PChar; type_, creator, openMode: UInt32; var errP: Err): FileHand; syscall sysTrapFileOpen;
+function FileOpen(cardNo: UInt16; const nameP: PAnsiChar; type_, creator, openMode: UInt32; var errP: Err): FileHand; syscall sysTrapFileOpen;
 
 // Close the file stream
 function FileClose(stream: FileHand): Err; syscall sysTrapFileClose;
 
 // Delete a file
-function FileDelete(cardNo: UInt16; const nameP: PChar): Err; syscall sysTrapFileDelete;
+function FileDelete(cardNo: UInt16; const nameP: PAnsiChar): Err; syscall sysTrapFileDelete;
 
 (***********************************************************************
  *

packages/palmunits/src/find_.pp

@@ -49,8 +49,8 @@ type
     dbAccesMode: UInt16;                          // read mode and maybe show secret
     recordNum: UInt16;                            // index of last record that contained a match
     more: Boolean;                                // true of more matches to display
-    strAsTyped: array [0..maxFindStrLen] of Char; // search string as entered
-    strToFind: array [0..maxFindStrLen] of Char;  // search string is lower case
+    strAsTyped: array [0..maxFindStrLen] of AnsiChar; // search string as entered
+    strToFind: array [0..maxFindStrLen] of AnsiChar;  // search string is lower case
     reserved1: UInt8;
 
     // The lineNumber field can be modified by the app. The continuation field can
@@ -101,14 +101,14 @@ type
 
 procedure Find(goToP: GoToParamsPtr); syscall sysTrapFind;
 
-function FindStrInStr(strToSearch, strToFind: PChar; var posP: UInt16): Boolean; syscall sysTrapFindStrInStr;
+function FindStrInStr(strToSearch, strToFind: PAnsiChar; var posP: UInt16): Boolean; syscall sysTrapFindStrInStr;
 
 function FindSaveMatch(findParams: FindParamsPtr; recordNum, pos, fieldNum: UInt16;
                        appCustom: UInt32; cardNo: UInt16; dbID: LocalID): Boolean; syscall sysTrapFindSaveMatch;
 
 procedure FindGetLineBounds(const findParams: FindParamsPtr; r: RectanglePtr); syscall sysTrapFindGetLineBounds;
 
-function FindDrawHeader(findParams: FindParamsPtr; title: PChar): Boolean; syscall sysTrapFindDrawHeader;
+function FindDrawHeader(findParams: FindParamsPtr; title: PAnsiChar): Boolean; syscall sysTrapFindDrawHeader;
 
 implementation
 

packages/palmunits/src/floatmgr.pp

@@ -292,9 +292,9 @@ const
                 //          A workaround is to check (*signP && *mantissaP) instead of just *signP.
 function FlpBase10Info(a: FlpDouble; var mantissaP: UInt32; var exponentP, signP: Int16): Err; syscall sysTrapFlpDispatch, sysFloatBase10Info;
 
-function FlpFToA(a: FlpDouble; s: PChar): Err; syscall sysTrapFlpDispatch, sysFloatFToA;
+function FlpFToA(a: FlpDouble; s: PAnsiChar): Err; syscall sysTrapFlpDispatch, sysFloatFToA;
 
-function FlpAToF(const s: PChar): FlpDouble; syscall sysTrapFlpDispatch, sysFloatAToF;
+function FlpAToF(const s: PAnsiChar): FlpDouble; syscall sysTrapFlpDispatch, sysFloatAToF;
 
 function FlpCorrectedAdd(firstOperand, secondOperand: FlpDouble; howAccurate: Int16): FlpDouble; syscall sysTrapFlpDispatch, sysFloatCorrectedAdd;
 
@@ -323,7 +323,7 @@ function FlpCorrectedSub(firstOperand, secondOperand: FlpDouble;  howAccurate: I
 //
 // See the SDK's SampleCalc example for further discussion.
 
-procedure FlpBufferAToF(var result: FlpDouble; const s: PChar); syscall sysTrapFlpDispatch, sysFloatAToF;
+procedure FlpBufferAToF(var result: FlpDouble; const s: PAnsiChar); syscall sysTrapFlpDispatch, sysFloatAToF;
 
 procedure FlpBufferCorrectedAdd(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16); syscall sysTrapFlpDispatch, sysFloatCorrectedAdd;
 

packages/palmunits/src/font.pp

@@ -105,26 +105,26 @@ function FntLineHeight: Int16; syscall sysTrapFntLineHeight;
 
 function FntAverageCharWidth: Int16; syscall sysTrapFntAverageCharWidth;
 
-function FntCharWidth(ch: Char): Int16; syscall sysTrapFntCharWidth;
+function FntCharWidth(ch: AnsiChar): Int16; syscall sysTrapFntCharWidth;
 
 function FntWCharWidth(iChar: WChar): Int16; syscall sysTrapFntWCharWidth;
 
-function FntCharsWidth(const chars: PChar; len: Int16): Int16; syscall sysTrapFntCharsWidth;
+function FntCharsWidth(const chars: PAnsiChar; len: Int16): Int16; syscall sysTrapFntCharsWidth;
 
-function FntWidthToOffset(const pChars: PChar; length: UInt16; pixelWidth: Int16; var leadingEdge: Boolean; var truncWidth: Int16): Int16; syscall sysTrapFntWidthToOffset;
+function FntWidthToOffset(const pChars: PAnsiChar; length: UInt16; pixelWidth: Int16; var leadingEdge: Boolean; var truncWidth: Int16): Int16; syscall sysTrapFntWidthToOffset;
 
-procedure FntCharsInWidth(const AString: PChar; var stringWidthP, stringLengthP: Int16;
+procedure FntCharsInWidth(const AString: PAnsiChar; var stringWidthP, stringLengthP: Int16;
                           var fitWithinWidth: Boolean); syscall sysTrapFntCharsInWidth;
 
 function FntDescenderHeight: Int16; syscall sysTrapFntDescenderHeight;
 
-function FntLineWidth(const pChars: PChar; length: UInt16): Int16; syscall sysTrapFntLineWidth;
+function FntLineWidth(const pChars: PAnsiChar; length: UInt16): Int16; syscall sysTrapFntLineWidth;
 
-function FntWordWrap(const chars: PChar; maxWidth: UInt16): UInt16; syscall sysTrapFntWordWrap;
+function FntWordWrap(const chars: PAnsiChar; maxWidth: UInt16): UInt16; syscall sysTrapFntWordWrap;
 
-procedure FntWordWrapReverseNLines(const chars: PChar; maxWidth: UInt16; var linesToScrollP, scrollPosP: UInt16); syscall sysTrapFntWordWrapReverseNLines;
+procedure FntWordWrapReverseNLines(const chars: PAnsiChar; maxWidth: UInt16; var linesToScrollP, scrollPosP: UInt16); syscall sysTrapFntWordWrapReverseNLines;
 
-procedure FntGetScrollValues(const chars: PChar; width, scrollPos: UInt16; var linesP, topLine: UInt16); syscall sysTrapFntGetScrollValues;
+procedure FntGetScrollValues(const chars: PAnsiChar; width, scrollPos: UInt16; var linesP, topLine: UInt16); syscall sysTrapFntGetScrollValues;
 
 function FntDefineFont(font: FontID; fontP: FontPtr): Err; syscall sysTrapFntDefineFont;
 

packages/palmunits/src/form.pp

@@ -172,7 +172,7 @@ type
     attr: FormObjAttrType;
     fontID: FontID;
     reserved: UInt8;
-    text: PChar;
+    text: PAnsiChar;
   {$endif}
   end;
   FormLabelTag = FormLabelType;
@@ -181,7 +181,7 @@ type
   FormTitleType = record
   {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_FORMS} // These fields will not be available in the next OS release!
     rect: RectangleType;
-    text: PChar;
+    text: PAnsiChar;
   {$endif}
   end;
   FormTitleTag = FormTitleType;
@@ -288,7 +288,7 @@ type
   end;
 
 // FrmCustomResponseAlert callback routine prototype
-  FormCheckResponseFuncType = function(button: Int16; attempt: PChar): Boolean;
+  FormCheckResponseFuncType = function(button: Int16; attempt: PAnsiChar): Boolean;
   FormCheckResponseFuncPtr = FormCheckResponseFuncType;
 
 //--------------------------------------------------------------------
@@ -365,17 +365,17 @@ function FrmGetControlGroupSelection(const formP: FormPtr; groupNum: UInt8): UIn
 
 procedure FrmSetControlGroupSelection(const formP: FormPtr; groupNum: UInt8; controlID: UInt16); syscall sysTrapFrmSetControlGroupSelection;
 
-procedure FrmCopyLabel(formP: FormPtr; labelID: UInt16; const newLabel: PChar); syscall sysTrapFrmCopyLabel;
+procedure FrmCopyLabel(formP: FormPtr; labelID: UInt16; const newLabel: PAnsiChar); syscall sysTrapFrmCopyLabel;
 
-function FrmGetLabel(const formP: FormPtr; labelID: UInt16): {const} PChar; syscall sysTrapFrmGetLabel;
+function FrmGetLabel(const formP: FormPtr; labelID: UInt16): {const} PAnsiChar; syscall sysTrapFrmGetLabel;
 
-procedure FrmSetCategoryLabel(const formP: FormPtr; objIndex: UInt16; newLabel: PChar); syscall sysTrapFrmSetCategoryLabel;
+procedure FrmSetCategoryLabel(const formP: FormPtr; objIndex: UInt16; newLabel: PAnsiChar); syscall sysTrapFrmSetCategoryLabel;
 
-function FrmGetTitle(const formP: FormPtr): {const} PChar; syscall sysTrapFrmGetTitle;
+function FrmGetTitle(const formP: FormPtr): {const} PAnsiChar; syscall sysTrapFrmGetTitle;
 
-procedure FrmSetTitle(formP: FormPtr; newTitle: PChar); syscall sysTrapFrmSetTitle;
+procedure FrmSetTitle(formP: FormPtr; newTitle: PAnsiChar); syscall sysTrapFrmSetTitle;
 
-procedure FrmCopyTitle(formP: FormPtr; const newTitle: PChar); syscall sysTrapFrmCopyTitle;
+procedure FrmCopyTitle(formP: FormPtr; const newTitle: PAnsiChar); syscall sysTrapFrmCopyTitle;
 
 function FrmGetGadgetData(const formP: FormPtr; objIndex: UInt16): Pointer; syscall sysTrapFrmGetGadgetData;
 
@@ -387,7 +387,7 @@ function FrmDoDialog(formP: FormPtr): UInt16; syscall sysTrapFrmDoDialog;
 
 function FrmAlert(alertId: UInt16): UInt16; syscall sysTrapFrmAlert;
 
-function FrmCustomAlert(alertId: UInt16; const s1, s2, s3: PChar): UInt16; syscall sysTrapFrmCustomAlert;
+function FrmCustomAlert(alertId: UInt16; const s1, s2, s3: PAnsiChar): UInt16; syscall sysTrapFrmCustomAlert;
 
 procedure FrmHelp(helpMsgId: UInt16); syscall sysTrapFrmHelp;
 
@@ -421,10 +421,10 @@ function FrmAddSpaceForObject(var formPP: FormPtr; var objectPP: MemPtr; objectK
 
 function FrmRemoveObject(var formPP: FormPtr; objIndex: UInt16): Err; syscall sysTrapFrmRemoveObject;
 
-function FrmNewForm(formID: UInt16; const titleStrP: PChar; x, y, width, height: Coord; modal: Boolean;
+function FrmNewForm(formID: UInt16; const titleStrP: PAnsiChar; x, y, width, height: Coord; modal: Boolean;
                     defaultButton, helpRscID, menuRscID: UInt16): FormPtr; syscall sysTrapFrmNewForm;
 
-function FrmNewLabel(var formPP: FormPtr; ID: UInt16; const textP: PChar; x, y: Coord; font: FontID): FormLabelPtr; syscall sysTrapFrmNewLabel;
+function FrmNewLabel(var formPP: FormPtr; ID: UInt16; const textP: PAnsiChar; x, y: Coord; font: FontID): FormLabelPtr; syscall sysTrapFrmNewLabel;
 
 function FrmNewBitmap(var formPP: FormPtr; ID, rscID: UInt16; x, y: Coord): FormBitmapPtr; syscall sysTrapFrmNewBitmap;
 
@@ -432,7 +432,7 @@ function FrmNewGadget(var formPP: FormPtr; id: UInt16; x, y, width, height: Coor
 
 function FrmActiveState(var stateP: FormActiveStateType; save: Boolean): Err; syscall sysTrapFrmActiveState;
 
-function FrmCustomResponseAlert(alertId: UInt16; const s1, s2, s3: PChar; entryStringBuf: PChar;
+function FrmCustomResponseAlert(alertId: UInt16; const s1, s2, s3: PAnsiChar; entryStringBuf: PAnsiChar;
                                 entryStringBufLength: Int16; callback: FormCheckResponseFuncType): UInt16; syscall sysTrapFrmCustomResponseAlert;
 
 function FrmNewGsi(var formPP: FormPtr; x, y: Coord): FrmGraffitiStatePtr; syscall sysTrapFrmNewGsi;

packages/palmunits/src/fslib.pp

@@ -132,9 +132,9 @@ function FSFilesystemType(fsLibRefNum: UInt16; var filesystemTypeP: UInt32): Err
  * File Stream APIs:
  ********************************************************************)
 
-function FSFileCreate(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PChar): Err; syscall FSTrapFileCreate;
+function FSFileCreate(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PAnsiChar): Err; syscall FSTrapFileCreate;
 
-function FSFileOpen(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PChar;
+function FSFileOpen(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PAnsiChar;
                     openMode: UInt16; var fileRefP: FileRef): Err; syscall FSTrapFileOpen;
 
 function FSFileClose(fsLibRefNum: UInt16; fileRef: FileRef): Err; syscall FSTrapFileClose;
@@ -146,9 +146,9 @@ function FSFileRead(fsLibRefNumUInt16: UInt16; fileRef: FileRef; numBytes: UInt3
 function FSFileWrite(fsLibRefNum: UInt16; fileRef: FileRef; numBytes: UInt32;
                      const dataP: Pointer; var numBytesWrittenP: UInt32): Err; syscall FSTrapFileWrite;
 
-function FSFileDelete(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PChar): Err; syscall FSTrapFileDelete;
+function FSFileDelete(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PAnsiChar): Err; syscall FSTrapFileDelete;
 
-function FSFileRename(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PChar; const newNameP: PChar): Err; syscall FSTrapFileRename;
+function FSFileRename(fsLibRefNum: UInt16; volRefNum: UInt16; const pathNameP: PAnsiChar; const newNameP: PAnsiChar): Err; syscall FSTrapFileRename;
 
 function FSFileSeek(fsLibRefNum: UInt16; fileRef: FileRef; origin: FileOrigin; offset: Int32): Err; syscall FSTrapFileSeek;
 
@@ -172,7 +172,7 @@ function FSFileSize(fsLibRefNum: UInt16; fileRef: FileRef; var fileSizeP: UInt32
  * Directory APIs:
  ********************************************************************)
 
-function FSDirCreate(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PChar): Err; syscall FSTrapDirCreate;
+function FSDirCreate(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PAnsiChar): Err; syscall FSTrapDirCreate;
 
 (************************************************************
  *
@@ -192,7 +192,7 @@ function FSDirCreate(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PCh
  *
  *************************************************************)
 
-function FSDirDelete(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PChar): Err;
+function FSDirDelete(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PAnsiChar): Err;
 
 function FSDirEntryEnumerate(fsLibRefNum: UInt16; dirRef: FileRef; var dirEntryIteratorP: UInt32; var infoP: FileInfoType): Err; syscall FSTrapDirEntryEnumerate;
 
@@ -208,15 +208,15 @@ function FSVolumeUnmount(fsLibRefNum: UInt16; volRefNum: UInt16): Err; syscall F
 
 function FSVolumeInfo(fsLibRefNum: UInt16; volRefNum: UInt16; var volInfoP: VolumeInfoType): Err; syscall FSTrapVolumeInfo;
 
-function FSVolumeGetLabel(fsLibRefNum: UInt16; volRefNum: UInt16; labelP: PChar; bufLen: UInt16): Err; syscall FSTrapVolumeGetLabel;
+function FSVolumeGetLabel(fsLibRefNum: UInt16; volRefNum: UInt16; labelP: PAnsiChar; bufLen: UInt16): Err; syscall FSTrapVolumeGetLabel;
 
-function FSVolumeSetLabel(fsLibRefNum: UInt16; volRefNum: UInt16; const labelP: PChar): Err; syscall FSTrapVolumeSetLabel;
+function FSVolumeSetLabel(fsLibRefNum: UInt16; volRefNum: UInt16; const labelP: PAnsiChar): Err; syscall FSTrapVolumeSetLabel;
 
 function FSVolumeSize(fsLibRefNum: UInt16; volRefNum: UInt16; var volumeUsedP: UInt32; var volumeTotalP: UInt32): Err; syscall FSTrapVolumeSize;
 
 implementation
 
-function FSDirDelete(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PChar): Err;
+function FSDirDelete(fsLibRefNum: UInt16; volRefNum: UInt16; const dirNameP: PAnsiChar): Err;
 begin
   FSDirDelete := FSFileDelete(fsLibRefNum, volRefNum, dirNameP);
 end;

packages/palmunits/src/graffiti.pp

@@ -83,7 +83,7 @@ const
  * Use the definitions in ShortcutLib.h instead!
  *-----------------------------------------------------------------------------*)
 
-  // Char indicating a seqeunce of characters to expand.
+  // AnsiChar indicating a seqeunce of characters to expand.
   grfExpansionSequence   = '@';
 
   // Chars indicating what to expand into
@@ -151,9 +151,9 @@ function GrfCleanState: Err; syscall sysTrapGrfCleanState;
 function GrfMatch(var flagsP: UInt16; dataPtrP: Pointer; var dataLenP, uncertainLenP: UInt16;
                   matchInfoP: GrfMatchInfoPtr): Err; syscall sysTrapGrfMatch;
 
-function GrfGetMacro(nameP: PChar; var macroDataP: UInt8; var dataLenP: UInt16): Err; syscall sysTrapGrfGetMacro;
+function GrfGetMacro(nameP: PAnsiChar; var macroDataP: UInt8; var dataLenP: UInt16): Err; syscall sysTrapGrfGetMacro;
 
-function GrfGetAndExpandMacro(nameP: PChar; var macroDataP: UInt8; var dataLenP: UInt16): Err; syscall sysTrapGrfGetAndExpandMacro;
+function GrfGetAndExpandMacro(nameP: PAnsiChar; var macroDataP: UInt8; var dataLenP: UInt16): Err; syscall sysTrapGrfGetAndExpandMacro;
 
 //-----------------------------------------------------------------
 // Low Level Calls
@@ -172,11 +172,11 @@ function GrfMatchGlyph(matchInfoP: GrfMatchInfoPtr; maxUnCertainty: Int16; maxMa
 function GrfGetGlyphMapping(glyphID: UInt16; var flagsP: UInt16; dataPtrP: Pointer;
                             var dataLenP, uncertainLenP: UInt16): Err; syscall sysTrapGrfGetGlyphMapping;
 
-function GrfGetMacroName(index: UInt16; nameP: PChar): Err; syscall sysTrapGrfGetMacroName;
+function GrfGetMacroName(index: UInt16; nameP: PAnsiChar): Err; syscall sysTrapGrfGetMacroName;
 
 function GrfDeleteMacro(index: UInt16): Err; syscall sysTrapGrfDeleteMacro;
 
-function GrfAddMacro(const nameP: PChar; var macroDataP: UInt8; dataLen: UInt16): Err; syscall sysTrapGrfAddMacro;
+function GrfAddMacro(const nameP: PAnsiChar; var macroDataP: UInt8; dataLen: UInt16): Err; syscall sysTrapGrfAddMacro;
 
 implementation
 

packages/palmunits/src/helper.pp

@@ -80,12 +80,12 @@ type
     // The name of the helper to show to the user (for example, when choosing
     //  a default/preferred helper for a given class of service; zero-terminated
     //  string).
-    helperAppName: array [0..kHelperAppMaxNameSize-1] of Char;
+    helperAppName: array [0..kHelperAppMaxNameSize-1] of AnsiChar;
 
     // Custom text that represents the action to be taken, such as "Dial",
     //  "Send fax", etc. (for display in an action pop-up, or button, for example);
     //  zero-terminated string.
-    actionName: array [0..kHelperAppMaxActionNameSize-1] of Char;
+    actionName: array [0..kHelperAppMaxActionNameSize-1] of AnsiChar;
 
     // The registered, unique ID of the helper (typically the helper app's
     //  creator ID).
@@ -145,11 +145,11 @@ type
     //    duplicated by helper if necessary (ex. "1-650-123-4567",
     //    "[email protected]", etc.). Multiple fields may be separated by
     //    semicolons (';').
-    dataP: PChar;
+    dataP: PAnsiChar;
 
     // IN:  Description of data; zero-terminated; will be duplicated by helper
     //    if necessary (ex. "John Doe"); this field is optional -- may be NULL.
-    displayedName: PChar;
+    displayedName: PAnsiChar;
 
     // IN:   Pointer to a service-specific extended details data structure or NULL.
     //    This optional field is used for supplying additional arguments to the

packages/palmunits/src/helperserviceclass.pp

@@ -75,13 +75,13 @@ type
   _HelperServiceEMailDetailsType = record
     version: UInt16; // this is version 1
 
-    cc: PChar;       // IN: carbon copy address string or NULL -- will
+    cc: PAnsiChar;       // IN: carbon copy address string or NULL -- will
                      //  be duplicated by helper if necessary;
                      //  multiple addresses are separated by
                      //  semicolon (ex. "[email protected]; [email protected]")
-    subject: PChar;  // IN: subject string or NULL -- will be duplicated
+    subject: PAnsiChar;  // IN: subject string or NULL -- will be duplicated
                      //  by helper if necessary (ex. "helper API")
-    message: PChar;  // IN: initial message body string or NULL -- will be
+    message: PAnsiChar;  // IN: initial message body string or NULL -- will be
                      //  duplicated by helper if necessary (ex.
                      //  "Lets discuss the helper API tomorrow.")
   end;
@@ -104,7 +104,7 @@ type
   _HelperServiceSMSDetailsType = record
     version: UInt16; // this is version 1
 
-    message: PChar;  // IN: initial message body string or NULL -- will be
+    message: PAnsiChar;  // IN: initial message body string or NULL -- will be
                      //  duplicated by helper if necessary (ex.
                      //  "Lets discuss the helper API tomorrow.")
   end;

packages/palmunits/src/imcutils.pp

@@ -41,32 +41,32 @@ const
 
 type
   GetCharF = function(const p: Pointer): UInt16;
-  PutStringF = procedure(p: Pointer; const stringP: PChar);
+  PutStringF = procedure(p: Pointer; const stringP: PAnsiChar);
 
 // maxChars does NOT include trailing null, buffer may be 1 larger.
 // use imcUnlimitedChars if you don't want a max.
 function ImcReadFieldNoSemicolon(inputStream: Pointer; inputFunc: GetCharF; var c: UInt16;
-                                const maxChars: UInt16): PChar; syscall sysTrapImcReadFieldNoSemicolon;
+                                const maxChars: UInt16): PAnsiChar; syscall sysTrapImcReadFieldNoSemicolon;
 
 // maxChars does NOT include trailing null, buffer may be 1 larger.
 // use imcUnlimitedChars if you don't want a max.
 function ImcReadFieldQuotablePrintable(inputStream: Pointer; inputFunc: GetCharF; var c: UInt16;
-                                       const stopAt: Char; const quotedPrintable: Boolean; const maxChars: UInt16): PChar; syscall sysTrapImcReadFieldQuotablePrintable;
+                                       const stopAt: AnsiChar; const quotedPrintable: Boolean; const maxChars: UInt16): PAnsiChar; syscall sysTrapImcReadFieldQuotablePrintable;
 
 procedure ImcReadPropertyParameter(inputStream: Pointer; inputFunc: GetCharF; var cP: UInt16;
-                                   nameP, valueP: PChar); syscall sysTrapImcReadPropertyParameter;
+                                   nameP, valueP: PAnsiChar); syscall sysTrapImcReadPropertyParameter;
 
 procedure ImcSkipAllPropertyParameters(inputStream: Pointer; inputFunc: GetCharF; var cP: UInt16;
-                                       identifierP: PChar; var quotedPrintableP: Boolean); syscall sysTrapImcSkipAllPropertyParameters;
+                                       identifierP: PAnsiChar; var quotedPrintableP: Boolean); syscall sysTrapImcSkipAllPropertyParameters;
 
 procedure ImcReadWhiteSpace(inputStream: Pointer; inputFunc: GetCharF; var c, charAttrP: UInt16); syscall sysTrapImcReadWhiteSpace;
 
 procedure ImcWriteQuotedPrintable(outputStream: Pointer; outputFunc: PutStringF;
-                                  const stringP: PChar; const noSemicolons: Boolean); syscall sysTrapImcWriteQuotedPrintable;
+                                  const stringP: PAnsiChar; const noSemicolons: Boolean); syscall sysTrapImcWriteQuotedPrintable;
 
-procedure ImcWriteNoSemicolon(outputStream: Pointer; outputFunc: PutStringF; const stringP: PChar); syscall sysTrapImcWriteNoSemicolon;
+procedure ImcWriteNoSemicolon(outputStream: Pointer; outputFunc: PutStringF; const stringP: PAnsiChar); syscall sysTrapImcWriteNoSemicolon;
 
-function ImcStringIsAscii(const stringP: PChar): Boolean; syscall sysTrapImcStringIsAscii;
+function ImcStringIsAscii(const stringP: PAnsiChar): Boolean; syscall sysTrapImcStringIsAscii;
 
 implementation
 

packages/palmunits/src/inetmgr.pp

@@ -260,7 +260,7 @@ const
 
 type
   INetConfigNameType = record
-    name: array [0..inetConfigNameSize-1] of Char; // name of configuration
+    name: array [0..inetConfigNameSize-1] of AnsiChar; // name of configuration
   end;
 
   INetConfigNamePtr = ^INetConfigNameType;
@@ -412,7 +412,7 @@ type
 const
   inetSettingProxyType = 0;                                    // (RW) UInt32, INetProxyEnum
 
-  inetSettingProxyName = Succ(inetSettingProxyType);           // (RW) Char[], name of proxy
+  inetSettingProxyName = Succ(inetSettingProxyType);           // (RW) AnsiChar[], name of proxy
   inetSettingProxyPort = Succ(inetSettingProxyName);           // (RW) UInt32,  TCP port # of proxy
 
   inetSettingProxySocketType = Succ(inetSettingProxyPort);     // (RW) UInt32, which type of socket to use
@@ -490,17 +490,17 @@ const
   inetSockSettingScheme = 0;                                               // (R) UInt32, INetSchemeEnum
   inetSockSettingSockContext = Succ(inetSockSettingScheme);                // (RW) UInt32,
 
-  inetSockSettingCompressionType = Succ(inetSockSettingSockContext);       // (R) Char[]
+  inetSockSettingCompressionType = Succ(inetSockSettingSockContext);       // (R) AnsiChar[]
   inetSockSettingCompressionTypeID = Succ(inetSockSettingCompressionType); // (R) UInt32 (INetCompressionTypeEnum)
-  inetSockSettingContentType = Succ(inetSockSettingCompressionTypeID);     // (R) Char[]
+  inetSockSettingContentType = Succ(inetSockSettingCompressionTypeID);     // (R) AnsiChar[]
   inetSockSettingContentTypeID = Succ(inetSockSettingContentType);         // (R) UInt32 (INetContentTypeEnum)
   inetSockSettingData = Succ(inetSockSettingContentTypeID);                // (R) UInt32, pointer to data
   inetSockSettingDataHandle = Succ(inetSockSettingData);                   // (R) UInt32, MemHandle to data
   inetSockSettingDataOffset = Succ(inetSockSettingDataHandle);             // (R) UInt32, offset to data from MemHandle
 
-  inetSockSettingTitle = Succ(inetSockSettingDataOffset);                  // (RW) Char[]
-  inetSockSettingURL = Succ(inetSockSettingTitle);                         // (R) Char[]
-  inetSockSettingIndexURL = Succ(inetSockSettingURL);                      // (RW) Char[]
+  inetSockSettingTitle = Succ(inetSockSettingDataOffset);                  // (RW) AnsiChar[]
+  inetSockSettingURL = Succ(inetSockSettingTitle);                         // (R) AnsiChar[]
+  inetSockSettingIndexURL = Succ(inetSockSettingURL);                      // (RW) AnsiChar[]
 
   inetSockSettingFlags = Succ(inetSockSettingIndexURL);                    // (W) UInt16, one or more of
                                                                            //   inetOpenURLFlagXXX flags
@@ -560,15 +560,15 @@ const
   inetHTTPAttrCommErr = 0;                                                  // (R) UInt32, read-only
 
   // object attributes, defined at creation
-  inetHTTPAttrEntityURL = Succ(inetHTTPAttrCommErr);                        // (-) Char[], which resource was requested
+  inetHTTPAttrEntityURL = Succ(inetHTTPAttrCommErr);                        // (-) AnsiChar[], which resource was requested
 
   //-----------------------------------------------------------
   // Request only attributes
   //-----------------------------------------------------------
-  inetHTTPAttrReqAuthorization = Succ(inetHTTPAttrEntityURL);               // (-) Char[]
-  inetHTTPAttrReqFrom = Succ(inetHTTPAttrReqAuthorization);                 // (-) Char[]
+  inetHTTPAttrReqAuthorization = Succ(inetHTTPAttrEntityURL);               // (-) AnsiChar[]
+  inetHTTPAttrReqFrom = Succ(inetHTTPAttrReqAuthorization);                 // (-) AnsiChar[]
   inetHTTPAttrReqIfModifiedSince = Succ(inetHTTPAttrReqFrom);               // (-) UInt32
-  inetHTTPAttrReqReferer = Succ(inetHTTPAttrReqIfModifiedSince);            // (-) Char[]
+  inetHTTPAttrReqReferer = Succ(inetHTTPAttrReqIfModifiedSince);            // (-) AnsiChar[]
 
   // The following are ignored unless going through a CTP proxy
   inetHTTPAttrWhichPart = Succ(inetHTTPAttrReqReferer);                     // (W) UInt32 (0 -> N)
@@ -585,29 +585,29 @@ const
   // Response only attributes
   //--------------------------------------------------------------
   // Server response info
-  inetHTTPAttrRspAll = Succ(inetHTTPAttrReqContentVersion);                 // (-) Char[] - entire HTTP response including
+  inetHTTPAttrRspAll = Succ(inetHTTPAttrReqContentVersion);                 // (-) AnsiChar[] - entire HTTP response including
                                                                             //   data
   inetHTTPAttrRspSize = Succ(inetHTTPAttrRspAll);                           // (R) UInt32 - entire HTTP Response size including
                                                                             //   header and data
-  inetHTTPAttrRspVersion = Succ(inetHTTPAttrRspSize);                       // (-) Char[]
+  inetHTTPAttrRspVersion = Succ(inetHTTPAttrRspSize);                       // (-) AnsiChar[]
   inetHTTPAttrResult = Succ(inetHTTPAttrRspVersion);                        // (R) UInt32 (ctpErrXXX when using CTP Proxy)
   inetHTTPAttrErrDetail = Succ(inetHTTPAttrResult);                         // (R) UInt32 (server/proxy err code when
                                                                             //      using CTP Proxy)
-  inetHTTPAttrReason = Succ(inetHTTPAttrErrDetail);                         // (R) Char[]
+  inetHTTPAttrReason = Succ(inetHTTPAttrErrDetail);                         // (R) AnsiChar[]
   inetHTTPAttrDate = Succ(inetHTTPAttrReason);                              // (-) UInt32
   inetHTTPAttrNoCache = Succ(inetHTTPAttrDate);                             // (-) UInt32
-  inetHTTPAttrPragma = Succ(inetHTTPAttrNoCache);                           // (-) Char[]
-  inetHTTPAttrServer = Succ(inetHTTPAttrPragma);                            // (-) Char[]
-  inetHTTPAttrWWWAuthentication = Succ(inetHTTPAttrServer);                 // (-) Char[]
+  inetHTTPAttrPragma = Succ(inetHTTPAttrNoCache);                           // (-) AnsiChar[]
+  inetHTTPAttrServer = Succ(inetHTTPAttrPragma);                            // (-) AnsiChar[]
+  inetHTTPAttrWWWAuthentication = Succ(inetHTTPAttrServer);                 // (-) AnsiChar[]
 
   // Returned entity attributes
-  inetHTTPAttrContentAllow = Succ(inetHTTPAttrWWWAuthentication);           // (-) Char[]
+  inetHTTPAttrContentAllow = Succ(inetHTTPAttrWWWAuthentication);           // (-) AnsiChar[]
   inetHTTPAttrContentLength = Succ(inetHTTPAttrContentAllow);               // (R) UInt32
   inetHTTPAttrContentLengthUncompressed = Succ(inetHTTPAttrContentLength);  // (R) UInt32 (in bytes)
-  inetHTTPAttrContentPtr = Succ(inetHTTPAttrContentLengthUncompressed);     // (-) Char *
+  inetHTTPAttrContentPtr = Succ(inetHTTPAttrContentLengthUncompressed);     // (-) AnsiChar *
   inetHTTPAttrContentExpires = Succ(inetHTTPAttrContentPtr);                // (-) UInt32
   inetHTTPAttrContentLastModified = Succ(inetHTTPAttrContentExpires);       // (-) UInt32
-  inetHTTPAttrContentLocation = Succ(inetHTTPAttrContentLastModified);      // (-) Char[]
+  inetHTTPAttrContentLocation = Succ(inetHTTPAttrContentLastModified);      // (-) AnsiChar[]
   inetHTTPAttrContentLengthUntruncated = Succ(inetHTTPAttrContentLocation); // (R) UInt32
   inetHTTPAttrContentVersion = Succ(inetHTTPAttrContentLengthUntruncated);  // (R) UInt32, actual content version. Represented
                                                                             //  as 2 low bytes. Lowest byte is minor version,
@@ -897,9 +897,9 @@ function INetLibSockHTTPAttrGet(libRefnum: UInt16; sockH: MemHandle; attr: UInt1
 
 function INetLibURLCrack(libRefnum: UInt16; var urlTextP: UInt8; var urlP: INetURLType): Err; syscall inetLibTrapURLCrack;
 
-function INetLibURLsAdd(libRefnum: UInt16; baseURLStr, embeddedURLStr, resultURLStr: PChar; var resultLenP: UInt16): Err; syscall inetLibTrapURLsAdd;
+function INetLibURLsAdd(libRefnum: UInt16; baseURLStr, embeddedURLStr, resultURLStr: PAnsiChar; var resultLenP: UInt16): Err; syscall inetLibTrapURLsAdd;
 
-function INetLibURLsCompare(libRefnum: UInt16; URLStr1, URLStr2: PChar): Int16; syscall inetLibTrapURLsCompare;
+function INetLibURLsCompare(libRefnum: UInt16; URLStr1, URLStr2: PAnsiChar): Int16; syscall inetLibTrapURLsCompare;
 
 function INetLibURLGetInfo(libRefnum: UInt16; inetH: MemHandle; var urlTextP: UInt8; var urlInfoP: INetURLInfoType): Err; syscall inetLibTrapURLGetInfo;
 

packages/palmunits/src/irlib.pp

@@ -491,7 +491,7 @@ type
  * below.
  *
  * User String:
- *   1 byte type,  1 byte Char set, 1 byte length, length byte string
+ *   1 byte type,  1 byte AnsiChar set, 1 byte length, length byte string
  *
  * Example of an user string "Hello World" in ASCII
  *

packages/palmunits/src/list.pp

@@ -50,7 +50,7 @@ type
 
 // Load data callback routine prototype
 type
-  ListDrawDataFuncType = procedure (itemNum: Int16; bounds: RectanglePtr; var itemsText: PChar);
+  ListDrawDataFuncType = procedure (itemNum: Int16; bounds: RectanglePtr; var itemsText: PAnsiChar);
   ListDrawDataFuncPtr = ListDrawDataFuncType;
 
 type
@@ -59,7 +59,7 @@ type
     id: UInt16;
     bounds: RectangleType;
     attr: ListAttrType;
-    itemsText: ^PChar;
+    itemsText: ^PAnsiChar;
     numItems: Int16;                        // number of choices in the list
     currentItem: Int16;                     // currently display choice
     topItem: Int16;                         // top item visible when poped up
@@ -81,7 +81,7 @@ procedure LstEraseList(listP: ListPtr); syscall sysTrapLstEraseList;
 
 function LstGetSelection(const listP: ListPtr): Int16; syscall sysTrapLstGetSelection;
 
-function LstGetSelectionText(const listP: ListPtr; itemNum: Int16): PChar; syscall sysTrapLstGetSelectionText;
+function LstGetSelectionText(const listP: ListPtr; itemNum: Int16): PAnsiChar; syscall sysTrapLstGetSelectionText;
 
 function LstHandleEvent(listP: ListPtr; const eventP: EventPtr): Boolean; syscall sysTrapLstHandleEvent;
 
@@ -91,7 +91,7 @@ procedure LstSetPosition(listP: ListPtr; x, y: Coord); syscall sysTrapLstSetPosi
 
 procedure LstSetSelection(listP: ListPtr; itemNum: Int16); syscall sysTrapLstSetSelection;
 
-procedure LstSetListChoices(listP: ListPtr; var itemsText: PChar; numItems: Int16); syscall sysTrapLstSetListChoices;
+procedure LstSetListChoices(listP: ListPtr; var itemsText: PAnsiChar; numItems: Int16); syscall sysTrapLstSetListChoices;
 
 procedure LstSetDrawFunction(listP: ListPtr; func: ListDrawDataFuncPtr); syscall sysTrapLstSetDrawFunction;
 

packages/palmunits/src/localemgr.pp

@@ -79,12 +79,12 @@ type
 const
   lmChoiceLocale = LmLocaleSettingChoice(1);
 
-// Char[kMaxLanguageNameLen+1] - Name of the language spoken there (localized)
+// AnsiChar[kMaxLanguageNameLen+1] - Name of the language spoken there (localized)
 
 const
   lmChoiceLanguageName = LmLocaleSettingChoice(4);
 
-// Char[kMaxCountryNameLen+1] - Name of the country (localized)
+// AnsiChar[kMaxCountryNameLen+1] - Name of the country (localized)
 
   lmChoiceCountryName = LmLocaleSettingChoice(5);
 
@@ -112,15 +112,15 @@ const
 
   lmChoiceNumberFormat = LmLocaleSettingChoice(11);
 
-// Char[kMaxCurrencyNameLen+1] - Name of local currency (e.g., "US Dollar")
+// AnsiChar[kMaxCurrencyNameLen+1] - Name of local currency (e.g., "US Dollar")
 
   lmChoiceCurrencyName = LmLocaleSettingChoice(12);
 
-// Char[kMaxCurrencySymbolLen+1] - Currency symbol (e.g., "$")
+// AnsiChar[kMaxCurrencySymbolLen+1] - Currency symbol (e.g., "$")
 
   lmChoiceCurrencySymbol = LmLocaleSettingChoice(13);
 
-// Char[kMaxCurrencySymbolLen+1] - Unique currency symbol (e.g., "US$")
+// AnsiChar[kMaxCurrencySymbolLen+1] - Unique currency symbol (e.g., "US$")
 
   lmChoiceUniqueCurrencySymbol = LmLocaleSettingChoice(14);
 

packages/palmunits/src/localize.pp

@@ -33,7 +33,7 @@ const
   nfApostrophePeriod = Succ(nfSpaceComma);
   nfApostropheComma = Succ(nfApostrophePeriod);
 
-procedure LocGetNumberSeparators(numberFormat: NumberFormatType; thousandSeparator, decimalSeparator: PChar); syscall sysTrapLocGetNumberSeparators;
+procedure LocGetNumberSeparators(numberFormat: NumberFormatType; thousandSeparator, decimalSeparator: PAnsiChar); syscall sysTrapLocGetNumberSeparators;
 
 implementation
 

packages/palmunits/src/memorymgr.pp

@@ -96,9 +96,9 @@ function MemInitHeapTable(cardNo: UInt16): Err; syscall sysTrapMemInitHeapTable;
 
 function MemNumCards: UInt16; syscall sysTrapMemNumCards;
 
-function MemCardFormat(cardNo: UInt16; const cardNameP, manufNameP, ramStoreNameP: PChar): Err; syscall sysTrapMemCardFormat;
+function MemCardFormat(cardNo: UInt16; const cardNameP, manufNameP, ramStoreNameP: PAnsiChar): Err; syscall sysTrapMemCardFormat;
 
-function MemCardInfo(cardNo: UInt16; cardNameP, manufNameP: PChar; var versionP: UInt16;
+function MemCardInfo(cardNo: UInt16; cardNameP, manufNameP: PAnsiChar; var versionP: UInt16;
                      var crDateP, romSizeP, ramSizeP, freeBytesP: UInt32): Err; syscall sysTrapMemCardInfo;
 
 //-------------------------------------------------------------------
@@ -106,11 +106,11 @@ function MemCardInfo(cardNo: UInt16; cardNameP, manufNameP: PChar; var versionP:
 //-------------------------------------------------------------------
 
 function MemStoreInfo(cardNo, storeNumber: UInt16; var versionP, flagsP: UInt16;
-                      nameP: PChar; var crDateP, bckUpDateP, heapListOffsetP, initCodeOffset1P,
+                      nameP: PAnsiChar; var crDateP, bckUpDateP, heapListOffsetP, initCodeOffset1P,
                       initCodeOffset2P: UInt32; var databaseDirIDP: LocalID): Err; syscall sysTrapMemStoreInfo;
 
 function MemStoreSetInfo(cardNo, storeNumber: UInt16; var versionP, flagsP: UInt16;
-                      nameP: PChar; var crDateP, bckUpDateP, heapListOffsetP, initCodeOffset1P,
+                      nameP: PAnsiChar; var crDateP, bckUpDateP, heapListOffsetP, initCodeOffset1P,
                       initCodeOffset2P: UInt32; var databaseDirIDP: LocalID): Err; syscall sysTrapMemStoreSetInfo;
 
 //-------------------------------------------------------------------

packages/palmunits/src/menu_.pp

@@ -40,7 +40,7 @@ type
 
 const
   menuCmdBarResultNone = 0;                                // send nothing (this'd be quite unusual but is allowed)
-  menuCmdBarResultChar = Succ(menuCmdBarResultNone);       // char to send (with commandKeyMask bit set)
+  menuCmdBarResultChar = Succ(menuCmdBarResultNone);       // AnsiChar to send (with commandKeyMask bit set)
   menuCmdBarResultMenuItem = Succ(menuCmdBarResultChar);   // id of the menu item
   menuCmdBarResultNotify = Succ(menuCmdBarResultMenuItem); // Nofication Manager notification type
 
@@ -51,7 +51,7 @@ type
   MenuCmdBarButtonType = record
   {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_MENUS} // These fields will not be available in the next OS release!
     bitmapId: UInt16;
-    name: array [0..menuCmdBarMaxTextLength-1] of Char;
+    name: array [0..menuCmdBarMaxTextLength-1] of AnsiChar;
     resultType: MenuCmdBarResultType;
     reserved: UInt8; // alignment padding
     result: UInt32;
@@ -88,20 +88,20 @@ const
   menuCommandCause = 1;
 
 // To match Apple's ResEdit the first byte of a menu item's text can
-// be a special char indicating a special menu item.
+// be a special AnsiChar indicating a special menu item.
   MenuSeparatorChar = '-';
 
 type
   MenuItemType = record
   {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_MENUS} // These fields will not be available in the next OS release!
     id: UInt16;    // id of the menu item
-    command: Char;   // command key
+    command: AnsiChar;   // command key
     bits: UInt8;
 {
     UInt8      hidden: 1;  // true if menu item is hidden
     UInt8      reserved: 7;
 }
-    itemStr: PChar;   // string to be displayed
+    itemStr: PAnsiChar;   // string to be displayed
   {$endif}
   end;
   MenuItemTag = MenuItemType;
@@ -112,7 +112,7 @@ type
     bounds: RectangleType; // bounds of the pulldown
     bitsBehind: WinHandle; // saving bits behind pull-down menu
     titleBounds: RectangleType; // bounds of the title in menu bar
-    title: PChar; // menu title displayed in menu bar
+    title: PAnsiChar; // menu title displayed in menu bar
     bits: UInt16;
 {
     UInt16     hidden: 1;  // true if pulldown is hidden
@@ -173,10 +173,10 @@ procedure MenuEraseStatus(menuP: MenuBarPtr); syscall sysTrapMenuEraseStatus;
 procedure MenuSetActiveMenuRscID(resourceId: UInt16); syscall sysTrapMenuSetActiveMenuRscID;
 
 function MenuCmdBarAddButton(where: UInt8; bitmapId: UInt16; resultType: MenuCmdBarResultType;
-                             result_: UInt32; nameP: PChar): Err; syscall sysTrapMenuCmdBarAddButton;
+                             result_: UInt32; nameP: PAnsiChar): Err; syscall sysTrapMenuCmdBarAddButton;
 
 function MenuCmdBarGetButtonData(buttonIndex: Int16; var bitmapIdP: UInt16; var resultTypeP: MenuCmdBarResultType;
-                                 var resultP: UInt32; nameP: PChar): Boolean; syscall sysTrapMenuCmdBarGetButtonData;
+                                 var resultP: UInt32; nameP: PAnsiChar): Boolean; syscall sysTrapMenuCmdBarGetButtonData;
 
 procedure MenuCmdBarDisplay; syscall sysTrapMenuCmdBarDisplay;
 
@@ -184,7 +184,7 @@ function MenuShowItem(id: UInt16): Boolean; syscall sysTrapMenuShowItem;
 
 function MenuHideItem(id: UInt16): Boolean; syscall sysTrapMenuHideItem;
 
-function MenuAddItem(positionId, id: UInt16; cmd: Char; const textP: PChar): Err; syscall sysTrapMenuAddItem;
+function MenuAddItem(positionId, id: UInt16; cmd: AnsiChar; const textP: PAnsiChar): Err; syscall sysTrapMenuAddItem;
 
 implementation
 

packages/palmunits/src/modemmgr.pp

@@ -84,8 +84,8 @@ type
                                                   // false otherwise.
     canProcP: MdmUserCanProcPtr;                  // ptr to user-cancel function
     userRef: UInt32;                              // parameter for canProcP()
-    cmdBuf: array [0..mdmCmdBufSize-1] of Char;   // build all commands here
-    respBuf: array [0..mdmRespBufSize-1] of Char; // response buffer
+    cmdBuf: array [0..mdmCmdBufSize-1] of AnsiChar;   // build all commands here
+    respBuf: array [0..mdmRespBufSize-1] of AnsiChar; // response buffer
     connectBaud: UInt32;                          // baud at which connection was established
                                                   // (0 = unknown)
     curStage: UInt8;                              // set by ModemMgr to report current MdmStageEnum
@@ -131,7 +131,7 @@ const
 // API
 //-------------------------------------------------------------------
 
-function MdmDial(modemP: MdmInfoPtr; okDialP, userInitP, phoneNumP: PChar): Err; syscall sysTrapMdmDial;
+function MdmDial(modemP: MdmInfoPtr; okDialP, userInitP, phoneNumP: PAnsiChar): Err; syscall sysTrapMdmDial;
 
 function MdmHangUp(modemP: MdmInfoPtr): Err; syscall sysTrapMdmHangUp;
 

packages/palmunits/src/netmgr.pp

@@ -465,8 +465,8 @@ const
 
 type
   NetHostInfoType = record
-    nameP: PChar;         // official name of host
-    nameAliasesP: ^PChar; // array of alias's for the name
+    nameP: PAnsiChar;         // official name of host
+    nameAliasesP: ^PAnsiChar; // array of alias's for the name
     addrType: UInt16;     // address type of return addresses
     addrLen: UInt16;      // the length, in bytes, of the addresses
                           // Note this denotes length of a address, not # of addresses.
@@ -481,10 +481,10 @@ type
 
     // The following fields contain the variable length data that
     //  hostInfo points to
-    name: array [0..netDNSMaxDomainName] of Char; // hostInfo->name
+    name: array [0..netDNSMaxDomainName] of AnsiChar; // hostInfo->name
 
-    aliasList: array [0..netDNSMaxAliases] of PChar; // +1 for 0 termination.
-    aliases: array [0..netDNSMaxAliases-1, 0..netDNSMaxDomainName] of Char;
+    aliasList: array [0..netDNSMaxAliases] of PAnsiChar; // +1 for 0 termination.
+    aliases: array [0..netDNSMaxAliases-1, 0..netDNSMaxDomainName] of AnsiChar;
 
     addressList: array [0..netDNSMaxAddresses-1] of ^NetIPAddr;
     address: array [0..netDNSMaxAddresses-1] of NetIPAddr;
@@ -507,10 +507,10 @@ const
 
 type
   NetServInfoType = record
-    nameP: PChar;         // official name of service
-    nameAliasesP: ^PChar; // array of alias's for the name
+    nameP: PAnsiChar;         // official name of service
+    nameAliasesP: ^PAnsiChar; // array of alias's for the name
     port: UInt16;         // port number for this service
-    protoP: PChar;        // name of protocol to use
+    protoP: PAnsiChar;        // name of protocol to use
   end;
 
   NetServInfoPtr = ^NetServInfoType;
@@ -521,11 +521,11 @@ type
 
     // The following fields contain the variable length data that
     //  servInfo points to
-    name: array [0..netServMaxName] of Char; // hostInfo->name
+    name: array [0..netServMaxName] of AnsiChar; // hostInfo->name
 
-    aliasList: array [0..netServMaxAliases] of PChar; // +1 for 0 termination.
-    aliases: array [0..netServMaxAliases-1, 0..netServMaxName-1] of Char;
-    protoName: array [0..netProtoMaxName] of Char;
+    aliasList: array [0..netServMaxAliases] of PAnsiChar; // +1 for 0 termination.
+    aliases: array [0..netServMaxAliases-1, 0..netServMaxName-1] of AnsiChar;
+    protoName: array [0..netProtoMaxName] of AnsiChar;
 
     reserved: UInt8;
   end;
@@ -541,7 +541,7 @@ const
 
 type
   NetConfigNameType = record
-    name: array [0..netConfigNameSize-1] of Char; // name of configuration
+    name: array [0..netConfigNameSize-1] of AnsiChar; // name of configuration
   end;
 
   NetConfigNamePtr = ^NetConfigNameType;
@@ -626,14 +626,14 @@ type
     netIFP: Pointer;  // <- net_if pointer
 
     // driver level info
-    drvrName: array [0..netDrvrTypeNameLen-1] of Char; // <- type of driver (SLIP,PPP, etc)
-    hwName: array [0..netDrvrHWNameLen-1] of Char;     // <- hardware name (Serial Library, etc)
+    drvrName: array [0..netDrvrTypeNameLen-1] of AnsiChar; // <- type of driver (SLIP,PPP, etc)
+    hwName: array [0..netDrvrHWNameLen-1] of AnsiChar;     // <- hardware name (Serial Library, etc)
     localNetHdrLen: UInt8;     // <- local net header length
     localNetTrailerLen: UInt8; // <- local net trailer length
     localNetMaxFrame: UInt16;  // <- local net maximum frame size
 
     // media layer info
-    ifName: array [0..netIFNameLen-1] of Char; // <- interface name w/instance
+    ifName: array [0..netIFNameLen-1] of AnsiChar; // <- interface name w/instance
     driverUp: Boolean; // <- true if interface driver up
     ifUp: Boolean;     // <- true if interface is up
     hwAddrLen: UInt16; // <- length of hardware address
@@ -764,7 +764,7 @@ type
 
   traceEventGet = record
     index: UInt16; // which event
-    textP: PChar;  // ptr to text string to return it in
+    textP: PAnsiChar;  // ptr to text string to return it in
   end;
 
 type
@@ -803,9 +803,9 @@ const
   netSettingDefaultRouter = Succ(netSettingSecondaryDNS);         // UInt32, IP address of Default router
   netSettingDefaultIFCreator = Succ(netSettingDefaultRouter);     // UInt32, Creator type of default interface
   netSettingDefaultIFInstance = Succ(netSettingDefaultIFCreator); // UInt16, Instance# of default interface
-  netSettingHostName = Succ(netSettingDefaultIFInstance);         // Char[64], name of host (not including domain)
-  netSettingDomainName = Succ(netSettingHostName);                // Char[256], domain name of hosts's domain
-  netSettingHostTbl = Succ(netSettingDomainName);                 // Char[], host table
+  netSettingHostName = Succ(netSettingDefaultIFInstance);         // AnsiChar[64], name of host (not including domain)
+  netSettingDomainName = Succ(netSettingHostName);                // AnsiChar[256], domain name of hosts's domain
+  netSettingHostTbl = Succ(netSettingDomainName);                 // AnsiChar[], host table
   netSettingCloseWaitTime = Succ(netSettingHostTbl);              // UInt32, time in milliseconds to stay in close-wait state
   netSettingInitialTCPResendTime = Succ(netSettingCloseWaitTime); // UInt32, time in milliseconds before TCP resends a packet.
                                                                   //  This is just the initial value, the timeout is adjusted
@@ -849,7 +849,7 @@ const
     // Status - read only
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
     netIFSettingUp = Succ(netIFSettingResetAll);                            // UInt8, true if interface is UP.
-    netIFSettingName = Succ(netIFSettingUp);                                // Char[32], name of interface
+    netIFSettingName = Succ(netIFSettingUp);                                // AnsiChar[32], name of interface
 
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
     // Addressing
@@ -861,17 +861,17 @@ const
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
     // User Info
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-    netIFSettingUsername = Succ(netIFSettingBroadcast);                     // Char[], login script user name
+    netIFSettingUsername = Succ(netIFSettingBroadcast);                     // AnsiChar[], login script user name
                                                                             //               If 0 length, then user will be prompted for it
-    netIFSettingPassword = Succ(netIFSettingUsername);                      // Char[], login script user password
+    netIFSettingPassword = Succ(netIFSettingUsername);                      // AnsiChar[], login script user password
                                                                             //               If 0 length, then user will be prompted for it
-    netIFSettingDialbackUsername = Succ(netIFSettingPassword);              // Char[], login script dialback user name.
+    netIFSettingDialbackUsername = Succ(netIFSettingPassword);              // AnsiChar[], login script dialback user name.
                                                                             //               If 0 length, then netIFSettingUsername is used
-    netIFSettingDialbackPassword = Succ(netIFSettingDialbackUsername);      // Char[], login script dialback user password.
+    netIFSettingDialbackPassword = Succ(netIFSettingDialbackUsername);      // AnsiChar[], login script dialback user password.
                                                                             //               If 0 length, then user will be prompted for it
-    netIFSettingAuthUsername = Succ(netIFSettingDialbackPassword);          // Char[], PAP/CHAP name.
+    netIFSettingAuthUsername = Succ(netIFSettingDialbackPassword);          // AnsiChar[], PAP/CHAP name.
                                                                             //               If 0 length, then netIFSettingUsername is used
-    netIFSettingAuthPassword = Succ(netIFSettingAuthUsername);              // Char[], PAP/CHAP password.
+    netIFSettingAuthPassword = Succ(netIFSettingAuthUsername);              // AnsiChar[], PAP/CHAP password.
                                                                             //               If "$", then user will be prompted for it
                                                                             //               else If 0 length, then netIFSettingPassword or result
                                                                             //                  of it's prompt (if it was empty) will be used
@@ -880,9 +880,9 @@ const
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
     // Connect Settings
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-    netIFSettingServiceName = Succ(netIFSettingAuthPassword);               // Char[], name of service
-    netIFSettingLoginScript = Succ(netIFSettingServiceName);                // Char[], login script
-    netIFSettingConnectLog = Succ(netIFSettingLoginScript);                 // Char[], connect log
+    netIFSettingServiceName = Succ(netIFSettingAuthPassword);               // AnsiChar[], name of service
+    netIFSettingLoginScript = Succ(netIFSettingServiceName);                // AnsiChar[], login script
+    netIFSettingConnectLog = Succ(netIFSettingLoginScript);                 // AnsiChar[], connect log
     netIFSettingInactivityTimeout = Succ(netIFSettingConnectLog);           // UInt16, # of seconds of inactivity allowed before
                                                                             //  interface is brought down. If 0 then
                                                                             //  no inactivity timeout enforced.
@@ -914,8 +914,8 @@ const
     // Modem settings, optionally used by serial based network interfaces
     netIFSettingUseModem = Succ(netIFSettingParityEven);                    // UInt8, if true dial-up through modem
     netIFSettingPulseDial = Succ(netIFSettingUseModem);                     // UInt8, if true use pulse dial, else tone
-    netIFSettingModemInit = Succ(netIFSettingPulseDial);                    // Char[], modem initialization string
-    netIFSettingModemPhone = Succ(netIFSettingModemInit);                   // Char[], modem phone number string
+    netIFSettingModemInit = Succ(netIFSettingPulseDial);                    // AnsiChar[], modem initialization string
+    netIFSettingModemPhone = Succ(netIFSettingModemInit);                   // AnsiChar[], modem phone number string
     netIFSettingRedialCount = Succ(netIFSettingModemPhone);                 // UInt16, # of times to redial
 
     //---------------------------------------------------------------------------------
@@ -945,8 +945,8 @@ const
     netIFSettingTxInQueue = Succ(netIFSettingQueueSize);                    // BYTE  R-only. Packets remaining to be sent
     netIFSettingTxSent = Succ(netIFSettingTxInQueue);                       // BYTE  R-only. Packets sent since SocketOpen
     netIFSettingTxDiscard = Succ(netIFSettingTxSent);                       // BYTE  R-only. Packets discarded on SocketClose
-    netIFSettingRssi = Succ(netIFSettingTxDiscard);                         // char  R-only. signed value in dBm.
-    netIFSettingRssiAsPercent = Succ(netIFSettingRssi);                     // char  R-only. signed value in percent, with 0 being no coverage and 100 being excellent.
+    netIFSettingRssi = Succ(netIFSettingTxDiscard);                         // AnsiChar  R-only. signed value in dBm.
+    netIFSettingRssiAsPercent = Succ(netIFSettingRssi);                     // AnsiChar  R-only. signed value in percent, with 0 being no coverage and 100 being excellent.
     netIFSettingRadioState = Succ(netIFSettingRssiAsPercent);               // enum  R-only. current state of the radio
     netIFSettingBase = Succ(netIFSettingRadioState);                        // UInt32 R-only. Interface specific
     netIFSettingRadioID = Succ(netIFSettingBase);                           // UInt32[2] R-only, two 32-bit. interface specific
@@ -957,7 +957,7 @@ const
     // New Settings as of PalmOS 3.3
     //---------------------------------------------------------------------------------
 
-    netIFSettingConnectionName = Succ(netIFSettingNetworkLoad);             // Char [] Connection Profile Name
+    netIFSettingConnectionName = Succ(netIFSettingNetworkLoad);             // AnsiChar [] Connection Profile Name
 
     //::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
     // The following settings are not used for configuration, but rather put the
@@ -1359,11 +1359,11 @@ function NetNToHL(x: Int32): Int32;
 // Convert 32-bit IP address to ascii dotted decimal form. The Sockets glue
 //  macro inet_ntoa will pass the address of an application global string in
 //  spaceP.
-function NetLibAddrINToA(libRefnum: UInt16; inet: NetIPAddr; spaceP: PChar): PChar; syscall netLibTrapAddrINToA;
+function NetLibAddrINToA(libRefnum: UInt16; inet: NetIPAddr; spaceP: PAnsiChar): PAnsiChar; syscall netLibTrapAddrINToA;
 
 // Convert a dotted decimal ascii string format of an IP address into
 //  a 32-bit value.
-function NetLibAddrAToIN(libRefnum: UInt16; const a: PChar): NetIPAddr; syscall netLibTrapAddrAToIN;
+function NetLibAddrAToIN(libRefnum: UInt16; const a: PAnsiChar): NetIPAddr; syscall netLibTrapAddrAToIN;
 
 //--------------------------------------------------
 // Socket creation and option setting
@@ -1506,14 +1506,14 @@ function NetLibDmReceive(libRefNum: UInt16; socket: NetSocketRef;
 // Name Lookups
 //--------------------------------------------------
 
-function NetLibGetHostByName(libRefNum: UInt16; const nameP: PChar; bufP: NetHostInfoBufPtr; timeout: Int32; var errP: Err): NetHostInfoPtr; syscall netLibTrapGetHostByName;
+function NetLibGetHostByName(libRefNum: UInt16; const nameP: PAnsiChar; bufP: NetHostInfoBufPtr; timeout: Int32; var errP: Err): NetHostInfoPtr; syscall netLibTrapGetHostByName;
 
 
 function NetLibGetHostByAddr(libRefNum: UInt16; var addrP: UInt8; len, type_: UInt16;
                              bufP: NetHostInfoBufPtr; timeout: Int32; var errP: Err): NetHostInfoPtr; syscall netLibTrapGetHostByAddr;
 
-function NetLibGetServByName(libRefNum: UInt16; const servNameP: PChar;
-                             const protoNameP: PChar;  bufP: NetServInfoBufPtr;
+function NetLibGetServByName(libRefNum: UInt16; const servNameP: PAnsiChar;
+                             const protoNameP: PAnsiChar;  bufP: NetServInfoBufPtr;
                              timeout: Int32; var errP: Err): NetServInfoPtr; syscall netLibTrapGetServByName;
 
 // Looks up a mail exchange name and returns a list of hostnames for it. Caller
@@ -1522,8 +1522,8 @@ function NetLibGetServByName(libRefNum: UInt16; const servNameP: PChar;
 //  return (maxEntries).
 // Returns # of entries found, or -1 on error. If error, *errP gets filled in
 //  with error code.
-function NetLibGetMailExchangeByName(libRefNum: UInt16; mailNameP: PChar;
-                                     maxEntries: UInt16; hostNames: Pointer{Char hostNames[][netDNSMaxDomainName+1]};
+function NetLibGetMailExchangeByName(libRefNum: UInt16; mailNameP: PAnsiChar;
+                                     maxEntries: UInt16; hostNames: Pointer{AnsiChar hostNames[][netDNSMaxDomainName+1]};
                                      priorities: Pointer{UInt16 priorities[]};
                                      timeout: Int32; var errP: Err): Int16; syscall netLibTrapGetMailExchangeByName;
 
@@ -1571,10 +1571,10 @@ function NetLibMaster(libRefNum: UInt16; cmd: UInt16; pbP: NetMasterPBPtr;
                       timeout: Int32): Err; syscall netLibTrapMaster;
 
 {!!!
-function NetLibTracePrintF(libRefNum: UInt16; const formatStr: PChar; ...): Err; syscall netLibTrapTracePrintF;
+function NetLibTracePrintF(libRefNum: UInt16; const formatStr: PAnsiChar; ...): Err; syscall netLibTrapTracePrintF;
 !!!}
 
-function NetLibTracePutS(libRefNum: UInt16; strP: PChar): Err; syscall netLibTrapTracePutS;
+function NetLibTracePutS(libRefNum: UInt16; strP: PAnsiChar): Err; syscall netLibTrapTracePutS;
 
 //--------------------------------------------------
 // Configuration Calls

packages/palmunits/src/notifymgr.pp

@@ -324,7 +324,7 @@ type
     dbID: LocalID;         // database ID of dabatase
     cardNo: UInt16;        // card number that dabatase resides on
     attributes: UInt16;    // database attributes
-    dbName: array [0..dmDBNameLength-1] of Char; // name of database
+    dbName: array [0..dmDBNameLength-1] of AnsiChar; // name of database
     creator: UInt32;       // creator code of dabatase
     type_: UInt32;         // type of dabatase
   end;
@@ -336,7 +336,7 @@ type
     oldDBID: LocalID;      // old database ID of dabatase, no longer valid
     cardNo: UInt16;        // card number that dabatase resides on
     attributes: UInt16;    // database attributes
-    dbName: array [0..dmDBNameLength-1] of Char; // name of database
+    dbName: array [0..dmDBNameLength-1] of AnsiChar; // name of database
     creator: UInt32;       // creator code of dabatase
     type_: UInt32;         // type code of dabatase
   end;

packages/palmunits/src/overlaymgr.pp

@@ -125,7 +125,7 @@ type
     searchState: DmSearchStateType;
     systemDBRef: DmOpenRef;
     systemDBCard: UInt16;
-    systemDBName: array [0..dmDBNameLength-1] of Char;
+    systemDBName: array [0..dmDBNameLength-1] of AnsiChar;
     systemDBNameLen: Int16;
     curLocale: LmLocaleType;
     didNoOverlaySystem: Boolean;
@@ -142,14 +142,14 @@ type
 // <targetLocale> param in NULL, use the current locale. The <overlayDBName>
 // buffer must be at least dmDBNameLength bytes.
 
-function OmLocaleToOverlayDBName(const baseDBName: PChar; {const} var targetLocale: LmLocaleType;
-                                 overlayDBName: PChar): Err; syscall sysTrapOmDispatch, omLocaleToOverlayDBName_;
+function OmLocaleToOverlayDBName(const baseDBName: PAnsiChar; {const} var targetLocale: LmLocaleType;
+                                 overlayDBName: PAnsiChar): Err; syscall sysTrapOmDispatch, omLocaleToOverlayDBName_;
 
 // Given the name of an overlay database in <overlayDBName>, return back
 // the overlay in overlayLocale. If the name isn't an overlay name,
 // return omErrBadOverlayDBName.
 
-function OmOverlayDBNameToLocale(const overlayDBName: PChar; var overlayLocale: LmLocaleType): Err; syscall sysTrapOmDispatch, omOverlayDBNameToLocale_;
+function OmOverlayDBNameToLocale(const overlayDBName: PAnsiChar; var overlayLocale: LmLocaleType): Err; syscall sysTrapOmDispatch, omOverlayDBNameToLocale_;
 
 // Return the current locale in <currentLocale>. This may not be the same as
 // the system locale, which will take effect after the next reset.

packages/palmunits/src/palmcompatibility.pp

@@ -97,7 +97,7 @@ type
 // Logical data types
   BooleanPtr = ^Boolean;
 
-  CharPtr = ^Char;
+  CharPtr = ^AnsiChar;
   SCharPtr = ^SChar;
   UCharPtr = ^UChar;
 

packages/palmunits/src/palmlocale.pp

@@ -31,7 +31,7 @@
  *          kwk   Fixed charEncodingMax - was 76, should be 75.
  * 06/27/00 kwk   Fixed charEncodingMax in the automatically generated section
  *             to also be 75.
- *          kwk   Renumbered char encodings so that charEncodingUCS2 stays
+ *          kwk   Renumbered AnsiChar encodings so that charEncodingUCS2 stays
  *             at 9 (where it was before I integrated with Michel), since
  *             the Sony version of TxtConvertEncoding relies on this.
  *             Basically swapped charEncodingUCS2 (was 25) with charEncodingEucJp

packages/palmunits/src/palmos.pp

@@ -52,7 +52,7 @@ type
   UInt32Ptr = ^UInt32;
   PointerPtr = ^Pointer;
 
-  PCharPtr = ^PChar;
+  PCharPtr = ^PAnsiChar;
   MemPtrPtr = ^MemPtr;
   WCharPtr = ^WChar;
   Smallint = Integer;

packages/palmunits/src/password.pp

@@ -29,9 +29,9 @@ const
 
 function PwdExists: Boolean; syscall sysTrapPwdExists;
 
-function PwdVerify(Astring: PChar): Boolean; syscall sysTrapPwdVerify;
+function PwdVerify(Astring: PAnsiChar): Boolean; syscall sysTrapPwdVerify;
 
-procedure PwdSet(oldPassword, newPassword: PChar); syscall sysTrapPwdSet;
+procedure PwdSet(oldPassword, newPassword: PAnsiChar); syscall sysTrapPwdSet;
 
 procedure PwdRemove; syscall sysTrapPwdRemove;
 

packages/palmunits/src/pdilib.pp

@@ -162,11 +162,11 @@ type
     appData: Pointer;                       // General usage app dependent field
     pdiRefNum: UInt16;                      // The refNum of the Pdi library
     events: UInt16;                         // Mask of events (see kPdiXXXXEventMask constants)
-    groupName: PChar;
-    propertyName: PChar;
-    parameterName: PChar;
-    parameterValue: PChar;
-    propertyValue: PChar;
+    groupName: PAnsiChar;
+    propertyName: PAnsiChar;
+    parameterName: PAnsiChar;
+    parameterValue: PAnsiChar;
+    propertyValue: PAnsiChar;
   end;
   PdiReaderTag = PdiReaderType;
   PdiReaderPtr = ^PdiReaderType;
@@ -237,19 +237,19 @@ function PdiWriteProperty(libRefnum: UInt16; ioWriter: PdiWriterPtr; propertyNam
 
 function PdiWriteParameter(libRefnum: UInt16; ioWriter: PdiWriterPtr; parameter: UInt16; parameterName: Boolean): Err; syscall PdiLibTrapWriteParameter;
 
-function PdiWritePropertyValue(libRefnum:UInt16; ioWriter: PdiWriterPtr; buffer: PChar; options: UInt16): Err; syscall PdiLibTrapWritePropertyValue;
+function PdiWritePropertyValue(libRefnum:UInt16; ioWriter: PdiWriterPtr; buffer: PAnsiChar; options: UInt16): Err; syscall PdiLibTrapWritePropertyValue;
 
 function PdiWritePropertyFields(libRefnum: UInt16; ioWriter: PdiWriterPtr; fields: PCharPtr; fieldNumber, options: UInt16): Err; syscall PdiLibTrapWritePropertyFields;
 
-function PdiWritePropertyBinaryValue(libRefnum: UInt16; ioWriter: PdiWriterPtr; const buffer: PChar; size, options: UInt16): Err; syscall PdiLibTrapWritePropertyBinaryValue;
+function PdiWritePropertyBinaryValue(libRefnum: UInt16; ioWriter: PdiWriterPtr; const buffer: PAnsiChar; size, options: UInt16): Err; syscall PdiLibTrapWritePropertyBinaryValue;
 
 function PdiSetEncoding(libRefnum: UInt16; ioWriter: PdiWriterPtr; encoding: UInt16): Err; syscall PdiLibTrapSetEncoding;
 
 function PdiSetCharset(libRefnum: UInt16; ioWriter: PdiWriterPtr; charset: CharEncodingType): Err; syscall PdiLibTrapSetCharset;
 
-function PdiWritePropertyStr(libRefnum: UInt16; ioWriter: PdiWriterPtr; const propertyName: PChar; writeMode, requiredFields: UInt8): Err; syscall PdiLibTrapWritePropertyStr;
+function PdiWritePropertyStr(libRefnum: UInt16; ioWriter: PdiWriterPtr; const propertyName: PAnsiChar; writeMode, requiredFields: UInt8): Err; syscall PdiLibTrapWritePropertyStr;
 
-function PdiWriteParameterStr(libRefnum: UInt16; ioWriter: PdiWriterPtr; const parameterName, parameterValue: PChar): Err; syscall PdiLibTrapWriteParameterStr;
+function PdiWriteParameterStr(libRefnum: UInt16; ioWriter: PdiWriterPtr; const parameterName, parameterValue: PAnsiChar): Err; syscall PdiLibTrapWriteParameterStr;
 
 (*******************************************************************
  * Customisation functions group

packages/palmunits/src/progress.pp

@@ -38,9 +38,9 @@ const
 type
   PrgCallbackData = record
     stage: UInt16;              // <= current stage
-    textP: PChar;               // => buffer to hold text to display
+    textP: PAnsiChar;               // => buffer to hold text to display
     textLen: UInt16;            // <= length of text buffer
-    message: PChar;             // <= additional text for display
+    message: PAnsiChar;             // <= additional text for display
     error: Err;                 // <= current error
     bitmapId: UInt16;           // => resource ID of bitmap to display
     Bits: UInt16;
@@ -57,7 +57,7 @@ type
                                 // not visible
     barCurValue: UInt32;        // the current value of the progress bar, the bar will be drawn
                                 // filled the percentage of maxValue \ value
-    barMessage: PChar;          // additional text for display below the progress bar.
+    barMessage: PAnsiChar;          // additional text for display below the progress bar.
     barFlags: UInt16;           // reserved for future use.
 
     //
@@ -73,7 +73,7 @@ type
 
   PrgCallbackDataPtr = ^PrgCallbackData;
 
-//typedef Boolean (*PrgCallbackFunc)  (UInt16 stage,Boolean showDetails,Char *message,Boolean cancel,UInt16 error,Char *textP, UInt16 maxtextLen,UInt16 *bitmapID);
+//typedef Boolean (*PrgCallbackFunc)  (UInt16 stage,Boolean showDetails,AnsiChar *message,Boolean cancel,UInt16 error,AnsiChar *textP, UInt16 maxtextLen,UInt16 *bitmapID);
 
   PrgCallbackFunc = function(cbP: PrgCallbackDataPtr): Boolean;
 
@@ -150,7 +150,7 @@ type
     //  certain stages. The netConStageSending stage for example uses this string
     //  for holding the text string that it is sending. It is set by
     //  PrgUpdateDialog().
-    message: array [0..progressMaxMessage] of Char; // connection stage message.
+    message: array [0..progressMaxMessage] of AnsiChar; // connection stage message.
 
     reserved1: UInt8;
 
@@ -159,9 +159,9 @@ type
 
     // Text array used to hold control title for the OK/Cancel button. This
     //  must be kept around while the control is present in case of updates.
-    ctlLabel: array [0..progressMaxButtonText] of Char;
+    ctlLabel: array [0..progressMaxButtonText] of AnsiChar;
 
-    serviceNameP: PChar;
+    serviceNameP: PAnsiChar;
 
     //progress bar stuff (Not implemented)
     lastBarMaxValue: UInt32;
@@ -177,7 +177,7 @@ type
 
     textCallback: PrgCallbackFunc;
 
-    title: array [0..progressMaxTitle] of Char;
+    title: array [0..progressMaxTitle] of AnsiChar;
 
     //
     // *** The following field was added in PalmOS 3.2 ***
@@ -231,13 +231,13 @@ function PrgUserCancel(prgP: ProgressPtr): Boolean;
 // Prototypes
 //-----------------------------------------------------------------------
 
-function PrgStartDialogV31(const title: PChar; textCallback: PrgCallbackFunc): ProgressPtr; syscall sysTrapPrgStartDialogV31;
+function PrgStartDialogV31(const title: PAnsiChar; textCallback: PrgCallbackFunc): ProgressPtr; syscall sysTrapPrgStartDialogV31;
 
-function PrgStartDialog(const title: PChar; textCallback: PrgCallbackFunc; userDataP: Pointer): ProgressPtr; syscall sysTrapPrgStartDialog;
+function PrgStartDialog(const title: PAnsiChar; textCallback: PrgCallbackFunc; userDataP: Pointer): ProgressPtr; syscall sysTrapPrgStartDialog;
 
 procedure PrgStopDialog(prgP: ProgressPtr; force: Boolean); syscall sysTrapPrgStopDialog;
 
-procedure PrgUpdateDialog(prgGP: ProgressPtr; err, stage: UInt16; const messageP: PChar; updateNow: Boolean); syscall sysTrapPrgUpdateDialog;
+procedure PrgUpdateDialog(prgGP: ProgressPtr; err, stage: UInt16; const messageP: PAnsiChar; updateNow: Boolean); syscall sysTrapPrgUpdateDialog;
 
 function PrgHandleEvent(prgGP: ProgressPtr; eventP: EventPtr): Boolean; syscall sysTrapPrgHandleEvent;
 

packages/palmunits/src/selday.pp

@@ -28,9 +28,9 @@ const
   daySelectorMinYear = firstYear;
   daySelectorMaxYear = lastYear;
 
-function SelectDayV10(var month, day, year: Int16; const title: PChar): Boolean; syscall sysTrapSelectDayV10;
+function SelectDayV10(var month, day, year: Int16; const title: PAnsiChar): Boolean; syscall sysTrapSelectDayV10;
 
-function SelectDay(const selectDayBy: SelectDayType; var month, day, year: Int16; const title: PChar): Boolean; syscall sysTrapSelectDay;
+function SelectDay(const selectDayBy: SelectDayType; var month, day, year: Int16; const title: PAnsiChar): Boolean; syscall sysTrapSelectDay;
 
 implementation
 

packages/palmunits/src/seltime.pp

@@ -38,12 +38,12 @@ type
 
 // This is slated to be deleted in the next version.
 function SelectTimeV33(var startTimeP, EndTimeP: TimeType; untimed: Boolean;
-                       const titleP: PChar; startOfDay: Int16): Boolean; syscall sysTrapSelectTimeV33;
+                       const titleP: PAnsiChar; startOfDay: Int16): Boolean; syscall sysTrapSelectTimeV33;
 
-function SelectTime(var startTimeP, EndTimeP: TimeType; untimed: Boolean; const titleP: PChar;
+function SelectTime(var startTimeP, EndTimeP: TimeType; untimed: Boolean; const titleP: PAnsiChar;
                     startOfDay, endOfDay, startOfDisplay: Int16): Boolean; syscall sysTrapSelectTime;
 
-function SelectOneTime(var hour, minute: Int16; const titleP: PChar): Boolean; syscall sysTrapSelectOneTime;
+function SelectOneTime(var hour, minute: Int16; const titleP: PAnsiChar): Boolean; syscall sysTrapSelectOneTime;
 
 implementation
 

packages/palmunits/src/seltimezone.pp

@@ -33,7 +33,7 @@ interface
 uses palmos, coretraps, localemgr;
 
 function SelectTimeZone(var ioTimeZoneP: Int16; var ioLocaleInTimeZoneP: LmLocaleType;
-                        {const} titleP: PChar; showTimes, anyLocale: Boolean): Boolean; syscall sysTrapSelectTimeZone;
+                        {const} titleP: PAnsiChar; showTimes, anyLocale: Boolean): Boolean; syscall sysTrapSelectTimeZone;
 
 implementation
 

packages/palmunits/src/serialmgr.pp

@@ -76,11 +76,11 @@ const
   srmSettingsFlagRTSAutoM      = $00000010; // mask to prevent UART input overflow using RTS (NOTE: this flag
                                             // alone does not prevent software overruns from the serial input buffer)
   srmSettingsFlagCTSAutoM      = $00000020; // mask for CTS xmit flow control (see srmSettingsFlagFlowControlIn below)
-  srmSettingsFlagBitsPerCharM  = $000000C0; // mask for bits/char
-  srmSettingsFlagBitsPerChar5  = $00000000; //  5 bits/char
-  srmSettingsFlagBitsPerChar6  = $00000040; //  6 bits/char
-  srmSettingsFlagBitsPerChar7  = $00000080; //  7 bits/char
-  srmSettingsFlagBitsPerChar8  = $000000C0; //  8 bits/char
+  srmSettingsFlagBitsPerCharM  = $000000C0; // mask for bits/AnsiChar
+  srmSettingsFlagBitsPerChar5  = $00000000; //  5 bits/AnsiChar
+  srmSettingsFlagBitsPerChar6  = $00000040; //  6 bits/AnsiChar
+  srmSettingsFlagBitsPerChar7  = $00000080; //  7 bits/AnsiChar
+  srmSettingsFlagBitsPerChar8  = $000000C0; //  8 bits/AnsiChar
   srmSettingsFlagFlowControlIn = $00000100; // mask to prevent the serial input buffer overflow, using RTS. Use in
                                             // conjunction with srmSettingsFlagRTSAutoM for a fully flow controlled input.
   srmSettingsFlagRTSInactive   = $00000200; // if set and srmSettingsFlagRTSAutoM==0, RTS is held in the inactive (flow off) state forever.
@@ -108,7 +108,7 @@ type
     serDevFtrInfo: UInt32;             // Flags defining features of this serial hardware.
     serDevMaxBaudRate: UInt32;         // Maximum baud rate for this device.
     serDevHandshakeBaud: UInt32;       // HW Handshaking is reccomended for baud rates over this
-    serDevPortInfoStr: PChar;          // Description of serial HW device or virtual device.
+    serDevPortInfoStr: PAnsiChar;          // Description of serial HW device or virtual device.
     reserved: array [0..8-1] of UInt8; // Reserved.
   end;
  DeviceInfoPtr = ^DeviceInfoType;

packages/palmunits/src/serialmgrold.pp

@@ -74,11 +74,11 @@ const
   serSettingsFlagXonXoffM     = $00000008; // (NOT IMPLEMENTED) mask for Xon/Xoff flow control
   serSettingsFlagRTSAutoM     = $00000010; // mask for RTS rcv flow control
   serSettingsFlagCTSAutoM     = $00000020; // mask for CTS xmit flow control
-  serSettingsFlagBitsPerCharM = $000000C0; // mask for bits/char
-  serSettingsFlagBitsPerChar5 = $00000000; //  5 bits/char
-  serSettingsFlagBitsPerChar6 = $00000040; //  6 bits/char
-  serSettingsFlagBitsPerChar7 = $00000080; //  7 bits/char
-  serSettingsFlagBitsPerChar8 = $000000C0; //  8 bits/char
+  serSettingsFlagBitsPerCharM = $000000C0; // mask for bits/AnsiChar
+  serSettingsFlagBitsPerChar5 = $00000000; //  5 bits/AnsiChar
+  serSettingsFlagBitsPerChar6 = $00000040; //  6 bits/AnsiChar
+  serSettingsFlagBitsPerChar7 = $00000080; //  7 bits/AnsiChar
+  serSettingsFlagBitsPerChar8 = $000000C0; //  8 bits/AnsiChar
 
 // Default settings
   serDefaultSettings = serSettingsFlagBitsPerChar8 or

packages/palmunits/src/smslib.pp

@@ -121,7 +121,7 @@ type
     index: UInt16;             // SMS index on the phone storage
     reportType: UInt8;         // Delivery report type
     report: UInt8;             // Status report indicator
-    originatingAddress: PChar; // Phone number to which belong the report (was sent)
+    originatingAddress: PAnsiChar; // Phone number to which belong the report (was sent)
   end;
   SmsReportParamsTag = SmsReportParamsType;
   SmsReportParamsPtr = ^SmsReportParamsType;
@@ -147,7 +147,7 @@ type
    manualAckRequest: UInt8; //:1
    reserved: UInt8;         //:6
 }
-   callbackNumber: PChar; // Address to reply
+   callbackNumber: PAnsiChar; // Address to reply
   end;
   SmsSendCDMAParamsTag = SmsSendCDMAParamsType;
   SmsSendCDMAParamsPtr = ^SmsSendCDMAParamsType;
@@ -161,7 +161,7 @@ type
 type
   SmsSendGSMParamsType = record
     protocolId: UInt16;         // Reserved - not supported (Fax, paging, . . .)
-    serviceCenterNumber: PChar; // SMS Center number - Optionel
+    serviceCenterNumber: PAnsiChar; // SMS Center number - Optionel
 
     rejectDuplicated: Boolean;  // Network must reject msg if the same exists
     replyPath: Boolean;         // Use reply specified path
@@ -176,7 +176,7 @@ type
 type
   SmsSendParamsType = record
     validityPeriod: TelSmsDateTimeType;  // SMS validity Period
-    destinationAddress: PChar;           // recipient number -> to send the sms to
+    destinationAddress: PAnsiChar;           // recipient number -> to send the sms to
 
     bits: UInt8;
 {
@@ -219,7 +219,7 @@ type
     voiceMessageNumber: UInt8;
     languageIndicator: UInt8;
 
-    callbackNumberAddress: PChar; // Store callback address
+    callbackNumberAddress: PAnsiChar; // Store callback address
   end;
   SmsReceiveCDMAParamsTag = SmsReceiveCDMAParamsType;
   SmsReceiveCDMAParamsPtr = ^SmsReceiveCDMAParamsType;
@@ -232,7 +232,7 @@ type
 type
   SmsReceiveGSMParamsType = record
     protocolId: UInt16; // reserved - not supported
-    serviceCenterNumber: PChar;
+    serviceCenterNumber: PAnsiChar;
 
     replyPath: Boolean; // Must use specified reply path
   end;
@@ -245,7 +245,7 @@ type
 type
   SmsReceiveParamsType = record
    timeStamp: UInt32;          // Palm
-   originatingAddress: PChar;  // originating number -> to send the sms to
+   originatingAddress: PAnsiChar;  // originating number -> to send the sms to
 
    bits: UInt8;
 {
@@ -277,8 +277,8 @@ type
     creator: UInt32;         // MUST ALWAYS BE SET TO sysFileCSmsLib
     smsID: UInt16;           // ID of the SMS (output)
 
-    extension: PChar;        // Extension type of the data - Optionel     (Output)
-    mimeTypes: PChar;        // Mime type of object - Optionel            (Output)
+    extension: PAnsiChar;        // Extension type of the data - Optionel     (Output)
+    mimeTypes: PAnsiChar;        // Mime type of object - Optionel            (Output)
     appCreator: UInt32;      // Application Creator of the target - Optionel (Output)
 
     dataCodingScheme: UInt8; // How SMS are going to convert the data (0 = 8 bit, 1 = 7 bit)
@@ -306,7 +306,7 @@ type
     leave: Boolean;          // Leave SMS on Phone
     report: Boolean;         // Ask for a network delivery report
     autoSMSC: Boolean;       // If set, don't use the value stored in smscNumber field
-    smscNumber: array [1..kSmsMaxPhoneSize] of Char; // SMS Service Center. Could be null
+    smscNumber: array [1..kSmsMaxPhoneSize] of AnsiChar; // SMS Service Center. Could be null
   end;
   SmsPrefTag = SmsPrefType;
   SmsPrefPtr = ^SmsPrefType;

packages/palmunits/src/soundmgr.pp

@@ -139,7 +139,7 @@ type
   SndMidiRecType = record
     hdr: SndMidiRecHdrType;            // offset from the beginning of the record
                                        // to the Standard Midi File data stream
-    name: array [0..2-1] of Char;      // Track name: 1 or more chars including NULL terminator.
+    name: array [0..2-1] of AnsiChar;      // Track name: 1 or more chars including NULL terminator.
                                        // If a track has no name, the NULL character must still
                                        // be provided.
                                        // Set to 2 to pad the structure out to a word boundary.
@@ -147,7 +147,7 @@ type
 
 // Midi records found by SndCreateMidiList.
   SndMidiListItemType = record
-    name: array [0..sndMidiNameLength-1] of Char; // including NULL terminator
+    name: array [0..sndMidiNameLength-1] of AnsiChar; // including NULL terminator
     uniqueRecID: UInt32;
     dbID: LocalID;
     cardNo: UInt16;

packages/palmunits/src/stringmgr.pp

@@ -31,47 +31,47 @@ const
   maxStrIToALen = 12;
 
 // String Manipulation routines
-function StrCopy(dst: PChar; const src: PChar): PChar; syscall sysTrapStrCopy;
+function StrCopy(dst: PAnsiChar; const src: PAnsiChar): PAnsiChar; syscall sysTrapStrCopy;
 
-function StrNCopy(dst: PChar; const src: PChar; n: Int16): PChar; syscall sysTrapStrNCopy;
+function StrNCopy(dst: PAnsiChar; const src: PAnsiChar; n: Int16): PAnsiChar; syscall sysTrapStrNCopy;
 
-function StrCat(dst: PChar; const src: PChar): PChar; syscall sysTrapStrCat;
+function StrCat(dst: PAnsiChar; const src: PAnsiChar): PAnsiChar; syscall sysTrapStrCat;
 
-function StrNCat(dst: PChar; const src: PChar; n: Int16): PChar; syscall sysTrapStrNCat;
+function StrNCat(dst: PAnsiChar; const src: PAnsiChar; n: Int16): PAnsiChar; syscall sysTrapStrNCat;
 
-function StrLen(const src: PChar): Int16; syscall sysTrapStrLen;
+function StrLen(const src: PAnsiChar): Int16; syscall sysTrapStrLen;
 
-function StrCompareAscii(const s1, s2: PChar): Int16; syscall sysTrapStrCompareAscii;
+function StrCompareAscii(const s1, s2: PAnsiChar): Int16; syscall sysTrapStrCompareAscii;
 
-function StrCompare(const s1, s2: PChar): Int16; syscall sysTrapStrCompare;
+function StrCompare(const s1, s2: PAnsiChar): Int16; syscall sysTrapStrCompare;
 
-function StrNCompareAscii(const s1, s2: PChar; n: Int32): Int16; syscall sysTrapStrNCompareAscii;
+function StrNCompareAscii(const s1, s2: PAnsiChar; n: Int32): Int16; syscall sysTrapStrNCompareAscii;
 
-function StrNCompare(const s1, s2: PChar;n: Int32): Int16; syscall sysTrapStrNCompare;
+function StrNCompare(const s1, s2: PAnsiChar;n: Int32): Int16; syscall sysTrapStrNCompare;
 
-function StrCaselessCompare(const s1, s2: PChar): Int16; syscall sysTrapStrCaselessCompare;
+function StrCaselessCompare(const s1, s2: PAnsiChar): Int16; syscall sysTrapStrCaselessCompare;
 
-function StrNCaselessCompare(const s1, s2: PChar; n: Int32): Int16; syscall sysTrapStrNCaselessCompare;
+function StrNCaselessCompare(const s1, s2: PAnsiChar; n: Int32): Int16; syscall sysTrapStrNCaselessCompare;
 
-function StrToLower(dst: PChar; const src: PChar): PChar; syscall sysTrapStrToLower;
+function StrToLower(dst: PAnsiChar; const src: PAnsiChar): PAnsiChar; syscall sysTrapStrToLower;
 
-function StrIToA(s: PChar; i: Int32): PChar; syscall sysTrapStrIToA;
+function StrIToA(s: PAnsiChar; i: Int32): PAnsiChar; syscall sysTrapStrIToA;
 
-function StrIToH(s: PChar; i: UInt32): PChar; syscall sysTrapStrIToH;
+function StrIToH(s: PAnsiChar; i: UInt32): PAnsiChar; syscall sysTrapStrIToH;
 
-function StrLocalizeNumber(s: PChar; thousandSeparator, decimalSeparator: Char): PChar; syscall sysTrapStrLocalizeNumber;
+function StrLocalizeNumber(s: PAnsiChar; thousandSeparator, decimalSeparator: AnsiChar): PAnsiChar; syscall sysTrapStrLocalizeNumber;
 
-function StrDelocalizeNumber(s: PChar; thousandSeparator, decimalSeparator: Char): PChar; syscall sysTrapStrDelocalizeNumber;
+function StrDelocalizeNumber(s: PAnsiChar; thousandSeparator, decimalSeparator: AnsiChar): PAnsiChar; syscall sysTrapStrDelocalizeNumber;
 
-function StrChr(const str: PChar; chr: WChar): PChar; syscall sysTrapStrChr;
+function StrChr(const str: PAnsiChar; chr: WChar): PAnsiChar; syscall sysTrapStrChr;
 
-function StrStr(const str, token: PChar): PChar; syscall sysTrapStrStr;
+function StrStr(const str, token: PAnsiChar): PAnsiChar; syscall sysTrapStrStr;
 
-function StrAToI(const str: PChar): Int32; syscall sysTrapStrAToI;
+function StrAToI(const str: PAnsiChar): Int32; syscall sysTrapStrAToI;
 
-//function StrPrintF(s: PChar; const Char *formatStr, ...): Int16; syscall sysTrapStrPrintF;
+//function StrPrintF(s: PAnsiChar; const AnsiChar *formatStr, ...): Int16; syscall sysTrapStrPrintF;
 
-function StrVPrintF(s: PChar; const formatStr: PChar; arg: PChar): Int16; syscall sysTrapStrVPrintF;
+function StrVPrintF(s: PAnsiChar; const formatStr: PAnsiChar; arg: PAnsiChar): Int16; syscall sysTrapStrVPrintF;
 
 implementation
 

packages/palmunits/src/sysevent.pp

@@ -110,7 +110,7 @@ type
   end;
 
   _TSMConfirmType = record
-    yomiText: PChar;
+    yomiText: PAnsiChar;
     formID: UInt16;
   end;
 

packages/palmunits/src/systemmgr.pp

@@ -504,7 +504,7 @@ type
   SysAppLaunchCmdCardType = record
     err: Err;
     volRefNum: UInt16;
-    path: PChar;
+    path: PAnsiChar;
     startFlags: UInt16; // See vfsStartFlagXXX constants below
   end;
 
@@ -873,7 +873,7 @@ const
 // SysCreateDataBaseList can generate a list of database.
 type
   SysDBListItemType = record
-    name: array [0..dmDBNameLength-1] of Char;
+    name: array [0..dmDBNameLength-1] of AnsiChar;
     creator: UInt32;
     type_: UInt32;
     version: UInt16;
@@ -935,7 +935,7 @@ type
 // mVolts: UInt16;
     // Character string received in response to inquiry string
     // (will be NUL terminated)
-    responseBuffer: array [0..sysMaxHSIResponseSize-1] of Char;
+    responseBuffer: array [0..sysMaxHSIResponseSize-1] of AnsiChar;
     // Length of string in responseBuffer
     responseLength: UInt16;
   end;
@@ -1020,7 +1020,7 @@ function SysDisableInts: UInt16; syscall sysTrapSysDisableInts;
 
 procedure SysRestoreStatus(status: UInt16); syscall sysTrapSysRestoreStatus;
 
-function SysGetOSVersionString: PChar; syscall sysTrapSysGetOSVersionString;
+function SysGetOSVersionString: PAnsiChar; syscall sysTrapSysGetOSVersionString;
 
 // The following trap is a public definition of HwrGetROMToken from <Hardware.h>
 // See token definitions (like sysROMTokenSerial) above...
@@ -1035,7 +1035,7 @@ function SysLibLoad(libType, libCreator: UInt32; var refNumP: UInt16): Err; sysc
 
 function SysLibRemove(refNum: UInt16): Err; syscall sysTrapSysLibRemove;
 
-function SysLibFind(const nameP: PChar; var refNumP: UInt16): Err; syscall sysTrapSysLibFind;
+function SysLibFind(const nameP: PAnsiChar; var refNumP: UInt16): Err; syscall sysTrapSysLibFind;
 
 function SysLibTblEntry(refNum: UInt16): SysLibTblEntryPtr; syscall sysTrapSysLibTblEntry;
 

packages/palmunits/src/sysutil.pp

@@ -64,9 +64,9 @@ procedure SysInsertionSort(baseP: Pointer; numOfElements, width: Int16;
 procedure SysQSort(baseP: Pointer; numOfElements, width: Int16;
                    comparF: CmpFuncPtr; other: Int32); syscall sysTrapSysQSort;
 
-procedure SysCopyStringResource(string_: PChar; theID: Int16); syscall sysTrapSysCopyStringResource;
+procedure SysCopyStringResource(string_: PAnsiChar; theID: Int16); syscall sysTrapSysCopyStringResource;
 
-function SysFormPointerArrayToStrings(c: PChar; stringCount: Int16): MemHandle; syscall sysTrapSysFormPointerArrayToStrings;
+function SysFormPointerArrayToStrings(c: PAnsiChar; stringCount: Int16): MemHandle; syscall sysTrapSysFormPointerArrayToStrings;
 
 
 // Return a random number ranging from 0 to sysRandomMax.
@@ -74,9 +74,9 @@ function SysFormPointerArrayToStrings(c: PChar; stringCount: Int16): MemHandle;
 function SysRandom(newSeed: Int32): Int16; syscall sysTrapSysRandom;
 
 
-function SysStringByIndex(resID, index: UInt16; strP: PChar; maxLen: UInt16): PChar; syscall sysTrapSysStringByIndex;
+function SysStringByIndex(resID, index: UInt16; strP: PAnsiChar; maxLen: UInt16): PAnsiChar; syscall sysTrapSysStringByIndex;
 
-function SysErrString(err: Err; strP: PChar; maxLen: UInt16): PChar; syscall sysTrapSysErrString;
+function SysErrString(err: Err; strP: PAnsiChar; maxLen: UInt16): PAnsiChar; syscall sysTrapSysErrString;
 
 // This function is not to be called directly.  Instead, use the various Emu* calls
 // in EmuTraps.h because they work for Poser, the device, and the simulator, and

packages/palmunits/src/table.pp

@@ -60,7 +60,7 @@ type
     itemType: TableItemStyleType;
     fontID: FontID; // font for drawing text
     intValue: Int16;
-    ptr: PChar;
+    ptr: PAnsiChar;
   {$endif}
   end;
   TableItemTag = TableItemType;

packages/palmunits/src/telephonymgr.pp

@@ -451,7 +451,7 @@ function TelNwkSetSearchMode(iRefnum: UInt16; iAppId: TelAppID; iMode: UInt8; va
 // security
 function TelStyGetAuthenticationState(iRefnum: UInt16; iAppId: TelAppID; var oStateP: UInt8; var ioTransIdP: UInt16): Err; syscall telLibTrapStyGetAuthenticationState;
 
-function TelStyEnterAuthenticationCode(iRefnum: UInt16; iAppId: TelAppID;  const iCodeP: PChar; var ioTransIdP: UInt16): Err; syscall telLibTrapStyEnterAuthenticationCode;
+function TelStyEnterAuthenticationCode(iRefnum: UInt16; iAppId: TelAppID;  const iCodeP: PAnsiChar; var ioTransIdP: UInt16): Err; syscall telLibTrapStyEnterAuthenticationCode;
 
 function TelStyChangeAuthenticationCode(iRefnum: UInt16; iAppId: TelAppID; var iParamP: TelStyChangeAuthenticationType; var ioTransIdP: UInt16): Err; syscall telLibTrapStyChangeAuthenticationCode;
 
@@ -463,7 +463,7 @@ function TelPowGetBatteryStatus(iRefnum: UInt16; iAppId: TelAppID; var oStatusP:
 function TelPowSetPhonePower(iRefnum: UInt16; iAppId: TelAppID; iPowerOn: Boolean): Err; syscall telLibTrapPowSetPhonePower;
 
 // configuration
-function TelCfgSetSmsCenter(iRefnum: UInt16; iAppId: TelAppID; const iDialNumberP: PChar; var ioTransIdP: UInt16): Err; syscall telLibTrapCfgSetSmsCenter;
+function TelCfgSetSmsCenter(iRefnum: UInt16; iAppId: TelAppID; const iDialNumberP: PAnsiChar; var ioTransIdP: UInt16): Err; syscall telLibTrapCfgSetSmsCenter;
 
 function TelCfgGetSmsCenter(iRefnum: UInt16; iAppId: TelAppID; var ioParamP: TelCfgGetSmsCenterType; var ioTransIdP: UInt16): Err; syscall telLibTrapCfgGetSmsCenter;
 
@@ -514,7 +514,7 @@ function TelEmcSetNumber(iRefnum: UInt16; iAppId: TelAppID; var iParamP: TelEmcS
 function TelEmcSelectNumber(iRefnum: UInt16; iAppId: TelAppID; iIndex: UInt8; var ioTransIdP: UInt16): Err; syscall telLibTrapEmcSelectNumber;
 
 // speech call
-function TelSpcCallNumber(iRefnum: UInt16; iAppId: TelAppID; const iDialNumberP: PChar; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcCallNumber;
+function TelSpcCallNumber(iRefnum: UInt16; iAppId: TelAppID; const iDialNumberP: PAnsiChar; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcCallNumber;
 
 function TelSpcCloseLine(iRefnum: UInt16; iAppId: TelAppID; iLineId: UInt8; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcCloseLine;
 
@@ -532,7 +532,7 @@ function TelSpcRejectCall(iRefnum: UInt16; iAppId: TelAppID; var ioTransIdP: UIn
 
 function TelSpcGetCallerNumber(iRefnum: UInt16; iAppId: TelAppID; var ioParamP: TelSpcGetCallerNumberType; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcGetCallerNumber;
 
-function TelSpcSendBurstDTMF(iRefnum: UInt16; iAppId: TelAppID; const iDTMFStringP: PChar; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcSendBurstDTMF;
+function TelSpcSendBurstDTMF(iRefnum: UInt16; iAppId: TelAppID; const iDTMFStringP: PAnsiChar; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcSendBurstDTMF;
 
 function TelSpcStartContinuousDTMF(iRefnum: UInt16; iAppId: TelAppID; iKeyCode: UInt8; var ioTransIdP: UInt16): Err; syscall telLibTrapSpcStartContinuousDTMF;
 

packages/palmunits/src/telephonymgrtypes.pp

@@ -183,8 +183,8 @@ type
 
   // command string
   TelSendCommandStringType = record
-    commandString: PChar;  // command string to be sent
-    resultString:  PChar;  // result string
+    commandString: PAnsiChar;  // command string to be sent
+    resultString:  PAnsiChar;  // result string
     resultSize:    UInt16; // result string buffer size/max bytes retrieved on result
     timeOut:       UInt32; // milliseconds time out for command processing (before phone starts replying)
   end;
@@ -197,13 +197,13 @@ type
 
     // outgoing or incoming call number
     numberSize: UInt8; // size of number (in), length of number + 1 (out)
-    number: PChar;     // called or calling number
+    number: PAnsiChar;     // called or calling number
   end;
 
   // network support
   TelNwkGetNetworkNameType = record
     id: UInt32;   // network ID
-    value: PChar; // name
+    value: PAnsiChar; // name
     size: UInt16; // size of name (in), name len including '\0' (out)
   end;
 
@@ -214,27 +214,27 @@ type
 
   // phone location within network web
   TelNwkGetLocationType = record
-     value: PChar; // current location string
+     value: PAnsiChar; // current location string
      size: UInt16; // size of value (in), location len including '\0' (out)
   end;
 
   // change security code
   TelStyChangeAuthenticationType = record
     codeId: UInt8;  // code to be changed
-    oldCode: PChar; // old code value
-    newCode: PChar; // new code value
+    oldCode: PAnsiChar; // old code value
+    newCode: PAnsiChar; // new code value
   end;
 
   // SMS center
   TelCfgGetSmsCenterType = record
     size: UInt8;  // size of value (in), SMS dial number len including '\0' (out)
-    value: PChar; // SMS center dial number
+    value: PAnsiChar; // SMS center dial number
   end;
 
   // phone number
   TelCfgGetPhoneNumberType = record
     size: UInt8;  // size of value (in), phone dial number len including '\0' (out)
-    value: PChar; // phone dial number
+    value: PAnsiChar; // phone dial number
   end;
 
   // SMS
@@ -278,7 +278,7 @@ type
     rejectDuplicatedRequest: Boolean; // GSM - Network must reject msg if the same exists
     replyPath: Boolean;               // GSM - use reply specified path
 
-    serviceCenterNumber: PChar;       // SMS service center number
+    serviceCenterNumber: PAnsiChar;       // SMS service center number
     serviceCenterNumberSize: UInt8;   // Used for decoding only
   end;
 
@@ -294,7 +294,7 @@ type
 
     alertOnDeliveryRequest: Boolean;  // CDMA & TDMA(?)
 
-    callbackNumber: PChar;            // CDMA & TDMA only - address to reply
+    callbackNumber: PAnsiChar;            // CDMA & TDMA only - address to reply
     callbackNumberSize: UInt8;
   end;
 
@@ -314,7 +314,7 @@ type
 
     networkDeliveryRequest: Boolean;    // All - Ask a network delivery report / status report
 
-    destinationAddress: PChar;          // length : GSM 12bytes, CDMA up to 2x64 bytes
+    destinationAddress: PAnsiChar;          // length : GSM 12bytes, CDMA up to 2x64 bytes
     destinationAddressSize: UInt8;      // Used for decoding only
 
     dataSize: UInt16;                   // Length of data being sent
@@ -347,7 +347,7 @@ type
   // Manual acknowledge structure
   TelSmsManualAckType = record
     version: UInt16;           // SMS API version
-    destinationAddress: PChar; // length : GSM 12bytes, CDMA up to 2x64 bytes
+    destinationAddress: PAnsiChar; // length : GSM 12bytes, CDMA up to 2x64 bytes
     messagesId: UInt32;        // Message Id of message to be acknowledged
 
     dataSize: UInt16;          // Length of data being sent
@@ -361,7 +361,7 @@ type
     protocolId: UInt16; // reserved - not supported - GSM only
 
     replyPath: Boolean; // GSM - must use specified reply path
-    serviceCenterNumber: PChar;
+    serviceCenterNumber: PAnsiChar;
     serviceCenterNumberSize: UInt8;
   end;
 
@@ -379,7 +379,7 @@ type
     voiceMessageNumber: UInt8;          // CDMA, TDMA, GSM
 
     callbackNumberSize: UInt8;
-    callbackNumberAddress: PChar;       // Store callback address
+    callbackNumberAddress: PAnsiChar;       // Store callback address
 
     languageIndicator: UInt8;           // reserved - not supported - CDMA only
   end;
@@ -398,7 +398,7 @@ type
     voiceMessageNumber: UInt8;          // CDMA, TDMA, GSM
 
     callbackNumberSize: UInt8;
-    callbackNumberAddress: PChar;       // Store callback address
+    callbackNumberAddress: PAnsiChar;       // Store callback address
   end;
 
   TelSmsDeliveryMessageAdvancedParams = record
@@ -423,7 +423,7 @@ type
     dataCodingScheme: UInt8;           // enum All
 
     originatingAddressSize: UInt8;
-    originatingAddress: PChar;         // Store originating address (delivery message)
+    originatingAddress: PAnsiChar;         // Store originating address (delivery message)
 
     otherToReceive: Boolean;           // GSM & CDMA & TDMA(?)
 
@@ -448,7 +448,7 @@ type
     data: ^UInt8;
     dataCodingScheme: UInt8;
 
-    originatingAddress: PChar; // Store originating address
+    originatingAddress: PAnsiChar; // Store originating address
     originatingAddressSize: UInt8;
 
     report: UInt8;
@@ -500,18 +500,18 @@ type
   TelEmcGetNumberType = record
     index: UInt8; // EMC number index, zero based
     size: UInt8;  // EMC dial number len including '\0' (out), value size (in)
-    value: PChar; // EMC dial number
+    value: PAnsiChar; // EMC dial number
   end;
 
   TelEmcSetNumberType = record
     index: UInt8; // EMC number index, zero based
-    value: PChar; // EMC dial number
+    value: PAnsiChar; // EMC dial number
   end;
 
   // speech call support
   TelSpcGetCallerNumberType = record
     size: UInt8;  // dial number len including '\0' (out), value size (in)
-    value: PChar; // dial number
+    value: PAnsiChar; // dial number
   end;
 
   TelSpcPlayDTMFType = record
@@ -522,9 +522,9 @@ type
   // phonebook support
   TelPhbEntryType = record
     phoneIndex: UInt16;    // entry's index in the phonebook, zero based
-    fullName: PChar;
+    fullName: PAnsiChar;
     fullNameSize: UInt8;   // name len including '\0' (out), name size (in)
-    dialNumber: PChar;
+    dialNumber: PAnsiChar;
     dialNumberSize: UInt8; // dial number len including '\0' (out), dialNumber size (in)
   end;
 
@@ -559,12 +559,12 @@ type
   TelInfGetInformationType = record
     infoType: UInt8; // expected information, can be up to 2Kb (!)
     size: UInt16;    // value len including '\0' (out), value size (in)
-    value: PChar;    //  returned information string
+    value: PAnsiChar;    //  returned information string
   end;
 
   // data call support
   TelDtcCallNumberType = record
-    dialNumberP: PChar; // number to dial
+    dialNumberP: PAnsiChar; // number to dial
     lineId: UInt8;      // resulting line id, sent back in event
   end;
 

packages/palmunits/src/telephonymgrui.pp

@@ -47,7 +47,7 @@ type
     version: UInt16;
     error: Err;
     ioFlags: UInt32;
-    messageP: PChar;
+    messageP: PAnsiChar;
   end;
 
   TelNotifyErrorDetailsTag = TelNotifyErrorDetailsType;

packages/palmunits/src/textmgr.pp

@@ -83,7 +83,7 @@ const
 
 // Custom transliteration operations (defined in CharXXXX.h encoding-specific
 // header files.
-  translitOpCustomBase    = 1000;  // Beginning of char-encoding specific ops.
+  translitOpCustomBase    = 1000;  // Beginning of AnsiChar-encoding specific ops.
 
   translitOpPreprocess    = $8000; // Mask for pre-process option, where
                                    // no transliteration actually is done.
@@ -108,9 +108,9 @@ const
 // Various byte attribute flags. Note that multiple flags can be
 // set, thus a byte could be both a single-byte character, or the first
 // byte of a multi-byte character.
-  byteAttrFirst  = $80; // First byte of multi-byte char.
-  byteAttrLast   = $40; // Last byte of multi-byte char.
-  byteAttrMiddle = $20; // Middle byte of muli-byte char.
+  byteAttrFirst  = $80; // First byte of multi-byte AnsiChar.
+  byteAttrLast   = $40; // Last byte of multi-byte AnsiChar.
+  byteAttrMiddle = $20; // Middle byte of muli-byte AnsiChar.
   byteAttrSingle = $01; // Single byte.
 
 // Character attribute flags. These replace the old flags defined in
@@ -139,7 +139,7 @@ const
 // same is true of sizeof('a'), sizeof('\0'), and sizeof(chrNull). For this
 // reason it's safest to use the sizeOf7BitChar macro to document buffer size
 // and string length calcs. Note that this can only be used with low-ascii
-// characters, as anything else might be the high byte of a double-byte char.
+// characters, as anything else might be the high byte of a double-byte AnsiChar.
 
 //!!! sizeOf7BitChar(c) = 1;
 
@@ -184,8 +184,8 @@ function TxtCharIsHardKey(m, c: UInt16): Boolean;
 // in PalmOSGlue.lib
 function TxtCharIsVirtual(m, c: UInt16): Boolean;
 
-function TxtPreviousCharSize(const inText: PChar; inOffset: UInt32): UInt16;
-function TxtNextCharSize(const inText: PChar; inOffset: UInt32): UInt16;
+function TxtPreviousCharSize(const inText: PAnsiChar; inOffset: UInt32): UInt16;
+function TxtNextCharSize(const inText: PAnsiChar; inOffset: UInt32): UInt16;
 
 (***********************************************************************
  * Public routines
@@ -218,21 +218,21 @@ function TxtCharWidth(inChar: WChar): Int16; syscall sysTrapIntlDispatch, intlTx
 // Load the character before offset <inOffset> in the <inText> text. Return
 // back the size of the character.
 
-function TxtGetPreviousChar(const inText: PChar; inOffset: UInt32; outChar: WCharPtr): UInt16; syscall sysTrapIntlDispatch, intlTxtGetPreviousChar;
+function TxtGetPreviousChar(const inText: PAnsiChar; inOffset: UInt32; outChar: WCharPtr): UInt16; syscall sysTrapIntlDispatch, intlTxtGetPreviousChar;
 
 // Load the character at offset <inOffset> in the <inText> text. Return
 // back the size of the character.
 
-function TxtGetNextChar(const inText: PChar; inOffset: UInt32; outChar: WCharPtr): UInt16; syscall sysTrapIntlDispatch, intlTxtGetNextChar;
+function TxtGetNextChar(const inText: PAnsiChar; inOffset: UInt32; outChar: WCharPtr): UInt16; syscall sysTrapIntlDispatch, intlTxtGetNextChar;
 
 // Return the character at offset <inOffset> in the <inText> text.
 
-function TxtGetChar(const inText: PChar; inOffset: UInt32): WChar; syscall sysTrapIntlDispatch, intlTxtGetChar;
+function TxtGetChar(const inText: PAnsiChar; inOffset: UInt32): WChar; syscall sysTrapIntlDispatch, intlTxtGetChar;
 
 // Set the character at offset <inOffset> in the <inText> text, and
 // return back the size of the character.
 
-function TxtSetNextChar(ioText: PChar; inOffset: UInt32; inChar: WChar): UInt16; syscall sysTrapIntlDispatch, intlTxtSetNextChar;
+function TxtSetNextChar(ioText: PAnsiChar; inOffset: UInt32; inChar: WChar): UInt16; syscall sysTrapIntlDispatch, intlTxtSetNextChar;
 
 // Replace the substring "^X" (where X is 0..9, as specified by <inParamNum>)
 // with the string <inParamStr>. If <inParamStr> is NULL then don't modify <ioStr>.
@@ -240,38 +240,38 @@ function TxtSetNextChar(ioText: PChar; inOffset: UInt32; inChar: WChar): UInt16;
 // excluding the terminating null. Return back the number of occurances of
 // the substring found in <ioStr>.
 
-function TxtReplaceStr(ioStr: PChar; inMaxLen: UInt16; const inParamStr: PChar; inParamNum: UInt16): UInt16; syscall sysTrapIntlDispatch, intlTxtReplaceStr;
+function TxtReplaceStr(ioStr: PAnsiChar; inMaxLen: UInt16; const inParamStr: PAnsiChar; inParamNum: UInt16): UInt16; syscall sysTrapIntlDispatch, intlTxtReplaceStr;
 
 // Allocate a handle containing the result of substituting param0...param3
 // for ^0...^3 in <inTemplate>, and return the locked result. If a parameter
 // is NULL, replace the corresponding substring in the template with "".
 
-function TxtParamString(const inTemplate, param0, param1, param2, param3: PChar): PChar; syscall sysTrapIntlDispatch, intlTxtParamString;
+function TxtParamString(const inTemplate, param0, param1, param2, param3: PAnsiChar): PAnsiChar; syscall sysTrapIntlDispatch, intlTxtParamString;
 
 // Return the bounds of the character at <inOffset> in the <inText>
 // text, via the <outStart> & <outEnd> offsets, and also return the
 // actual value of character at or following <inOffset>.
 
-function TxtCharBounds(const inText: PChar; inOffset: UInt32; var outStart: UInt32; var outEnd: UInt32): WChar; syscall sysTrapIntlDispatch, intlTxtCharBounds;
+function TxtCharBounds(const inText: PAnsiChar; inOffset: UInt32; var outStart: UInt32; var outEnd: UInt32): WChar; syscall sysTrapIntlDispatch, intlTxtCharBounds;
 
 // Return the appropriate byte position for truncating <inText> such that it is
 // at most <inOffset> bytes long.
 
-function TxtGetTruncationOffset(const inText: PChar; inOffset: UInt32): UInt32; syscall sysTrapIntlDispatch, intlTxtGetTruncationOffset;
+function TxtGetTruncationOffset(const inText: PAnsiChar; inOffset: UInt32): UInt32; syscall sysTrapIntlDispatch, intlTxtGetTruncationOffset;
 
 // Search for <inTargetStr> in <inSourceStr>. If found return true and pass back
 // the found position (byte offset) in <outPos>, and the length of the matched
 // text in <outLength>.
 
-function TxtFindString(const inSourceStr, inTargetStr: PChar;
+function TxtFindString(const inSourceStr, inTargetStr: PAnsiChar;
                        var outPos: UInt32; var outLength: UInt16): Boolean; syscall sysTrapIntlDispatch, intlTxtFindString;
 
 // Find the bounds of the word that contains the character at <inOffset>.
 // Return the offsets in <*outStart> and <*outEnd>. Return true if the
-// word we found was not empty & not a delimiter (attribute of first char
+// word we found was not empty & not a delimiter (attribute of first AnsiChar
 // in word not equal to space or punct).
 
-function TxtWordBounds(const inText: PChar; inLength, inOffset: UInt32;
+function TxtWordBounds(const inText: PAnsiChar; inLength, inOffset: UInt32;
                        var outStart, outEnd: UInt32): Boolean; syscall sysTrapIntlDispatch, intlTxtWordBounds;
 
 // Return the offset of the first break position (for text wrapping) that
@@ -279,7 +279,7 @@ function TxtWordBounds(const inText: PChar; inLength, inOffset: UInt32;
 // also add trailing spaces and a trailing linefeed to the break position,
 // thus the result could be greater than <iOffset>.
 
-function TxtGetWordWrapOffset(const iTextP: PChar; iOffset: UInt32): UInt32; syscall sysTrapIntlDispatch, intlTxtGetWordWrapOffset;
+function TxtGetWordWrapOffset(const iTextP: PAnsiChar; iOffset: UInt32): UInt32; syscall sysTrapIntlDispatch, intlTxtGetWordWrapOffset;
 
 // Return the minimum (lowest) encoding required for <inChar>. If we
 // don't know about the character, return encoding_Unknown.
@@ -290,7 +290,7 @@ function TxtCharEncoding(inChar: WChar): CharEncodingType; syscall sysTrapIntlDi
 // This is the maximum encoding of any character in the string, where
 // highest is unknown, and lowest is ascii.
 
-function TxtStrEncoding(const inStr: PChar): CharEncodingType; syscall sysTrapIntlDispatch, intlTxtStrEncoding;
+function TxtStrEncoding(const inStr: PAnsiChar): CharEncodingType; syscall sysTrapIntlDispatch, intlTxtStrEncoding;
 
 // Return the higher (max) encoding of <a> and <b>.
 
@@ -299,12 +299,12 @@ function TxtMaxEncoding(a, b: CharEncodingType): CharEncodingType; syscall sysTr
 // Return a pointer to the 'standard' name for <inEncoding>. If the
 // encoding is unknown, return a pointer to an empty string.
 
-function TxtEncodingName(inEncoding: CharEncodingType): PChar; syscall sysTrapIntlDispatch, intlTxtEncodingName;
+function TxtEncodingName(inEncoding: CharEncodingType): PAnsiChar; syscall sysTrapIntlDispatch, intlTxtEncodingName;
 
 // Map from a character set name <iEncodingName> to a CharEncodingType.
 // If the character set name is unknown, return charEncodingUnknown.
 
-function TxtNameToEncoding(const iEncodingName: PChar): CharEncodingType; syscall sysTrapIntlDispatch, intlTxtNameToEncoding;
+function TxtNameToEncoding(const iEncodingName: PAnsiChar): CharEncodingType; syscall sysTrapIntlDispatch, intlTxtNameToEncoding;
 
 // Transliterate <inSrcLength> bytes of text found in <inSrcText>, based
 // on the requested <inOp> operation. Place the results in <outDstText>,
@@ -316,7 +316,7 @@ function TxtNameToEncoding(const iEncodingName: PChar): CharEncodingType; syscal
 // <ioDstLength> will contain the total space required in the destination
 // buffer in order to perform the operation.
 
-function TxtTransliterate(const inSrcText: PChar; inSrcLength: UInt16; outDstText: PChar;
+function TxtTransliterate(const inSrcText: PAnsiChar; inSrcLength: UInt16; outDstText: PAnsiChar;
                           var ioDstLength: UInt16; inOp: TranslitOpType): Err; syscall sysTrapIntlDispatch, intlTxtTransliterate;
 
 // Convert <*ioSrcBytes> of text from <srcTextP> between the <srcEncoding>
@@ -351,9 +351,9 @@ function TxtTransliterate(const inSrcText: PChar; inSrcLength: UInt16; outDstTex
 // Note that the substitution string must use the destination character encoding.
 
 function TxtConvertEncoding(newConversion: Boolean; var ioStateP: TxtConvertStateType;
-         const srcTextP: PChar; var ioSrcBytes: UInt16; srcEncoding: CharEncodingType;
-         dstTextP: PChar; var ioDstBytes: UInt16; dstEncoding: CharEncodingType;
-         const substitutionStr: PChar; substitutionLen: UInt16): Err; syscall sysTrapIntlDispatch, intlTxtConvertEncoding;
+         const srcTextP: PAnsiChar; var ioSrcBytes: UInt16; srcEncoding: CharEncodingType;
+         dstTextP: PAnsiChar; var ioDstBytes: UInt16; dstEncoding: CharEncodingType;
+         const substitutionStr: PAnsiChar; substitutionLen: UInt16): Err; syscall sysTrapIntlDispatch, intlTxtConvertEncoding;
 
 // Return true if <inChar> is a valid (drawable) character. Note that we'll
 // return false if it is a virtual character code.
@@ -368,8 +368,8 @@ function TxtCharIsValid(inChar: WChar): Boolean; syscall sysTrapIntlDispatch, in
 // This comparison is "caseless", in the same manner as a find operation,
 // thus case, character size, etc. don't matter.
 
-function TxtCaselessCompare(const s1: PChar; s1Len: UInt16; var s1MatchLen: UInt16;
-                            const s2: PChar; s2Len: UInt16; var s2MatchLen: UInt16): Int16; syscall sysTrapIntlDispatch, intlTxtCaselessCompare;
+function TxtCaselessCompare(const s1: PAnsiChar; s1Len: UInt16; var s1MatchLen: UInt16;
+                            const s2: PAnsiChar; s2Len: UInt16; var s2MatchLen: UInt16): Int16; syscall sysTrapIntlDispatch, intlTxtCaselessCompare;
 
 // Compare the first <s1Len> bytes of <s1> with the first <s2Len> bytes
 // of <s2>. Return the results of the comparison: < 0 if <s1> sorts before
@@ -377,8 +377,8 @@ function TxtCaselessCompare(const s1: PChar; s1Len: UInt16; var s1MatchLen: UInt
 // the number of bytes that matched in <s1MatchLen> and <s2MatchLen>
 // (either one of which can be NULL if the match length is not needed).
 
-function TxtCompare(const s1: PChar; s1Len: UInt16; var s1MatchLen: UInt16;
-                    const s2: PChar; s2Len: UInt16; var s2MatchLen: UInt16): Int16; syscall sysTrapIntlDispatch, intlTxtCompare;
+function TxtCompare(const s1: PAnsiChar; s1Len: UInt16; var s1MatchLen: UInt16;
+                    const s2: PAnsiChar; s2Len: UInt16; var s2MatchLen: UInt16): Int16; syscall sysTrapIntlDispatch, intlTxtCompare;
 
 implementation
 
@@ -455,12 +455,12 @@ begin
   TxtCharIsVirtual := (m and commandKeyMask) <> 0;
 end;
 
-function TxtPreviousCharSize(const inText: PChar; inOffset: UInt32): UInt16;
+function TxtPreviousCharSize(const inText: PAnsiChar; inOffset: UInt32): UInt16;
 begin
   TxtPreviousCharSize := TxtGetPreviousChar(inText, inOffset, nil);
 end;
 
-function TxtNextCharSize(const inText: PChar; inOffset: UInt32): UInt16;
+function TxtNextCharSize(const inText: PAnsiChar; inOffset: UInt32): UInt16;
 begin
  TxtNextCharSize := TxtGetNextChar(inText, inOffset, nil);
 end;

packages/palmunits/src/uicontrols.pp

@@ -40,7 +40,7 @@ procedure UIContrastAdjust; syscall sysTrapUIContrastAdjust;
 procedure UIBrightnessAdjust; syscall sysTrapUIBrightnessAdjust;
 
 function UIPickColor(var indexP: IndexedColorType; var rgbP: RGBColorType;
-                    start: UIPickColorStartType; const titleP, tipP: PChar): Boolean; syscall sysTrapUIPickColor;
+                    start: UIPickColorStartType; const titleP, tipP: PAnsiChar): Boolean; syscall sysTrapUIPickColor;
 
 implementation
 

packages/palmunits/src/uiresources.pp

@@ -301,7 +301,7 @@ function ResLoadForm(rscID: UInt16): Pointer; syscall sysTrapResLoadForm;
 
 function ResLoadMenu(rscID: UInt16): Pointer; syscall sysTrapResLoadMenu;
 
-//!!!function ResLoadString(rscID: UInt16): PChar;
+//!!!function ResLoadString(rscID: UInt16): PAnsiChar;
 
 function ResLoadConstant(rscID: UInt16): UInt32; syscall sysTrapResLoadConstant;
 

packages/palmunits/src/vfsmgr.pp

@@ -77,7 +77,7 @@ type
 
   FileInfoTag = record
     attributes: UInt32;
-    nameP: PChar;       // buffer to receive full name; pass NULL to avoid getting name
+    nameP: PAnsiChar;       // buffer to receive full name; pass NULL to avoid getting name
     nameBufLen: UInt16; // size of nameP buffer, in bytes
   end;
   FileInfoType = FileInfoTag;
@@ -310,9 +310,9 @@ function VFSInit: Err; syscall sysTrapVFSMgr, vfsTrapInit;
 function VFSCustomControl(fsCreator, apiCreator: UInt32; apiSelector: UInt16;
                           valueP: Pointer; var valueLenP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapCustomControl;
 
-function VFSFileCreate(volRefNum: UInt16; const pathNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapFileCreate;
+function VFSFileCreate(volRefNum: UInt16; const pathNameP: PAnsiChar): Err; syscall sysTrapVFSMgr, vfsTrapFileCreate;
 
-function VFSFileOpen(volRefNum: UInt16; const pathNameP: PChar; openMode: UInt16; var fileRefP: FileRef): Err; syscall sysTrapVFSMgr, vfsTrapFileOpen;
+function VFSFileOpen(volRefNum: UInt16; const pathNameP: PAnsiChar; openMode: UInt16; var fileRefP: FileRef): Err; syscall sysTrapVFSMgr, vfsTrapFileOpen;
 
 function VFSFileClose(fileRef: FileRef): Err; syscall sysTrapVFSMgr, vfsTrapFileClose;
 
@@ -324,9 +324,9 @@ function VFSFileRead(fileRef: FileRef; numBytes: UInt32; bufP: Pointer; var numB
 function VFSFileWrite(fileRef: FileRef; numBytes: UInt32; const dataP: Pointer; var numBytesWrittenP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileWrite;
 
 // some file routines work on directories
-function VFSFileDelete(volRefNum: UInt16; const pathNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapFileDelete;
+function VFSFileDelete(volRefNum: UInt16; const pathNameP: PAnsiChar): Err; syscall sysTrapVFSMgr, vfsTrapFileDelete;
 
-function VFSFileRename(volRefNum: UInt16; const pathNameP, newNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapFileRename;
+function VFSFileRename(volRefNum: UInt16; const pathNameP, newNameP: PAnsiChar): Err; syscall sysTrapVFSMgr, vfsTrapFileRename;
 
 function VFSFileSeek(fileRef: FileRef; origin: FileOrigin; offset: Int32): Err; syscall sysTrapVFSMgr, vfsTrapFileSeek;
 
@@ -347,18 +347,18 @@ function VFSFileGetDate(fileRef: FileRef; whichDate: UInt16; var dateP: UInt32):
 function VFSFileSetDate(fileRef: FileRef; whichDate: UInt16; date: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileSetDate;
 
 
-function VFSDirCreate(volRefNum: UInt16; const dirNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapDirCreate;
+function VFSDirCreate(volRefNum: UInt16; const dirNameP: PAnsiChar): Err; syscall sysTrapVFSMgr, vfsTrapDirCreate;
 
 function VFSDirEntryEnumerate(dirRef: FileRef; var dirEntryIteratorP: UInt32; var infoP: FileInfoType): Err; syscall sysTrapVFSMgr, vfsTrapDirEntryEnumerate;
 
 
-function VFSGetDefaultDirectory(volRefNum: UInt16; const fileTypeStr: PChar;
-                                pathStr: PChar; var bufLenP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapGetDefaultDirectory;
+function VFSGetDefaultDirectory(volRefNum: UInt16; const fileTypeStr: PAnsiChar;
+                                pathStr: PAnsiChar; var bufLenP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapGetDefaultDirectory;
 
-function VFSRegisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32;
-                                     const pathStr: PChar): Err; syscall sysTrapVFSMgr, vfsTrapRegisterDefaultDirectory;
+function VFSRegisterDefaultDirectory(const fileTypeStr: PAnsiChar; mediaType: UInt32;
+                                     const pathStr: PAnsiChar): Err; syscall sysTrapVFSMgr, vfsTrapRegisterDefaultDirectory;
 
-function VFSUnregisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapUnregisterDefaultDirectory;
+function VFSUnregisterDefaultDirectory(const fileTypeStr: PAnsiChar; mediaType: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapUnregisterDefaultDirectory;
 
 
 function VFSVolumeFormat(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err; syscall sysTrapVFSMgr, vfsTrapVolumeFormat;
@@ -371,9 +371,9 @@ function VFSVolumeEnumerate(var volRefNumP: UInt16; var volIteratorP: UInt32): E
 
 function VFSVolumeInfo(volRefNum: UInt16; var volInfoP: VolumeInfoType): Err; syscall sysTrapVFSMgr, vfsTrapVolumeInfo;
 
-function VFSVolumeGetLabel(volRefNum: UInt16; labelP: PChar; bufLen: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapVolumeGetLabel;
+function VFSVolumeGetLabel(volRefNum: UInt16; labelP: PAnsiChar; bufLen: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapVolumeGetLabel;
 
-function VFSVolumeSetLabel(volRefNum: UInt16; const labelP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapVolumeSetLabel;
+function VFSVolumeSetLabel(volRefNum: UInt16; const labelP: PAnsiChar): Err; syscall sysTrapVFSMgr, vfsTrapVolumeSetLabel;
 
 function VFSVolumeSize(volRefNum: UInt16; var volumeUsedP, volumeTotalP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapVolumeSize;
 
@@ -381,23 +381,23 @@ function VFSInstallFSLib(creator: UInt32; var fsLibRefNumP: UInt16): Err; syscal
 
 function VFSRemoveFSLib(fsLibRefNum: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapRemoveFSLib;
 
-function VFSImportDatabaseFromFile(volRefNum: UInt16; const pathNameP: PChar;
+function VFSImportDatabaseFromFile(volRefNum: UInt16; const pathNameP: PAnsiChar;
                                    var cardNoP: UInt16; var dbIDP: LocalID): Err; syscall sysTrapVFSMgr, vfsTrapImportDatabaseFromFile;
 
-function VFSImportDatabaseFromFileCustom(volRefNum: UInt16; const pathNameP: PChar;
+function VFSImportDatabaseFromFileCustom(volRefNum: UInt16; const pathNameP: PAnsiChar;
                                          var cardNoP: UInt16; var dbIDP: LocalID;
                                          importProcP: VFSImportProcPtr; userDataP: Pointer): Err; syscall sysTrapVFSMgr, vfsTrapImportDatabaseFromFileCustom;
 
-function VFSExportDatabaseToFile(volRefNum: UInt16; const pathNameP: PChar;
+function VFSExportDatabaseToFile(volRefNum: UInt16; const pathNameP: PAnsiChar;
                                  cardNo: UInt16; dbID: LocalID): Err; syscall sysTrapVFSMgr, vfsTrapExportDatabaseToFile;
 
-function VFSExportDatabaseToFileCustom(volRefNum: UInt16; const pathNameP: PChar;
+function VFSExportDatabaseToFileCustom(volRefNum: UInt16; const pathNameP: PAnsiChar;
                                        cardNo: UInt16; dbID: LocalID;
                                        exportProcP: VFSExportProcPtr; userDataP: Pointer): Err; syscall sysTrapVFSMgr, vfsTrapExportDatabaseToFileCustom;
 
 function VFSFileDBGetResource(ref: FileRef; type_: DmResType; resID: DmResID; var resHP: MemHandle): Err; syscall sysTrapVFSMgr, vfsTrapFileDBGetResource;
 
-function VFSFileDBInfo(ref: FileRef; nameP: PChar; var attributesP, versionP: UInt16;
+function VFSFileDBInfo(ref: FileRef; nameP: PAnsiChar; var attributesP, versionP: UInt16;
                        var crDateP, modDateP, bckUpDateP, modNumP: UInt32;
                        var appInfoHP, sortInfoHP: MemHandle; var typeP, creatorP: UInt32;
                        var numRecordsP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapFileDBInfo;

packages/palmunits/src/window.pp

@@ -433,19 +433,19 @@ procedure WinPaintBitmap(bitmapP: BitmapPtr; x, y: Coord); syscall sysTrapWinPai
 // Characters
 procedure WinDrawChar(theChar: WChar; x, y: Coord); syscall sysTrapWinDrawChar;
 
-procedure WinDrawChars(const chars: PChar; len: Int16; x, y: Coord); syscall sysTrapWinDrawChars;
+procedure WinDrawChars(const chars: PAnsiChar; len: Int16; x, y: Coord); syscall sysTrapWinDrawChars;
 
 procedure WinPaintChar(theChar: WChar; x, y: Coord); syscall sysTrapWinPaintChar;
 
-procedure WinPaintChars(const chars: PChar; len: Int16; x, y: Coord); syscall sysTrapWinPaintChars;
+procedure WinPaintChars(const chars: PAnsiChar; len: Int16; x, y: Coord); syscall sysTrapWinPaintChars;
 
-procedure WinDrawInvertedChars(const chars: PChar; len: Int16; x, y: Coord); syscall sysTrapWinDrawInvertedChars;
+procedure WinDrawInvertedChars(const chars: PAnsiChar; len: Int16; x, y: Coord); syscall sysTrapWinDrawInvertedChars;
 
-procedure WinDrawTruncChars(const chars: PChar; len: Int16; x, y, maxWidth: Coord); syscall sysTrapWinDrawTruncChars;
+procedure WinDrawTruncChars(const chars: PAnsiChar; len: Int16; x, y, maxWidth: Coord); syscall sysTrapWinDrawTruncChars;
 
-procedure WinEraseChars(const chars: PChar; len: Int16; x, y: Coord); syscall sysTrapWinEraseChars;
+procedure WinEraseChars(const chars: PAnsiChar; len: Int16; x, y: Coord); syscall sysTrapWinEraseChars;
 
-procedure WinInvertChars(const chars: PChar; len: Int16; x, y: Coord); syscall sysTrapWinInvertChars;
+procedure WinInvertChars(const chars: PAnsiChar; len: Int16; x, y: Coord); syscall sysTrapWinInvertChars;
 
 function WinSetUnderlineMode(mode: UnderlineModeType): UnderlineModeType; syscall sysTrapWinSetUnderlineMode;