paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:19:28 +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; IValue:=0;
end; end;
{$IFDEF VER1_0 workaround}
Function CallSingleFunc(s : Pointer; Address : Pointer; Function CallSingleFunc(s : Pointer; Address : Pointer;
Index, IValue : Longint) : Single; assembler; Index, IValue : Longint) : Single; assembler;
{$asmmode att} {$asmmode att}
@ -1816,7 +1817,7 @@ Function CallExtendedFunc(s : Pointer; Address : Pointer;
movl saveesi,%esi movl saveesi,%esi
end; end;
Function MyGetFloatProp(Instance : TObject;PropInfo : PPropInfo) : Extended; Function GetFloatProp(Instance : TObject;PropInfo : PPropInfo) : Extended;
var var
Index,Ivalue : longint; Index,Ivalue : longint;
@ -1868,7 +1869,7 @@ begin
Result:=Value; Result:=Value;
end; end;
Procedure MySetFloatProp(Instance : TObject;PropInfo : PPropInfo; Procedure SetFloatProp(Instance : TObject;PropInfo : PPropInfo;
Value : Extended); Value : Extended);
type type
@ -1936,10 +1937,11 @@ begin
end; end;
end; end;
end; end;
{$ENDIF VER1_0}
function TPropertyEditor.GetFloatValueAt(Index:Integer):Extended; function TPropertyEditor.GetFloatValueAt(Index:Integer):Extended;
begin begin
with FPropList^[Index] do Result:=MyGetFloatProp(Instance,PropInfo); with FPropList^[Index] do Result:=GetFloatProp(Instance,PropInfo);
end; end;
function TPropertyEditor.GetMethodValue:TMethod; function TPropertyEditor.GetMethodValue:TMethod;
@ -2078,10 +2080,10 @@ begin
Changed:=false; Changed:=false;
for I:=0 to FPropCount-1 do for I:=0 to FPropCount-1 do
with FPropList^[I] do with FPropList^[I] do
Changed:=Changed or (MyGetFloatProp(Instance,PropInfo)<>NewValue); Changed:=Changed or (GetFloatProp(Instance,PropInfo)<>NewValue);
if Changed then begin if Changed then begin
for I:=0 to FPropCount-1 do for I:=0 to FPropCount-1 do
with FPropList^[I] do MySetFloatProp(Instance,PropInfo,NewValue); with FPropList^[I] do SetFloatProp(Instance,PropInfo,NewValue);
Modified; Modified;
end; end;
end; end;