Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Free Pascal
»
General
(Moderators:
FPK
,
Tomas Hajny
) »
Internal error 2021052602
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
Recent
Basic canvas drawing
by
Jonny
[
Today
at 03:30:59 pm]
Why my program crashed du...
by
TYDQ
[
Today
at 03:29:55 pm]
Treeview: full-width back...
by
d7_2_laz
[
Today
at 03:25:13 pm]
Transparent animation
by
majolika
[
Today
at 03:10:14 pm]
using RunCommand to wrap ...
by
MarkMLl
[
Today
at 02:17:57 pm]
Candlestick chart
by
ronhud
[
Today
at 01:59:56 pm]
Lazarus editor feature re...
by
Tony Stone
[
Today
at 01:57:07 pm]
The Silver Coder on YouTu...
by
silvercoder70
[
Today
at 01:50:34 pm]
Search in Watches window.
by
Martin_fr
[
Today
at 01:17:59 pm]
Cell bounding box drawing...
by
Jonny
[
Today
at 12:32:10 pm]
API definitions
by
440bx
[
Today
at 12:29:57 pm]
Where is Spready?
by
wp
[
Today
at 12:12:37 pm]
Deleted
by
wp
[
Today
at 12:05:53 pm]
Bug in the formula MATCH
by
wp
[
Today
at 12:02:49 pm]
Tesseract for ocr
by
MarkMLl
[
Today
at 12:01:38 pm]
problems accessing mySQL-...
by
hy
[
Today
at 11:48:08 am]
IsNan
by
Paolo
[
Today
at 11:46:04 am]
Fpcupdeluxe
by
petex
[
Today
at 11:39:37 am]
Custom self drawn compone...
by
Josh
[
Today
at 11:17:09 am]
missed warning
by
Paolo
[
Today
at 10:33:57 am]
align a panel alClient in...
by
Hansvb
[
Today
at 09:45:04 am]
FLIF and FUIF Formats (Fr...
by
hukka
[
Today
at 05:34:30 am]
Unselect all rows in stri...
by
Jonny
[
Today
at 02:16:49 am]
Magic Cropper (correct pe...
by
Boleeman
[
Today
at 01:41:08 am]
BUG in InputQuery if defa...
by
dsiders
[
Today
at 12:38:49 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Internal error 2021052602 (Read 1243 times)
Fibonacci
Hero Member
Posts: 649
Internal Error Hunter
Internal error 2021052602
«
on:
December 25, 2024, 07:20:20 pm »
Finally. Took a while.
Code: Pascal
[Select]
[+]
[-]
program
ie2021052602
;
{$modeswitch ANONYMOUSFUNCTIONS}
//{$modeswitch CLASSICPROCVARS} // with this its a regular error: expected procedure, got pointer
//{$modeswitch POINTERTOPROCVAR} // with this (and CLASSICPROCVARS) the code works fine
procedure
test
(
p
:
TProcedure
)
;
begin
p
;
end
;
begin
test
(
@
(
procedure
// Error: Internal error 2021052602
begin
writeln
(
'Hello'
)
;
end
)
)
;
end
.
Logged
bytebites
Hero Member
Posts: 698
Re: Internal error 2021052602
«
Reply #1 on:
December 25, 2024, 07:52:02 pm »
Working version without @
Code: Pascal
[Select]
[+]
[-]
program
ie2021052602
;
{$mode objfpc}
{$modeswitch ANONYMOUSFUNCTIONS}
{$modeswitch CLASSICPROCVARS}
// with this its a regular error: expected procedure, got pointer
{$modeswitch POINTERTOPROCVAR}
// with this (and CLASSICPROCVARS) the code works fine
procedure
test
(
p
:
TProcedure
)
;
begin
p
(
)
;
end
;
begin
test
(
(
procedure
// Error: Internal error 2021052602
begin
writeln
(
'Hello'
)
;
end
)
)
;
end
.
Logged
Fibonacci
Hero Member
Posts: 649
Internal Error Hunter
Re: Internal error 2021052602
«
Reply #2 on:
December 25, 2024, 08:01:16 pm »
Quote from: bytebites on December 25, 2024, 07:52:02 pm
Working version without @
Absolutely! Thanks for the working version!
But the goal is to find IEs, catch em all. A bit of a hobby
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Free Pascal
»
General
(Moderators:
FPK
,
Tomas Hajny
) »
Internal error 2021052602
TinyPortal
© 2005-2018