Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Free Pascal
»
FPC development
(Moderators:
FPK
,
Tomas Hajny
) »
[SOLVED] Code clean up at utils/h2pas/scan.pas procedure writetree
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
WIKI Timeout issues
Please read here if you have trouble connecting to the wiki
Recent
Sqlite & Zeos
by
Handoko
[
Today
at 11:55:32 am]
DBF / DBGRID
by
Handoko
[
Today
at 11:36:03 am]
[SOLVED] Are there units ...
by
Gustavo 'Gus' Carreno
[
Today
at 11:16:37 am]
Loop Iteration Speed Test
by
paweld
[
Today
at 11:13:59 am]
OpenDialog is too big and...
by
440bx
[
Today
at 11:09:35 am]
Shenanigans with ncurses ...
by
Gustavo 'Gus' Carreno
[
Today
at 11:00:34 am]
Has anyone loaded ReactOS...
by
Thaddy
[
Today
at 10:51:44 am]
Status and Maintenance of...
by
Thaddy
[
Today
at 09:53:53 am]
Inheritance of Classes th...
by
Thaddy
[
Today
at 09:31:25 am]
Trouble compiling fpc for...
by
ermok
[
Today
at 09:22:20 am]
A Tutorial for LazReport
by
Thaddy
[
Today
at 09:12:25 am]
LAMW complaining about "A...
by
Alcatiz
[
Today
at 08:03:36 am]
Hints for method name mis...
by
CM630
[
Today
at 07:55:47 am]
Variable number of button...
by
Martin_fr
[
Today
at 07:41:02 am]
TTask 'file not found' er...
by
Thaddy
[
Today
at 07:09:45 am]
Has the function of findi...
by
gary
[
Today
at 06:02:48 am]
TaurusTLS 1.0.0.25 beta 2...
by
J. Peter Mugaas
[
Today
at 05:26:43 am]
My second "paint" program
by
TBMan
[
Today
at 04:13:41 am]
Zeos 8, Acces violation
by
incendio
[
Today
at 04:08:35 am]
Opencv version 4.6 C++ AP...
by
Mongkey
[
Today
at 02:39:07 am]
TBitBtn no longer shows g...
by
wp
[
Today
at 01:09:04 am]
Modbus summary thread
by
bobby100
[June 22, 2025, 11:18:35 pm]
connection lost
by
ADMGNS
[June 22, 2025, 10:58:19 pm]
How to export Pascal vari...
by
ecm
[June 22, 2025, 09:54:37 pm]
What WinAPI functions can...
by
440bx
[June 22, 2025, 09:01:50 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: [SOLVED] Code clean up at utils/h2pas/scan.pas procedure writetree (Read 870 times)
lagprogramming
Sr. Member
Posts: 407
[SOLVED] Code clean up at utils/h2pas/scan.pas procedure writetree
«
on:
April 20, 2023, 03:37:50 pm »
utils/h2pas/scan.pas has procedure writetree(p: presobject);
This procedure has a useless variable declaration: "i : integer;".
Here is a patch:
Code: Pascal
[Select]
[+]
[-]
diff
--
git a
/
utils
/
h2pas
/
scan
.
pas
b
/
utils
/
h2pas
/
scan
.
pas
index
957bf65f31
..
fcbc2ba6ff
100644
---
a
/
utils
/
h2pas
/
scan
.
pas
+++
b
/
utils
/
h2pas
/
scan
.
pas
@@
-
257
,
7
+
257
,
6
@@
procedure
writetree
(
p
:
presobject
)
;
var
-
i
:
integer
;
localp
:
presobject
;
localp1
:
presobject
;
currentlevel
:
integer
;
«
Last Edit: April 21, 2023, 09:12:41 am by lagprogramming
»
Logged
marcov
Administrator
Hero Member
Posts: 12269
FPC developer.
Re: Code clean up at utils/h2pas/scan.pas procedure writetree
«
Reply #1 on:
April 20, 2023, 04:32:04 pm »
scan.pas is generated from scan.l.
But anyway, I did it.
Logged
AlexTP
Hero Member
Posts: 2574
Re: Code clean up at utils/h2pas/scan.pas procedure writetree
«
Reply #2 on:
April 20, 2023, 05:00:24 pm »
Too micro fix for my taste. my ATSynEdit has several such issues with vars.
Logged
CudaText editor
-
ATSynEdit
-
More from me
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Free Pascal
»
FPC development
(Moderators:
FPK
,
Tomas Hajny
) »
[SOLVED] Code clean up at utils/h2pas/scan.pas procedure writetree
TinyPortal
© 2005-2018