paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 13:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

r322 | jonas | 2010-02-21 12:04:33 +0100 (Sun, 21 Feb 2010) | 3 lines

Browse Source 
* TERecPtr again points to TERec instead of to an opaque data type (error
    noted by Scott Knapp)

git-svn-id: trunk@14932 -
This commit is contained in:
Jonas Maebe 2010-02-21 11:05:56 +00:00
parent 30207d73ea
commit c235307643
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/univint/src/TextEdit.pas
View File

@ -194,7 +194,7 @@ uses MacTypes,QuickdrawTypes,MixedMode;
{$ALIGN MAC68K} {$ALIGN MAC68K}
type type
TERecPtr = ^SInt32; { an opaque type } TERecPtr = ^TERec;
TEPtr = TERecPtr; TEPtr = TERecPtr;
TEHandle = ^TEPtr; TEHandle = ^TEPtr;
HighHookProcPtr = procedure( const (*var*) r: Rect; pTE: TEPtr ); HighHookProcPtr = procedure( const (*var*) r: Rect; pTE: TEPtr );
@ -356,7 +356,6 @@ type
<= charPosition D0.W <= charPosition D0.W
} }
type
HighHookUPP = HighHookProcPtr; HighHookUPP = HighHookProcPtr;
EOLHookUPP = EOLHookProcPtr; EOLHookUPP = EOLHookProcPtr;
CaretHookUPP = CaretHookProcPtr; CaretHookUPP = CaretHookProcPtr;