paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: Workaround for Mac, prevent using edx in result for TPoint

Browse Source 
git-svn-id: trunk@39406 -
This commit is contained in:
martin 2012-11-28 23:00:54 +00:00
parent 5c8670cd8a
commit 25da242bb8
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/macroscript/emscriptclasses.pas
View File

@ -78,7 +78,7 @@ procedure CompRegisterBasics(AComp: TPSPascalCompiler);
end; end;
begin begin
AComp.AddTypeS('TPoint', 'record x,y' {$IFDEF darwin} +',a,b,c'{$ENDIF} + ': Longint; end;'); AComp.AddTypeS('TPoint', 'record x,y: Longint; end;');
AComp.AddDelphiFunction(DeclPoint); AComp.AddDelphiFunction(DeclPoint);
AddConst('mrNone', 'Integer', mrNone); AddConst('mrNone', 'Integer', mrNone);

2
components/macroscript/test/testscriptprocs.pas
View File

@ -65,12 +65,10 @@ begin
FTestSyn := TSynEdit.Create(nil); FTestSyn := TSynEdit.Create(nil);
FTestMacro := TEMSEditorMacro.Create(nil); FTestMacro := TEMSEditorMacro.Create(nil);
try try
{$IFnDEF darwin}
DoTestSimple('SizeOf(TPoint)', '', DoTestSimple('SizeOf(TPoint)', '',
'var p: TPoint; begin if SizeOf(p) = ' +IntToStr(SizeOf(TPoint)) + ' then Caller.InsertTextAtCaret(''Y'', scamEnd); end.', 'var p: TPoint; begin if SizeOf(p) = ' +IntToStr(SizeOf(TPoint)) + ' then Caller.InsertTextAtCaret(''Y'', scamEnd); end.',
'Y' 'Y'
); );
{$ENDIF}
DoTestSimple('mrNone', '', DoTestSimple('mrNone', '',
'if mrNone = ' +IntToStr(mrNone) + ' then Caller.InsertTextAtCaret(''Y'', scamEnd);', 'if mrNone = ' +IntToStr(mrNone) + ' then Caller.InsertTextAtCaret(''Y'', scamEnd);',