paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-25 01:51:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: debugging

Browse Source 
git-svn-id: trunk@29974 -
This commit is contained in:
mattias 2011-03-21 17:12:25 +00:00
parent be2698980b
commit cc790adde3
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/jitforms.pp
View File

@ -1684,7 +1684,7 @@ end;
set these values. set these values.
But at design time we do not have the corresponding TForm descendent. And But at design time we do not have the corresponding TForm descendent. And
there is no compiled code, thus it must be produced (just-in-time), there is no compiled code, thus it must be produced (just-in-time),
if fake methods are not used . if fake methods are not used.
} }
procedure TJITComponentList.ReaderFindMethod(Reader: TReader; procedure TJITComponentList.ReaderFindMethod(Reader: TReader;
const FindMethodName: Ansistring; var Address: Pointer; var Error: Boolean); const FindMethodName: Ansistring; var Address: Pointer; var Error: Boolean);
@ -1713,7 +1713,7 @@ var
JITMethod: TJITMethod; JITMethod: TJITMethod;
CurLookupRoot: TPersistent; CurLookupRoot: TPersistent;
begin begin
//debugln('TJITComponentList.ReaderSetMethodProperty ',DbgSName(Instance),' LookupRoot=',DbgSName(Reader.LookupRoot),' ',PropInfo^.Name,':=',TheMethodName); //debugln('TJITComponentList.ReaderSetMethodProperty START ',DbgSName(Instance),' LookupRoot=',DbgSName(Reader.LookupRoot),' ',PropInfo^.Name,':=',TheMethodName);
Method.Code:=FCurReadJITComponent.MethodAddress(TheMethodName); Method.Code:=FCurReadJITComponent.MethodAddress(TheMethodName);
if Method.Code<>nil then begin if Method.Code<>nil then begin
// there is a real method with this name // there is a real method with this name
@ -1728,7 +1728,7 @@ begin
CurLookupRoot:=GetLookupRootForComponent(Reader.LookupRoot); CurLookupRoot:=GetLookupRootForComponent(Reader.LookupRoot);
if CurLookupRoot<>nil then begin if CurLookupRoot<>nil then begin
// create a fake TJITMethod // create a fake TJITMethod
//DebugLn(['TJITComponentList.ReaderSetMethodProperty ',DbgSName(reader.LookupRoot),' TheMethodName=',TheMethodName]); //DebugLn(['TJITComponentList.ReaderSetMethodProperty create JIT method: ',DbgSName(reader.LookupRoot),' TheMethodName=',TheMethodName]);
JITMethod:=JITMethods.Add(CurLookupRoot.ClassType,TheMethodName); JITMethod:=JITMethods.Add(CurLookupRoot.ClassType,TheMethodName);
end; end;
end; end;
@ -1738,6 +1738,7 @@ begin
Method.Data:=nil; Method.Data:=nil;
end; end;
SetMethodProp(Instance, PropInfo, Method); SetMethodProp(Instance, PropInfo, Method);
//debugln(['TJITComponentList.ReaderSetMethodProperty Data=',dbgs(Method.Data),' Code=',dbgs(Method.Code)]);
Handled:=true; Handled:=true;
end; end;

1
ideintf/propedits.pp
View File

@ -3960,6 +3960,7 @@ end;
function TMethodPropertyEditor.GetValue: ansistring; function TMethodPropertyEditor.GetValue: ansistring;
begin begin
Result:=PropertyHook.GetMethodName(GetMethodValue,GetComponent(0)); Result:=PropertyHook.GetMethodName(GetMethodValue,GetComponent(0));
//debugln(['TMethodPropertyEditor.GetValue Name=',GetName,' Result=',Result,' Data=',dbgs(GetMethodValue.Data)]);
end; end;
procedure TMethodPropertyEditor.GetValues(Proc: TGetStrProc); procedure TMethodPropertyEditor.GetValues(Proc: TGetStrProc);