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

codetools: h2p: writing global pascal variables

Browse Source 
git-svn-id: trunk@14609 -
This commit is contained in:
mattias 2008-03-21 21:52:52 +00:00
parent 9b34769c83
commit 5c76657004
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/codetools/h2pastool.pas
View File

@ -948,6 +948,7 @@ var
var
H2PNode: TH2PNode;
UsesClause: String;
PascalCode: String;
begin
IndentStr:='';
@ -977,9 +978,18 @@ begin
while H2PNode<>nil do begin
case H2PNode.PascalDesc of
ctnVarDefinition:
begin
if H2PNode.Parent=nil then begin
// global variable
SetSection(ctnVarSection);
W(H2PNode.PascalName+': '+H2PNode.PascalCode+'; cvar; public;');
PascalCode:=H2PNode.PascalCode+';';
if H2PNode.CName<>'' then begin
PascalCode:=PascalCode+' cvar; public';
if H2PNode.PascalName<>H2PNode.CName then begin
PascalCode:=PascalCode+' name '''+H2PNode.CName+'''';
end;
PascalCode:=PascalCode+';';
end;
W(H2PNode.PascalName+': '+PascalCode);
end;
end;
H2PNode:=H2PNode.Next;
@ -992,7 +1002,6 @@ begin
// write end.
W('end.');
W('');
end;
function TH2PasTool.GetSimplePascalTypeOfCVar(CVarNode: TCodeTreeNode): string;