Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
General
»
Internal error 2011061401
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
A Newbie Question – Text ...
by
TRon
[
Today
at 12:30:16 am]
Lazarus for Windows on aa...
by
Wallaby
[
Today
at 12:21:00 am]
Free Pascal Text Mode IDE...
by
carl_caulkett
[
Today
at 12:03:26 am]
Created EXE w/Linux Laz I...
by
msintle
[November 07, 2024, 11:42:07 pm]
need a dummies guide to c...
by
silvercoder70
[November 07, 2024, 11:24:39 pm]
/lib/arm-linux-gnueabihf/...
by
Fred vS
[November 07, 2024, 11:23:14 pm]
ESS-Model again
by
JuhaManninen
[November 07, 2024, 11:22:37 pm]
Difference in ParamStr(0)...
by
PascalDragon
[November 07, 2024, 11:18:12 pm]
MessageBox inside MainFor...
by
silvercoder70
[November 07, 2024, 11:06:31 pm]
AVRPascal – free code edi...
by
ackarwow
[November 07, 2024, 11:02:11 pm]
New Big Integer library i...
by
srvaldez
[November 07, 2024, 10:52:18 pm]
sdl2 & win10 64bits probl...
by
DrakkTheSeafarer
[November 07, 2024, 10:31:02 pm]
Common File Dialogs Have ...
by
rvk
[November 07, 2024, 10:16:41 pm]
AY_FLY Library
by
Gigatron
[November 07, 2024, 09:54:57 pm]
Features - as started in ...
by
Martin_fr
[November 07, 2024, 09:49:30 pm]
Divie by Zero
by
PascalDragon
[November 07, 2024, 09:21:25 pm]
[Solved ]Binary String to...
by
marcov
[November 07, 2024, 09:12:52 pm]
Inline assembly issue
by
Aik_T
[November 07, 2024, 08:55:11 pm]
Weird behavior opening a ...
by
HotShoe
[November 07, 2024, 07:30:32 pm]
LazCAD – First Release!
by
maurog
[November 07, 2024, 07:28:06 pm]
Does a procedure in a pro...
by
Warfley
[November 07, 2024, 07:09:38 pm]
[SOLVED] Show progress on...
by
cdbc
[November 07, 2024, 06:47:05 pm]
Building a packet from sc...
by
MarkMLl
[November 07, 2024, 06:43:33 pm]
CREATE_NEW_CONSOLE for Li...
by
msintle
[November 07, 2024, 06:12:52 pm]
[SOLVED] Tprocess freeze
by
Thaddy
[November 07, 2024, 04:31:25 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Internal error 2011061401 (Read 179 times)
Fibonacci
Hero Member
Posts: 577
Internal Error Hunter
Internal error 2011061401
«
on:
October 30, 2024, 08:26:08 pm »
Code: Pascal
[Select]
[+]
[-]
program
ie2011061401
;
type
tt
=
type
TInterfacedObject
;
// project1.lpr(4,30) Error: Internal error 2011061401
begin
end
.
Reported to:
https://gitlab.com/freepascal.org/fpc/source/-/issues/40982
Here it is in the compiler source:
compiler/symdef.pas:9156
Code: Pascal
[Select]
[+]
[-]
function
TImplementedInterface
.
getcopy
:
TImplementedInterface
;
begin
Result
:
=
TImplementedInterface
.
Create
(
nil
)
;
{ 1) the procdefs list will be freed once for each copy
2) since the procdefs list owns its elements, those will also be freed for each copy
3) idem for the name mappings
}
{ warning: this is completely wrong on so many levels...
Move(pointer(self)^,pointer(result)^,InstanceSize);
We need to make clean copies of the different fields
this is not implemented yet, and thus we generate an internal
error instead PM 2011-06-14 }
internalerror
(
2011061401
)
;
end
;
Logged
Thaddy
Hero Member
Posts: 15992
Censorship about opinions does not belong here.
Re: Internal error 2011061401
«
Reply #1 on:
October 30, 2024, 08:40:14 pm »
I can confirm this. It goes wrong with the interface support.
Logged
If I smell bad code it usually is bad code and that includes my own code.
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
General
»
Internal error 2011061401
TinyPortal
© 2005-2018