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
Forum Rules
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
The compiler fails to war...
by
AlexanderK
[
Today
at 10:32:57 pm]
unit init, finalize and i...
by
PascalDragon
[
Today
at 09:46:49 pm]
StrToDateTime problems
by
PascalDragon
[
Today
at 09:29:08 pm]
Why does FPC behave this ...
by
PascalDragon
[
Today
at 09:26:24 pm]
How to forward a Class in...
by
PascalDragon
[
Today
at 09:21:47 pm]
Pyramid solitaire, re-wri...
by
TBMan
[
Today
at 09:21:07 pm]
Tzipper giving error on M...
by
Josh
[
Today
at 08:46:02 pm]
Embedded qss stylesheets ...
by
big_M
[
Today
at 08:03:38 pm]
Copy and Past Code
by
n7800
[
Today
at 07:47:43 pm]
AI: Agentic Design Patter...
by
avra
[
Today
at 06:36:29 pm]
[SOLVED] Transparent back...
by
ginoo
[
Today
at 04:08:44 pm]
CudaText editor (written ...
by
szlbz
[
Today
at 02:16:25 pm]
PasLLM - LLM Inference En...
by
matthius
[
Today
at 01:41:45 pm]
Theoretical question. Laz...
by
Petrus Vorster
[
Today
at 01:09:19 pm]
Stacked bars not drawn pr...
by
apeoperaio
[
Today
at 12:57:01 pm]
New book on Object Pascal
by
matthius
[
Today
at 12:55:36 pm]
[SOLVED] Assembler error ...
by
dbannon
[
Today
at 12:55:16 pm]
four squares (inc)
by
speter
[
Today
at 11:25:05 am]
Regarding the issue of de...
by
Martin_fr
[
Today
at 10:20:35 am]
Dice (raylib + kraft phys...
by
fcu
[
Today
at 09:01:24 am]
Lazarus seems to be makin...
by
Boleeman
[
Today
at 07:54:25 am]
[SOLVED] Lazreport PDF
by
Petrus Vorster
[
Today
at 07:42:59 am]
Maze Makers: Modified Cyl...
by
Boleeman
[
Today
at 07:20:10 am]
How to set the Excel cell...
by
dodgex
[
Today
at 04:51:41 am]
TSpeedButton qt6 styleshe...
by
big_M
[January 14, 2026, 04:53:29 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: [SOLVED] Code clean up at utils/h2pas/scan.pas procedure writetree (Read 970 times)
lagprogramming
Sr. Member
Posts: 409
[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: 12593
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: 2667
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