pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Change PtrInt to in generated code.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3917 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-01-31 12:27:49 +00:00
parent 7d5620b2da
commit 201891920d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/ws_helper/generator.pas
View File

@ -2058,7 +2058,7 @@ begin
WriteLn('procedure %s.Assign(Source: TPersistent);',[ASymbol.Name]); WriteLn('procedure %s.Assign(Source: TPersistent);',[ASymbol.Name]);
WriteLn('var'); WriteLn('var');
Indent();WriteLn('src : %s;',[ASymbol.Name]); Indent();WriteLn('src : %s;',[ASymbol.Name]);
Indent();WriteLn('i, c : PtrInt;'); Indent();WriteLn('i, c : Integer;');
WriteLn('begin'); WriteLn('begin');
Indent();WriteLn('if Assigned(Source) and Source.InheritsFrom(%s) then begin',[ASymbol.Name]); Indent();WriteLn('if Assigned(Source) and Source.InheritsFrom(%s) then begin',[ASymbol.Name]);
IncIndent(); IncIndent();