paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

deactivated assembler workaround for fpc 1.9+

Browse Source 
git-svn-id: trunk@4997 -
This commit is contained in:
mattias 2004-01-03 12:09:33 +00:00
parent c4cd9e782c
commit 7c8f973a48
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ideintf/propedits.pp
View File

@ -1746,6 +1746,7 @@ begin
IValue:=0;
end;
{$IFDEF VER1_0 workaround}
Function CallSingleFunc(s : Pointer; Address : Pointer;
Index, IValue : Longint) : Single; assembler;
{$asmmode att}
@ -1816,7 +1817,7 @@ Function CallExtendedFunc(s : Pointer; Address : Pointer;
movl saveesi,%esi
end;
Function MyGetFloatProp(Instance : TObject;PropInfo : PPropInfo) : Extended;
Function GetFloatProp(Instance : TObject;PropInfo : PPropInfo) : Extended;
var
Index,Ivalue : longint;
@ -1868,7 +1869,7 @@ begin
Result:=Value;
end;
Procedure MySetFloatProp(Instance : TObject;PropInfo : PPropInfo;
Procedure SetFloatProp(Instance : TObject;PropInfo : PPropInfo;
Value : Extended);
type
@ -1936,10 +1937,11 @@ begin
end;
end;
end;
{$ENDIF VER1_0}
function TPropertyEditor.GetFloatValueAt(Index:Integer):Extended;
begin
with FPropList^[Index] do Result:=MyGetFloatProp(Instance,PropInfo);
with FPropList^[Index] do Result:=GetFloatProp(Instance,PropInfo);
end;
function TPropertyEditor.GetMethodValue:TMethod;
@ -2078,10 +2080,10 @@ begin
Changed:=false;
for I:=0 to FPropCount-1 do
with FPropList^[I] do
Changed:=Changed or (MyGetFloatProp(Instance,PropInfo)<>NewValue);
Changed:=Changed or (GetFloatProp(Instance,PropInfo)<>NewValue);
if Changed then begin
for I:=0 to FPropCount-1 do
with FPropList^[I] do MySetFloatProp(Instance,PropInfo,NewValue);
with FPropList^[I] do SetFloatProp(Instance,PropInfo,NewValue);
Modified;
end;
end;