View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0037888 | FPC | Compiler | public | 2020-10-08 12:32 | 2020-10-14 15:49 |
Reporter | Marģers | Assigned To | Florian | ||
Priority | normal | Severity | minor | Reproducibility | have not tried |
Status | closed | Resolution | fixed | ||
Platform | x86_64 | OS | linux | ||
Product Version | 3.3.1 | ||||
Fixed in Version | 3.3.1 | ||||
Summary | 0037888: [patch] duplicate internal error numbers | ||||
Description | fix duplicate internal error numbers (a lot of them not all). | ||||
Additional Information | attached file intererror_log.txt has information on what is changed. 1. column existing internal error number 2. column new internal error number (if empty not changed). line with IF xxx show that line below is in between ifdef endif | ||||
Tags | No tags attached. | ||||
Fixed in Revision | 47103 | ||||
FPCOldBugId | |||||
FPCTarget | - | ||||
Attached Files |
|
|
intererror_log.txt (101,974 bytes)
10000 2020100801 x86 ../src/fpc/compiler/x86/agx86nsm.pas:1303 internalerror(10000); 2020100802 x86 ../src/fpc/compiler/x86/agx86int.pas:1016 internalerror(10000); 10001 2020100803 z80 ../src/fpc/compiler/z80/agsdasz80.pas:477 internalerror(10001); 2020100804 z80 ../src/fpc/compiler/z80/agsdasz80.pas:510 internalerror(10001); 2020100805 z80 ../src/fpc/compiler/z80/agz80vasm.pas:511 internalerror(10001); 2020100806 z80 ../src/fpc/compiler/z80/agz80vasm.pas:544 internalerror(10001); 2020100807 sparcgen ../src/fpc/compiler/sparcgen/cpugas.pas:162 internalerror(10001); 2020100808 sparc64 ../src/fpc/compiler/sparc64/cpugas.pas:166 internalerror(10001); 2020100809 mips ../src/fpc/compiler/mips/cpugas.pas:180 internalerror(10001); 2020100810 x86 ../src/fpc/compiler/x86/agx86att.pas:279 internalerror(10001); 2020100811 x86 ../src/fpc/compiler/x86/agx86att.pas:331 internalerror(10001); 2020100812 x86 ../src/fpc/compiler/x86/agx86nsm.pas:453 internalerror(10001); 2020100813 x86 ../src/fpc/compiler/x86/agx86nsm.pas:490 internalerror(10001); 10081 2020100814 compiler ../src/fpc/compiler/ncginl.pas:428 internalerror(10081); 2020100815 i8086 ../src/fpc/compiler/i8086/n8086inl.pas:349 internalerror(10081); 12345 2020100816 compiler ../src/fpc/compiler/symdef.pas:7780 internalerror(12345) 2020100817 mips ../src/fpc/compiler/mips/racpugas.pas:254 InternalError(12345); 424242 2020100818 compiler ../src/fpc/compiler/fpcp.pas:329 internalerror(424242); 2020100819 compiler ../src/fpc/compiler/fpcp.pas:345 internalerror(424242); 2020100820 compiler ../src/fpc/compiler/fpcp.pas:351 internalerror(424242); IF NOT i8086 777006 2020100821 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4328 InternalError(777006); IF NOT i8086 2020100822 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4485 InternalError(777006); 777211 2020100823 x86 ../src/fpc/compiler/x86/aasmcpu.pas:5168 else InternalError(777211); 2020100824 x86 ../src/fpc/compiler/x86/aasmcpu.pas:5177 else InternalError(777211); 20020718 2002071801 compiler ../src/fpc/compiler/ncginl.pas:681 internalerror(20020718); 2002071802 compiler ../src/fpc/compiler/ncginl.pas:686 internalerror(20020718); 2002071803 compiler ../src/fpc/compiler/ncginl.pas:691 internalerror(20020718); 2002071804 compiler ../src/fpc/compiler/ncginl.pas:696 internalerror(20020718); 2002071805 compiler ../src/fpc/compiler/ncginl.pas:701 internalerror(20020718); 2002071806 compiler ../src/fpc/compiler/ncginl.pas:711 internalerror(20020718); 2002071807 compiler ../src/fpc/compiler/ncginl.pas:716 internalerror(20020718); 2002071808 compiler ../src/fpc/compiler/ncginl.pas:721 internalerror(20020718); 2002071809 compiler ../src/fpc/compiler/ncginl.pas:726 internalerror(20020718); 2002071810 compiler ../src/fpc/compiler/ncginl.pas:731 internalerror(20020718); 20020729 2002072901 m68k ../src/fpc/compiler/m68k/cgcpu.pas:1297 internalerror(20020729); 2002072902 m68k ../src/fpc/compiler/m68k/cgcpu.pas:1474 internalerror(20020729); 20020816 2002081601 m68k ../src/fpc/compiler/m68k/cgcpu.pas:1197 internalerror(20020816); 2002081602 m68k ../src/fpc/compiler/m68k/cgcpu.pas:1428 internalerror(20020816); 200006139 sparcgen ../src/fpc/compiler/sparcgen/hlcgcpu.pas:110 Internalerror(200006139); 2000061301 x86_64 ../src/fpc/compiler/x86_64/hlcgcpu.pas:84 Internalerror(200006139); 2000061302 aarch64 ../src/fpc/compiler/aarch64/hlcgcpu.pas:187 Internalerror(200006139); 2000061303 mips ../src/fpc/compiler/mips/hlcgcpu.pas:252 Internalerror(200006139); 2000061304 riscv ../src/fpc/compiler/riscv/hlcgrv.pas:121 Internalerror(200006139); 2000061306 i8086 ../src/fpc/compiler/i8086/hlcgcpu.pas:584 Internalerror(200006139); 2000061310 ppcgen ../src/fpc/compiler/ppcgen/hlcgppc.pas:116 Internalerror(200006139); 2000061311 arm ../src/fpc/compiler/arm/hlcgcpu.pas:109 Internalerror(200006139); 2000061312 i386 ../src/fpc/compiler/i386/hlcgcpu.pas:355 Internalerror(200006139); 2000061313 i386 ../src/fpc/compiler/i386/hlcgcpu.pas:367 Internalerror(200006139); 200108234 compiler ../src/fpc/compiler/nbas.pas:1642 internalerror(200108234); 2001082302 compiler ../src/fpc/compiler/ninl.pas:4142 internalerror(200108234); 200109041 compiler ../src/fpc/compiler/ncgadd.pas:804 internalerror(200109041); 2001090403 powerpc64 ../src/fpc/compiler/powerpc64/nppcadd.pas:179 internalerror(200109041); 200109051 compiler ../src/fpc/compiler/ncgadd.pas:515 internalerror(200109051); 2001090503 i8086 ../src/fpc/compiler/i8086/n8086add.pas:243 internalerror(200109051); 2001090504 powerpc ../src/fpc/compiler/powerpc/nppcadd.pas:309 internalerror(200109051); 2001090505 i386 ../src/fpc/compiler/i386/n386add.pas:144 internalerror(200109051); IF not defined(cpu64bitalu) and not defined(cpuhighleveltarget) 200109052 compiler ../src/fpc/compiler/ncgmat.pas:359 internalerror(200109052); 2001090506 i8086 ../src/fpc/compiler/i8086/n8086mat.pas:117 internalerror(200109052); 2001090507 i386 ../src/fpc/compiler/i386/n386mat.pas:74 internalerror(200109052); 200109061 compiler ../src/fpc/compiler/cgobj.pas:2023 internalerror(200109061); 2001090602 compiler ../src/fpc/compiler/cgobj.pas:2089 internalerror(200109061); 2001090603 compiler ../src/fpc/compiler/cgobj.pas:2126 internalerror(200109061); 2001090604 compiler ../src/fpc/compiler/cgobj.pas:2328 internalerror(200109061); 2001090605 compiler ../src/fpc/compiler/cgobj.pas:2391 internalerror(200109061); 200109225 x86 ../src/fpc/compiler/x86/cgx86.pas:2105 internalerror(200109225); 2001092208 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:742 internalerror(200109225); 200109238 x86 ../src/fpc/compiler/x86/cgx86.pas:2400 internalerror(200109238); 2001092304 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1126 internalerror(200109238); 200110205 compiler ../src/fpc/compiler/nutils.pas:1237 internalerror(200110205); 2001102001 compiler ../src/fpc/compiler/symtype.pas:709 internalerror(200110205); 2001102002 compiler ../src/fpc/compiler/symtype.pas:735 internalerror(200110205); 2001102003 compiler ../src/fpc/compiler/symtype.pas:1150 internalerror(200110205); 200203241 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2664 internalerror(200203241); 2002032403 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2756 internalerror(200203241); 2002032408 i386 ../src/fpc/compiler/i386/cgcpu.pas:639 internalerror(200203241); 2002032409 sparc ../src/fpc/compiler/sparc/cgcpu.pas:211 internalerror(200203241); 200203244 compiler ../src/fpc/compiler/cg64f32.pas:691 internalerror(200203244); 2002032411 compiler ../src/fpc/compiler/cg64f32.pas:708 internalerror(200203244); 200203247 compiler ../src/fpc/compiler/ncgadd.pas:438 internalerror(200203247); IF support_mmx 2002032412 x86 ../src/fpc/compiler/x86/nx86add.pas:803 internalerror(200203247); 2002032413 ppcgen ../src/fpc/compiler/ppcgen/ngppcadd.pas:282 internalerror(200203247); 200203282 i8086 ../src/fpc/compiler/i8086/n8086add.pas:759 internalerror(200203282); 2002032801 i8086 ../src/fpc/compiler/i8086/n8086add.pas:930 internalerror(200203282); 2002032803 i386 ../src/fpc/compiler/i386/n386add.pas:412 internalerror(200203282); 200204221 compiler ../src/fpc/compiler/tgobj.pas:235 internalerror(200204221); 2002042202 z80 ../src/fpc/compiler/z80/tgcpu.pas:57 internalerror(200204221); 200204249 compiler ../src/fpc/compiler/hlcg2ll.pas:1465 internalerror(200204249); 2002042402 compiler ../src/fpc/compiler/hlcgobj.pas:5235 internalerror(200204249); 200205183 compiler ../src/fpc/compiler/ogcoff.pas:1049 internalerror(200205183); 2002051801 compiler ../src/fpc/compiler/ogbase.pas:3634 internalerror(200205183); IF defined(x86_64) 200301081 x86 ../src/fpc/compiler/x86/aasmcpu.pas:2556 internalerror(200301081); IF defined(x86_64) 2003010802 x86 ../src/fpc/compiler/x86/aasmcpu.pas:2826 internalerror(200301081); IF defined(x86_64) 2003010803 x86 ../src/fpc/compiler/x86/aasmcpu.pas:3000 internalerror(200301081); 200304266 compiler ../src/fpc/compiler/pdecsub.pas:1789 internalerror(200304266); 2003042601 compiler ../src/fpc/compiler/pdecsub.pas:1799 internalerror(200304266); 200304268 compiler ../src/fpc/compiler/pdecsub.pas:1833 internalerror(200304268); 2003042602 compiler ../src/fpc/compiler/pdecsub.pas:1849 internalerror(200304268); 200305108 compiler ../src/fpc/compiler/psub.pas:536 internalerror(200305108); 2003051001 compiler ../src/fpc/compiler/psub.pas:676 internalerror(200305108); 2003051002 compiler ../src/fpc/compiler/ngenutil.pas:200 internalerror(200305108); 200305251 compiler ../src/fpc/compiler/cgobj.pas:2831 internalerror(200305251); 2003052502 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2685 internalerror(200305251); 2003052503 arm ../src/fpc/compiler/arm/cgcpu.pas:519 internalerror(200305251); 2003052504 arm ../src/fpc/compiler/arm/cgcpu.pas:4011 internalerror(200305251); IF NOT mips64 200306017 mips ../src/fpc/compiler/mips/cgcpu.pas:1947 internalerror(200306017); 2003060102 sparc ../src/fpc/compiler/sparc/cgcpu.pas:265 internalerror(200306017); 2003060103 sparc ../src/fpc/compiler/sparc/cgcpu.pas:286 internalerror(200306017); 200306021 compiler ../src/fpc/compiler/ncgmat.pas:287 internalerror(200306021); 2003060202 m68k ../src/fpc/compiler/m68k/n68kmat.pas:221 internalerror(200306021); 200308252 compiler ../src/fpc/compiler/cgbase.pas:736 internalerror(200308252); 2003082503 arm ../src/fpc/compiler/arm/narmadd.pas:210 internalerror(200308252); 200308296 arm ../src/fpc/compiler/arm/cgcpu.pas:987 internalerror(200308296); IF dummy 2003082903 arm ../src/fpc/compiler/arm/cgcpu.pas:4230 internalerror(200308296); 2003082911 arm ../src/fpc/compiler/arm/cgcpu.pas:4705 internalerror(200308296); 200308299 aarch64 ../src/fpc/compiler/aarch64/cgcpu.pas:829 InternalError(200308299); 2003082912 arm ../src/fpc/compiler/arm/cgcpu.pas:1371 InternalError(200308299); 2003082913 arm ../src/fpc/compiler/arm/cgcpu.pas:4434 InternalError(200308299); 200309121 arm ../src/fpc/compiler/arm/cgcpu.pas:1312 internalerror(200309121); 2003091202 arm ../src/fpc/compiler/arm/cgcpu.pas:5227 internalerror(200309121); 200309189 compiler ../src/fpc/compiler/cgobj.pas:2847 internalerror(200309189); 2003091802 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2718 internalerror(200309189); 2003091803 arm ../src/fpc/compiler/arm/cgcpu.pas:549 internalerror(200309189); 2003091804 arm ../src/fpc/compiler/arm/cgcpu.pas:4061 internalerror(200309189); 200309202 sparcgen ../src/fpc/compiler/sparcgen/racpugas.pas:325 internalerror(200309202); 2003092003 sparcgen ../src/fpc/compiler/sparcgen/racpugas.pas:414 internalerror(200309202); 2003092004 xtensa ../src/fpc/compiler/xtensa/racpugas.pas:539 internalerror(200309202); 2003092005 aarch64 ../src/fpc/compiler/aarch64/racpugas.pas:862 internalerror(200309202); 2003092006 mips ../src/fpc/compiler/mips/racpugas.pas:294 internalerror(200309202); 2003092007 mips ../src/fpc/compiler/mips/racpugas.pas:383 internalerror(200309202); 2003092008 riscv32 ../src/fpc/compiler/riscv32/rarv32gas.pas:194 internalerror(200309202); 2003092009 riscv32 ../src/fpc/compiler/riscv32/rarv32gas.pas:530 internalerror(200309202); 2003092011 x86 ../src/fpc/compiler/x86/rax86att.pas:738 internalerror(200309202); 2003092012 avr ../src/fpc/compiler/avr/raavrgas.pas:418 internalerror(200309202); 2003092013 avr ../src/fpc/compiler/avr/raavrgas.pas:502 internalerror(200309202); 2003092014 powerpc64 ../src/fpc/compiler/powerpc64/rappcgas.pas:238 internalerror(200309202); 2003092015 powerpc64 ../src/fpc/compiler/powerpc64/rappcgas.pas:528 internalerror(200309202); 2003092016 riscv64 ../src/fpc/compiler/riscv64/rarv64gas.pas:195 internalerror(200309202); 2003092017 riscv64 ../src/fpc/compiler/riscv64/rarv64gas.pas:571 internalerror(200309202); 2003092018 powerpc ../src/fpc/compiler/powerpc/rappcgas.pas:225 internalerror(200309202); 2003092019 powerpc ../src/fpc/compiler/powerpc/rappcgas.pas:524 internalerror(200309202); 2003092021 arm ../src/fpc/compiler/arm/raarmgas.pas:991 internalerror(200309202); 200310123 compiler ../src/fpc/compiler/cgobj.pas:2493 internalerror(200310123); 2003101204 compiler ../src/fpc/compiler/cgobj.pas:2525 internalerror(200310123); 200311075 compiler ../src/fpc/compiler/nbas.pas:1515 internalerror(200311075); 2003110701 compiler ../src/fpc/compiler/nbas.pas:1669 internalerror(200311075); 200311292 arm ../src/fpc/compiler/arm/agarmgas.pas:419 internalerror(200311292); 2003112903 arm ../src/fpc/compiler/arm/agarmgas.pas:429 internalerror(200311292); IF cpuflags 200311301 compiler ../src/fpc/compiler/ncgcnv.pas:280 internalerror(200311301); 2003113002 arm ../src/fpc/compiler/arm/narmcnv.pas:361 internalerror(200311301); 200312231 x86 ../src/fpc/compiler/x86/nx86add.pas:900 internalerror(200312231); 2003122303 x86 ../src/fpc/compiler/x86/nx86add.pas:1043 internalerror(200312231); 200312232 compiler ../src/fpc/compiler/cgobj.pas:2606 internalerror(200312232); 2003122304 compiler ../src/fpc/compiler/cgobj.pas:2619 internalerror(200312232); 200312252 x86 ../src/fpc/compiler/x86/cgx86.pas:1609 internalerror(200312252); 2003122501 x86 ../src/fpc/compiler/x86/cgx86.pas:1708 internalerror(200312252); 200401041 z80 ../src/fpc/compiler/z80/aasmcpu.pas:1303 internalerror(200401041); 2004010403 z80 ../src/fpc/compiler/z80/aasmcpu.pas:1314 internalerror(200401041); 2004010404 sparcgen ../src/fpc/compiler/sparcgen/aasmcpu.pas:290 internalerror(200401041); 2004010406 sparcgen ../src/fpc/compiler/sparcgen/aasmcpu.pas:312 internalerror(200401041); 2004010407 aarch64 ../src/fpc/compiler/aarch64/aasmcpu.pas:572 internalerror(200401041); 2004010408 mips ../src/fpc/compiler/mips/aasmcpu.pas:460 internalerror(200401041); 2004010409 mips ../src/fpc/compiler/mips/aasmcpu.pas:482 internalerror(200401041); 2004010411 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4800 internalerror(200401041); 2004010412 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4858 internalerror(200401041); 2004010413 avr ../src/fpc/compiler/avr/aasmcpu.pas:358 internalerror(200401041); 2004010414 avr ../src/fpc/compiler/avr/aasmcpu.pas:377 internalerror(200401041); 2004010415 arm ../src/fpc/compiler/arm/aasmcpu.pas:726 internalerror(200401041); 2004010416 arm ../src/fpc/compiler/arm/aasmcpu.pas:744 internalerror(200401041); 200401042 sparcgen ../src/fpc/compiler/sparcgen/aasmcpu.pas:286 internalerror(200401042); 2004010417 sparcgen ../src/fpc/compiler/sparcgen/aasmcpu.pas:308 internalerror(200401042); 2004010418 mips ../src/fpc/compiler/mips/aasmcpu.pas:456 internalerror(200401042); 2004010419 mips ../src/fpc/compiler/mips/aasmcpu.pas:478 internalerror(200401042); 200401263 arm ../src/fpc/compiler/arm/rgcpu.pas:232 internalerror(200401263); 2004012601 arm ../src/fpc/compiler/arm/rgcpu.pas:494 internalerror(200401263); 2004012602 arm ../src/fpc/compiler/arm/rgcpu.pas:548 internalerror(200401263); 200403072 compiler ../src/fpc/compiler/ogrel.pas:342 internalerror(200403072); 2004030701 compiler ../src/fpc/compiler/ogcoff.pas:1290 internalerror(200403072); 2004030704 compiler ../src/fpc/compiler/ogomf.pas:1200 internalerror(200403072); 200403073 compiler ../src/fpc/compiler/ogrel.pas:417 internalerror(200403073); 2004030705 compiler ../src/fpc/compiler/ogomf.pas:1345 internalerror(200403073); 2004030706 compiler ../src/fpc/compiler/ogomf.pas:1429 internalerror(200403073); 2004030707 compiler ../src/fpc/compiler/ogbase.pas:1747 internalerror(200403073); 200403151 arm ../src/fpc/compiler/arm/aasmcpu.pas:835 internalerror(200403151); 2004031502 arm ../src/fpc/compiler/arm/aasmcpu.pas:928 internalerror(200403151); 200403161 arm ../src/fpc/compiler/arm/cgcpu.pas:1326 internalerror(200403161); 2004031602 arm ../src/fpc/compiler/arm/cgcpu.pas:5241 internalerror(200403161); IF NOT cpu64bitaddr 200404291 compiler ../src/fpc/compiler/aggas.pas:997 internalerror(200404291); 2004042904 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:820 internalerror(200404291); IF NOT cpu64bitaddr 200404292 compiler ../src/fpc/compiler/aggas.pas:1003 internalerror(200404292); 2004042905 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:825 internalerror(200404292); 200410031 sparcgen ../src/fpc/compiler/sparcgen/ncpuinln.pas:105 internalerror(200410031); 2004100304 sparcgen ../src/fpc/compiler/sparcgen/ncpucnv.pas:199 internalerror(200410031); 2004100305 mips ../src/fpc/compiler/mips/ncpuinln.pas:105 internalerror(200410031); 2004100306 mips ../src/fpc/compiler/mips/ncpucnv.pas:188 internalerror(200410031); 2004100307 arm ../src/fpc/compiler/arm/narmcnv.pas:226 internalerror(200410031); 200410231 compiler ../src/fpc/compiler/hlcgobj.pas:4345 internalerror(200410231); 2004102302 z80 ../src/fpc/compiler/z80/cpupara.pas:528 internalerror(200410231); 2004102303 aarch64 ../src/fpc/compiler/aarch64/cpupara.pas:685 internalerror(200410231); 2004102304 m68k ../src/fpc/compiler/m68k/cpupara.pas:702 internalerror(200410231); 2004102305 avr ../src/fpc/compiler/avr/cpupara.pas:558 internalerror(200410231); 2004102306 arm ../src/fpc/compiler/arm/cpupara.pas:918 internalerror(200410231); 200412041 compiler ../src/fpc/compiler/nmem.pas:611 internalerror(200412041); 2004120404 i8086 ../src/fpc/compiler/i8086/n8086inl.pas:181 internalerror(200412041); 200412043 compiler ../src/fpc/compiler/nadd.pas:2718 internalerror(200412043); 2004120405 compiler ../src/fpc/compiler/nadd.pas:2894 internalerror(200412043); 200501051 compiler ../src/fpc/compiler/rautils.pas:1319 internalerror(200501051); 2005010502 compiler ../src/fpc/compiler/ncnv.pas:1187 internalerror(200501051); 200501154 compiler ../src/fpc/compiler/scanner.pas:1490 internalerror(200501154); 2005011503 compiler ../src/fpc/compiler/pbase.pas:319 internalerror(200501154); 200501163 m68k ../src/fpc/compiler/m68k/cpupara.pas:588 internalerror(200501163); 2005011604 i8086 ../src/fpc/compiler/i8086/cpupara.pas:498 internalerror(200501163); 2005011605 i8086 ../src/fpc/compiler/i8086/cpupara.pas:694 internalerror(200501163); 2005011606 i386 ../src/fpc/compiler/i386/cpupara.pas:525 internalerror(200501163); 2005011607 i386 ../src/fpc/compiler/i386/cpupara.pas:691 internalerror(200501163); 200506042 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4843 internalerror(200506042); 2005060404 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4855 internalerror(200506042); 200506043 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4783 internalerror(200506043); 2005060405 x86 ../src/fpc/compiler/x86/aasmcpu.pas:4797 internalerror(200506043); 200507031 compiler ../src/fpc/compiler/ncgmem.pas:293 internalerror(200507031); 2005070302 i8086 ../src/fpc/compiler/i8086/n8086mem.pas:154 internalerror(200507031); 200509191 x86 ../src/fpc/compiler/x86/agx86nsm.pas:1267 internalerror(200509191); 2005091903 x86 ../src/fpc/compiler/x86/agx86nsm.pas:1295 internalerror(200509191); 200510031 x86 ../src/fpc/compiler/x86/nx86inl.pas:872 internalerror(200510031); 2005100303 x86 ../src/fpc/compiler/x86/nx86inl.pas:881 internalerror(200510031); 200601233 compiler ../src/fpc/compiler/symbase.pas:412 internalerror(200601233); 2006012304 compiler ../src/fpc/compiler/symbase.pas:461 internalerror(200601233); 200601261 compiler ../src/fpc/compiler/dbgdwarf.pas:1310 internalerror(200601261); 2006012602 compiler ../src/fpc/compiler/dbgdwarf.pas:1312 internalerror(200601261); 200602231 compiler ../src/fpc/compiler/ognlm.pas:760 internalerror(200602231); // we have to have .data, .text and .reloc 2006022302 compiler ../src/fpc/compiler/ogcoff.pas:2792 internalerror(200602231); 200602251 compiler ../src/fpc/compiler/ognlm.pas:554 internalerror(200602251); 2006022503 compiler ../src/fpc/compiler/ogbase.pas:3702 internalerror(200602251); 200602254 compiler ../src/fpc/compiler/ogbase.pas:2304 internalerror(200602254); 2006022505 compiler ../src/fpc/compiler/ogbase.pas:2388 internalerror(200602254); 200603041 compiler ../src/fpc/compiler/ogbase.pas:2251 internalerror(200603041); 2006030403 compiler ../src/fpc/compiler/ogbase.pas:2262 internalerror(200603041); 200603042 compiler ../src/fpc/compiler/ognlm.pas:571 internalerror(200603042); 2006030404 compiler ../src/fpc/compiler/ogbase.pas:3696 internalerror(200603042); 200603051 compiler ../src/fpc/compiler/ogcoff.pas:1827 internalerror(200603051); 2006030504 compiler ../src/fpc/compiler/ogbase.pas:1495 internalerror(200603051); 200603053 compiler ../src/fpc/compiler/ognlm.pas:437 internalerror(200603053); 2006030505 compiler ../src/fpc/compiler/ogcoff.pas:2524 internalerror(200603053); 200603316 compiler ../src/fpc/compiler/ogbase.pas:3457 internalerror(200603316); 2006033111 compiler ../src/fpc/compiler/ogbase.pas:3469 internalerror(200603316); 2006033112 compiler ../src/fpc/compiler/ogbase.pas:3536 internalerror(200603316); 200604014 compiler ../src/fpc/compiler/ogcoff.pas:1206 internalerror(200604014); 2006040105 x86_64 ../src/fpc/compiler/x86_64/cpuelf.pas:560 internalerror(200604014); 2006040106 mips ../src/fpc/compiler/mips/cpuelf.pas:1072 internalerror(200604014); 2006040107 arm ../src/fpc/compiler/arm/cpuelf.pas:926 internalerror(200604014); 2006040108 i386 ../src/fpc/compiler/i386/cpuelf.pas:476 internalerror(200604014); IF arm 200606085 compiler ../src/fpc/compiler/ogcoff.pas:1090 internalerror(200606085); { offset overflow } IF arm 2006060801 compiler ../src/fpc/compiler/ogcoff.pas:1100 internalerror(200606085); { offset overflow } 200608051 compiler ../src/fpc/compiler/ncgmem.pas:687 internalerror(200608051); 2006080502 llvm ../src/fpc/compiler/llvm/nllvmmem.pas:247 internalerror(200608051); 2006080503 m68k ../src/fpc/compiler/m68k/n68kmem.pas:164 internalerror(200608051); 200610052 compiler ../src/fpc/compiler/dbgbase.pas:310 internalerror(200610052); 2006100501 llvm ../src/fpc/compiler/llvm/llvmtype.pas:688 internalerror(200610052); 200610053 compiler ../src/fpc/compiler/dbgbase.pas:312 internalerror(200610053); 2006100505 llvm ../src/fpc/compiler/llvm/llvmtype.pas:690 internalerror(200610053); IF cpufpemu 200610151 compiler ../src/fpc/compiler/ncnv.pas:3542 internalerror(200610151); 2006101504 arm ../src/fpc/compiler/arm/narmcnv.pas:131 internalerror(200610151); IF cpufpemu 200610152 compiler ../src/fpc/compiler/ncnv.pas:3555 internalerror(200610152); 2006101505 arm ../src/fpc/compiler/arm/narmcnv.pas:144 internalerror(200610152); IF cpufpemu 200610153 compiler ../src/fpc/compiler/ncnv.pas:3558 internalerror(200610153); 2006101506 arm ../src/fpc/compiler/arm/narmcnv.pas:147 internalerror(200610153); 200704201 ppcgen ../src/fpc/compiler/ppcgen/rgcpu.pas:69 internalerror(200704201); 2007042002 ppcgen ../src/fpc/compiler/ppcgen/rgcpu.pas:120 internalerror(200704201); 200704251 compiler ../src/fpc/compiler/aggas.pas:1213 internalerror(200704251); 2007042504 llvm ../src/fpc/compiler/llvm/agllvm.pas:963 internalerror(200704251); 201001110 compiler ../src/fpc/compiler/ptype.pas:872 internalerror(201001110); 2010011103 compiler ../src/fpc/compiler/pdecobj.pas:1354 internalerror(201001110); 201001120 compiler ../src/fpc/compiler/scanner.pas:1497 internalerror(201001120); 2010011201 compiler ../src/fpc/compiler/pbase.pas:326 internalerror(201001120); 201003032 compiler ../src/fpc/compiler/hlcgobj.pas:4975 internalerror(201003032); 2010030303 compiler ../src/fpc/compiler/hlcgobj.pas:5039 internalerror(201003032); 2010030304 compiler ../src/fpc/compiler/hlcgobj.pas:5070 internalerror(201003032); 201108162 x86 ../src/fpc/compiler/x86/nx86add.pas:923 internalerror(201108162); 2011081601 x86 ../src/fpc/compiler/x86/nx86add.pas:1066 internalerror(201108162); 201108163 x86 ../src/fpc/compiler/x86/nx86add.pas:943 internalerror(201108163); 2011081604 x86 ../src/fpc/compiler/x86/nx86add.pas:1086 internalerror(201108163); 201108260 compiler ../src/fpc/compiler/scanner.pas:1525 internalerror(201108260); 2011082601 compiler ../src/fpc/compiler/pbase.pas:355 internalerror(201108260); 201205181 arm ../src/fpc/compiler/arm/cgcpu.pas:997 internalerror(201205181); IF dummy 2012051802 arm ../src/fpc/compiler/arm/cgcpu.pas:4240 internalerror(201205181); 2012051803 arm ../src/fpc/compiler/arm/cgcpu.pas:4715 internalerror(201205181); 2000101001 compiler ../src/fpc/compiler/ninl.pas:3227 internalerror(2000101001); 2000101002 compiler ../src/fpc/compiler/ninl.pas:4122 internalerror(2000101001); 2002070601 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:381 internalerror(2002070601); 2002070602 ppcgen ../src/fpc/compiler/ppcgen/agppcgas.pas:335 internalerror(2002070601); 2002070603 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:255 internalerror(2002070603); 2002070605 ppcgen ../src/fpc/compiler/ppcgen/agppcgas.pas:220 internalerror(2002070603); 2002071004 compiler ../src/fpc/compiler/cgobj.pas:997 internalerror(2002071004); 2002071003 z80 ../src/fpc/compiler/z80/cgcpu.pas:236 internalerror(2002071004); 2002071005 z80 ../src/fpc/compiler/z80/cgcpu.pas:438 internalerror(2002071004); 2002071006 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1282 internalerror(2002071004); 2002071007 avr ../src/fpc/compiler/avr/cgcpu.pas:217 internalerror(2002071004); 2002071008 avr ../src/fpc/compiler/avr/cgcpu.pas:305 internalerror(2002071004); 2002072402 compiler ../src/fpc/compiler/ncgadd.pas:627 internalerror(2002072402); 2002072401 powerpc64 ../src/fpc/compiler/powerpc64/nppcadd.pas:172 internalerror(2002072402); 2002072403 powerpc ../src/fpc/compiler/powerpc/nppcadd.pas:607 internalerror(2002072402); 2002072701 compiler ../src/fpc/compiler/ncgadd.pas:291 internalerror(2002072701); 2002072702 ppcgen ../src/fpc/compiler/ppcgen/ngppcadd.pas:553 internalerror(2002072701); 2002072705 compiler ../src/fpc/compiler/ncgadd.pas:518 internalerror(2002072705); 2002072703 powerpc ../src/fpc/compiler/powerpc/nppcadd.pas:314 internalerror(2002072705); IF defined(cpu64bitalu) or defined(cpuhighleveltarget) 2002072803 compiler ../src/fpc/compiler/ncgadd.pas:564 internalerror(2002072803); IF NOT defined(cpu64bitalu) or defined(cpuhighleveltarget) 2002072804 compiler ../src/fpc/compiler/ncgadd.pas:610 internalerror(2002072803); 2002072805 powerpc ../src/fpc/compiler/powerpc/nppcadd.pas:486 internalerror(2002072803); 2002080202 compiler ../src/fpc/compiler/nadd.pas:583 internalerror(2002080202); 2002080201 i8086 ../src/fpc/compiler/i8086/n8086add.pas:109 internalerror(2002080202); 2002080203 compiler ../src/fpc/compiler/nadd.pas:593 internalerror(2002080203); 2002080204 i8086 ../src/fpc/compiler/i8086/n8086add.pas:119 internalerror(2002080203); 2002081302 compiler ../src/fpc/compiler/cgobj.pas:1388 internalerror(2002081302); 2002081303 compiler ../src/fpc/compiler/cgobj.pas:1467 internalerror(2002081302); 2002081701 m68k ../src/fpc/compiler/m68k/cgcpu.pas:2433 internalerror(2002081701); 2002081703 m68k ../src/fpc/compiler/m68k/cgcpu.pas:2580 internalerror(2002081701); 2002081702 m68k ../src/fpc/compiler/m68k/cgcpu.pas:2436 internalerror(2002081702); 2002081704 m68k ../src/fpc/compiler/m68k/cgcpu.pas:2583 internalerror(2002081702); 2002090902 powerpc64 ../src/fpc/compiler/powerpc64/cgcpu.pas:470 internalerror(2002090902); 2002090906 powerpc ../src/fpc/compiler/powerpc/cgcpu.pas:243 internalerror(2002090902); 2002090907 arm ../src/fpc/compiler/arm/cgcpu.pas:332 internalerror(2002090902); 2002090908 arm ../src/fpc/compiler/arm/cgcpu.pas:3979 internalerror(2002090902); 2002090909 arm ../src/fpc/compiler/arm/cgcpu.pas:4387 internalerror(2002090902); 2002090904 riscv ../src/fpc/compiler/riscv/cgrv.pas:496 internalerror(2002090904); 2002090910 powerpc64 ../src/fpc/compiler/powerpc64/cgcpu.pas:512 internalerror(2002090904); 2002090911 ppcgen ../src/fpc/compiler/ppcgen/cgppc.pas:539 internalerror(2002090904); 2003031801 x86 ../src/fpc/compiler/x86/cpubase.pas:509 else internalerror(2003031801); 2003031802 x86 ../src/fpc/compiler/x86/cpubase.pas:512 internalerror(2003031801); IF support_mmx 2003042214 x86 ../src/fpc/compiler/x86/nx86add.pas:751 internalerror(2003042214); 2003042203 x86 ../src/fpc/compiler/x86/nx86add.pas:1348 internalerror(2003042214); IF NOT i8086 2003042215 x86 ../src/fpc/compiler/x86/nx86add.pas:553 internalerror(2003042215); 2003042204 x86 ../src/fpc/compiler/x86/nx86add.pas:637 internalerror(2003042215); 2003083101 arm ../src/fpc/compiler/arm/cgcpu.pas:3566 internalerror(2003083101); 2003083102 arm ../src/fpc/compiler/arm/cgcpu.pas:3598 internalerror(2003083101); 2003083104 arm ../src/fpc/compiler/arm/cgcpu.pas:3637 internalerror(2003083101); 2003083105 arm ../src/fpc/compiler/arm/cgcpu.pas:5380 internalerror(2003083101); 2003083106 arm ../src/fpc/compiler/arm/cgcpu.pas:5434 internalerror(2003083101); 2003091814 compiler ../src/fpc/compiler/dbgstabs.pas:1334 internalerror(2003091814); 2003091805 compiler ../src/fpc/compiler/dbgstabs.pas:1564 internalerror(2003091814); 2003112901 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:343 internalerror(2003112901); 2003112904 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:366 internalerror(2003112901); 2003121214 compiler ../src/fpc/compiler/cgobj.pas:724 internalerror(2003121214); 2003121204 x86 ../src/fpc/compiler/x86/cgx86.pas:274 internalerror(2003121214); 2003122903 powerpc ../src/fpc/compiler/powerpc/cgcpu.pas:1080 internalerror(2003122903); 2003122904 powerpc ../src/fpc/compiler/powerpc/cgcpu.pas:1164 internalerror(2003122903); 2003122905 powerpc ../src/fpc/compiler/powerpc/cpupi.pas:153 internalerror(2003122903); IF extdebug 2004020901 compiler ../src/fpc/compiler/rgobj.pas:555 InternalError(2004020901); 2004020902 compiler ../src/fpc/compiler/rgobj.pas:573 InternalError(2004020901); IF NOT cpu64bitalu 2005101501 compiler ../src/fpc/compiler/hlcg2ll.pas:1948 internalerror(2005101501); 2005101502 compiler ../src/fpc/compiler/ninl.pas:4112 internalerror(2005101501); 2007020910 ppcgen ../src/fpc/compiler/ppcgen/ngppcinl.pas:134 internalerror(2007020910); 2007020901 ppcgen ../src/fpc/compiler/ppcgen/ngppcinl.pas:179 internalerror(2007020910); IF x86_64 2007031401 x86 ../src/fpc/compiler/x86/nx86inl.pas:768 internalerror(2007031401); IF x86_64 2007031403 x86 ../src/fpc/compiler/x86/nx86inl.pas:777 internalerror(2007031401); IF x86_64 2007031402 x86 ../src/fpc/compiler/x86/nx86inl.pas:724 internalerror(2007031402); IF x86_64 2007031404 x86 ../src/fpc/compiler/x86/nx86inl.pas:733 internalerror(2007031402); 2007120902 x86 ../src/fpc/compiler/x86/nx86cnv.pas:279 internalerror(2007120902); 2007120904 x86 ../src/fpc/compiler/x86/nx86cnv.pas:288 internalerror(2007120902); 2008030101 compiler ../src/fpc/compiler/nadd.pas:629 internalerror(2008030101); 2008030102 i8086 ../src/fpc/compiler/i8086/n8086add.pas:141 internalerror(2008030101); 2008042701 x86 ../src/fpc/compiler/x86/aoptx86.pas:2945 internalerror(2008042701); 2008042702 x86 ../src/fpc/compiler/x86/aoptx86.pas:5475 internalerror(2008042701); 2008072801 arm ../src/fpc/compiler/arm/cgcpu.pas:1083 internalerror(2008072801); 2008072804 arm ../src/fpc/compiler/arm/cgcpu.pas:1092 internalerror(2008072801); 2008072805 arm ../src/fpc/compiler/arm/cgcpu.pas:4148 internalerror(2008072801); 2008072806 arm ../src/fpc/compiler/arm/cgcpu.pas:4777 internalerror(2008072801); 2008101101 compiler ../src/fpc/compiler/optvirt.pas:835 internalerror(2008101101); 2008101106 compiler ../src/fpc/compiler/optvirt.pas:858 internalerror(2008101101); 2009031401 compiler ../src/fpc/compiler/rautils.pas:1384 internalerror(2009031401); 2009031403 compiler ../src/fpc/compiler/dbgdwarf.pas:2555 internalerror(2009031401); 2009111401 arm ../src/fpc/compiler/arm/narmadd.pas:236 internalerror(2009111401); 2009111404 arm ../src/fpc/compiler/arm/narmadd.pas:263 internalerror(2009111401); 2009111402 arm ../src/fpc/compiler/arm/narminl.pas:274 internalerror(2009111402); 2009111405 arm ../src/fpc/compiler/arm/narminl.pas:336 internalerror(2009111402); 2009112420 arm ../src/fpc/compiler/arm/cgcpu.pas:3251 internalerror(2009112420); 2009112409 arm ../src/fpc/compiler/arm/cgcpu.pas:3267 internalerror(2009112420); 2009112703 arm ../src/fpc/compiler/arm/narmcnv.pas:236 internalerror(2009112703); 2009112704 arm ../src/fpc/compiler/arm/narmcnv.pas:251 internalerror(2009112703); 2009112801 arm ../src/fpc/compiler/arm/cgcpu.pas:3133 internalerror(2009112801); 2009112802 arm ../src/fpc/compiler/arm/cgcpu.pas:3196 internalerror(2009112801); 2009112901 arm ../src/fpc/compiler/arm/cgcpu.pas:3140 internalerror(2009112901); 2009112902 arm ../src/fpc/compiler/arm/cgcpu.pas:3203 internalerror(2009112901); 2010033001 compiler ../src/fpc/compiler/ngtcon.pas:1344 internalerror(2010033001); 2010033006 compiler ../src/fpc/compiler/ngtcon.pas:1360 internalerror(2010033001); 2010033007 jvm ../src/fpc/compiler/jvm/njvmtcon.pas:217 internalerror(2010033001); 2010033002 compiler ../src/fpc/compiler/ngtcon.pas:1348 internalerror(2010033002); 2010033008 compiler ../src/fpc/compiler/ngtcon.pas:1366 internalerror(2010033002); 2010033003 compiler ../src/fpc/compiler/ngtcon.pas:1317 internalerror(2010033003); 2010033009 compiler ../src/fpc/compiler/ngtcon.pas:1324 internalerror(2010033003); 2010033010 jvm ../src/fpc/compiler/jvm/njvmtcon.pas:200 internalerror(2010033003); 2010052906 compiler ../src/fpc/compiler/cgobj.pas:1181 internalerror(2010052906); 2010052901 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:273 internalerror(2010052906); 2010052907 compiler ../src/fpc/compiler/cgobj.pas:1080 internalerror(2010052907); 2010052902 compiler ../src/fpc/compiler/hlcgobj.pas:1002 internalerror(2010052907); 2010053101 compiler ../src/fpc/compiler/cgobj.pas:1155 internalerror(2010053101); 2010053103 compiler ../src/fpc/compiler/hlcgobj.pas:1086 internalerror(2010053101); 2010053105 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:298 internalerror(2010053101); 2010053102 compiler ../src/fpc/compiler/cgobj.pas:1374 internalerror(2010053102); 2010053106 compiler ../src/fpc/compiler/cgobj.pas:1430 internalerror(2010053102); 2010053111 compiler ../src/fpc/compiler/cgobj.pas:1170 internalerror(2010053111); 2010053107 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:302 internalerror(2010053111); 2010060102 x86 ../src/fpc/compiler/x86/cgx86.pas:1783 internalerror(2010060102); 2010060103 x86 ../src/fpc/compiler/x86/cgx86.pas:1894 internalerror(2010060102); IF extdebug 2010112101 compiler ../src/fpc/compiler/hlcg2ll.pas:629 internalerror(2010112101); IF extdebug 2010112103 compiler ../src/fpc/compiler/hlcg2ll.pas:840 internalerror(2010112101); 2010120415 compiler ../src/fpc/compiler/hlcgobj.pas:918 internalerror(2010120415); 2010120417 compiler ../src/fpc/compiler/hlcgobj.pas:2765 internalerror(2010120415); 2010120429 compiler ../src/fpc/compiler/hlcgobj.pas:3040 internalerror(2010120429); 2010120418 compiler ../src/fpc/compiler/hlcgobj.pas:3072 internalerror(2010120429); 2010120538 jvm ../src/fpc/compiler/jvm/hlcgcpu.pas:830 internalerror(2010120538); 2010120505 jvm ../src/fpc/compiler/jvm/hlcgcpu.pas:846 internalerror(2010120538); 2011010213 compiler ../src/fpc/compiler/hlcgobj.pas:5358 internalerror(2011010213); 2011010202 jvm ../src/fpc/compiler/jvm/hlcgcpu.pas:1621 internalerror(2011010213); 2011010412 compiler ../src/fpc/compiler/ncgadd.pas:202 internalerror(2011010412); 2011010403 compiler ../src/fpc/compiler/ncgadd.pas:213 internalerror(2011010412); 2011012205 jvm ../src/fpc/compiler/jvm/njvminl.pas:761 internalerror(2011012205); 2011012201 jvm ../src/fpc/compiler/jvm/jvmdef.pas:452 internalerror(2011012205); 2011012206 jvm ../src/fpc/compiler/jvm/njvminl.pas:134 internalerror(2011012206); 2011012203 jvm ../src/fpc/compiler/jvm/jvmdef.pas:466 internalerror(2011012206); 2011021307 z80 ../src/fpc/compiler/z80/cgcpu.pas:1505 internalerror(2011021307); 2011021301 z80 ../src/fpc/compiler/z80/cgcpu.pas:1572 internalerror(2011021307); 2011021302 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1767 internalerror(2011021307); 2011021303 avr ../src/fpc/compiler/avr/cgcpu.pas:1251 internalerror(2011021307); 2011021304 avr ../src/fpc/compiler/avr/cgcpu.pas:1472 internalerror(2011021307); 2011021701 z80 ../src/fpc/compiler/z80/agz80asm.pas:104 internalerror(2011021701) 2011021704 jvm ../src/fpc/compiler/jvm/agjasmin.pas:868 internalerror(2011021701); 2011021705 avr ../src/fpc/compiler/avr/cgcpu.pas:1101 internalerror(2011021701); 2011021706 avr ../src/fpc/compiler/avr/cgcpu.pas:2365 internalerror(2011021701); 2011021707 avr ../src/fpc/compiler/avr/agavrgas.pas:96 internalerror(2011021701) 2011030901 avr ../src/fpc/compiler/avr/cgcpu.pas:750 internalerror(2011030901); 2011030903 avr ../src/fpc/compiler/avr/cgcpu.pas:958 internalerror(2011030901); 2011030902 avr ../src/fpc/compiler/avr/cgcpu.pas:766 internalerror(2011030902); 2011030904 avr ../src/fpc/compiler/avr/cgcpu.pas:974 internalerror(2011030902); 2011031501 compiler ../src/fpc/compiler/symdef.pas:1721 Internalerror(2011031501); 2011031502 jvm ../src/fpc/compiler/jvm/njvmmem.pas:394 internalerror(2011031501); 2011032811 compiler ../src/fpc/compiler/symcreat.pas:453 internalerror(2011032811); 2011032804 compiler ../src/fpc/compiler/symcreat.pas:485 internalerror(2011032811); 2011033001 compiler ../src/fpc/compiler/ncgrtti.pas:1637 InternalError(2011033001); 2011033002 jvm ../src/fpc/compiler/jvm/hlcgcpu.pas:2432 internalerror(2011033001); 2011041901 jvm ../src/fpc/compiler/jvm/njvmutil.pas:428 internalerror(2011041901); 2011041903 jvm ../src/fpc/compiler/jvm/njvmmem.pas:337 internalerror(2011041901); 2011062402 jvm ../src/fpc/compiler/jvm/pjvm.pas:266 internalerror(2011062402); 2011062403 jvm ../src/fpc/compiler/jvm/pjvm.pas:270 internalerror(2011062402); 2011062404 jvm ../src/fpc/compiler/jvm/pjvm.pas:274 internalerror(2011062402); 2011071101 compiler ../src/fpc/compiler/symdef.pas:3787 internalerror(2011071101); 2011071102 x86 ../src/fpc/compiler/x86/symx86.pas:112 internalerror(2011071101); 2011072310 x86_64 ../src/fpc/compiler/x86_64/win64unw.pas:266 internalerror(2011072310); 2011072309 x86_64 ../src/fpc/compiler/x86_64/win64unw.pas:352 InternalError(2011072310); 2011072414 jvm ../src/fpc/compiler/jvm/njvmcnv.pas:997 internalerror(2011072414); 2011072401 jvm ../src/fpc/compiler/jvm/njvmcnv.pas:1024 internalerror(2011072414); 2011072506 jvm ../src/fpc/compiler/jvm/njvmcnv.pas:705 internalerror(2011072506); 2011072503 jvm ../src/fpc/compiler/jvm/njvmmem.pas:266 internalerror(2011072506); 2011081301 compiler ../src/fpc/compiler/symdef.pas:4149 internalerror(2011081301); 2011081302 compiler ../src/fpc/compiler/symdef.pas:7065 internalerror(2011081301); 2011081801 jvm ../src/fpc/compiler/jvm/hlcgcpu.pas:755 internalerror(2011081801); 2011081802 jvm ../src/fpc/compiler/jvm/hlcgcpu.pas:759 internalerror(2011081801); IF NOT cpufpemu 2011092401 compiler ../src/fpc/compiler/ninl.pas:4261 internalerror(2011092401); 2011092402 jvm ../src/fpc/compiler/jvm/pjvm.pas:420 internalerror(2011092401); 2011100201 x86_64 ../src/fpc/compiler/x86_64/rax64att.pas:109 InternalError(2011100201); 2011100203 x86_64 ../src/fpc/compiler/x86_64/rax64int.pas:103 InternalError(2011100201); 2011122701 powerpc ../src/fpc/compiler/powerpc/agppcmpw.pas:277 internalerror(2011122701); 2011122702 ppcgen ../src/fpc/compiler/ppcgen/agppcgas.pas:113 internalerror(2011122701); 2011123101 compiler ../src/fpc/compiler/ncgflw.pas:904 InternalError(2011123101); 2011123102 i386 ../src/fpc/compiler/i386/n386flw.pas:212 InternalError(2011123101); 2012010601 compiler ../src/fpc/compiler/ncgmem.pas:306 internalerror(2012010601); 2012010603 i8086 ../src/fpc/compiler/i8086/n8086mem.pas:168 internalerror(2012010601); 2012032101 compiler ../src/fpc/compiler/dbgbase.pas:639 internalerror(2012032101); 2012032102 compiler ../src/fpc/compiler/ninl.pas:489 internalerror(2012032101); 2012051704 compiler ../src/fpc/compiler/ngtcon.pas:599 internalerror(2012051704); 2012051702 compiler ../src/fpc/compiler/ncgcon.pas:315 internalerror(2012051704); 2012061901 compiler ../src/fpc/compiler/pgenutil.pas:1732 internalerror(2012061901); 2012061902 x86_64 ../src/fpc/compiler/x86_64/cpuelf.pas:167 InternalError(2012061901); 2012062301 compiler ../src/fpc/compiler/ogelf.pas:2340 InternalError(2012062301); 2012062302 compiler ../src/fpc/compiler/hlcgobj.pas:4255 internalerror(2012062301); 2012072401 compiler ../src/fpc/compiler/dbgbase.pas:325 internalerror(2012072401); 2012072403 compiler ../src/fpc/compiler/ogcoff.pas:3362 InternalError(2012072401); 2012082601 compiler ../src/fpc/compiler/ninl.pas:4918 internalerror(2012082601); 2012082602 compiler ../src/fpc/compiler/ncginl.pas:969 internalerror(2012082601); 2012100701 compiler ../src/fpc/compiler/symcreat.pas:883 internalerror(2012100701); 2012100703 compiler ../src/fpc/compiler/ninl.pas:4780 internalerror(2012100701); 2012100702 compiler ../src/fpc/compiler/symcreat.pas:919 internalerror(2012100702); 2012100704 compiler ../src/fpc/compiler/ninl.pas:4792 internalerror(2012100702); 2012101102 compiler ../src/fpc/compiler/pgenutil.pas:352 internalerror(2012101102); 2012101103 x86_64 ../src/fpc/compiler/x86_64/cpuelf.pas:580 InternalError(2012101102); 2012103001 compiler ../src/fpc/compiler/ognlm.pas:540 InternalError(2012103001); 2012103002 compiler ../src/fpc/compiler/ogbase.pas:3688 InternalError(2012103001); 2012120901 compiler ../src/fpc/compiler/ncgld.pas:308 internalerror(2012120901); 2012120902 i8086 ../src/fpc/compiler/i8086/n8086ld.pas:137 internalerror(2012120901); 2013030210 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1776 internalerror(2013030210); 2013030203 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1922 internalerror(2013030210); 2013030211 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1884 internalerror(2013030211); 2013030204 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2019 internalerror(2013030211); 2013030212 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1808 internalerror(2013030212); 2013030205 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1958 internalerror(2013030212); 2013030213 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1881 internalerror(2013030213); 2013030206 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2016 internalerror(2013030213); 2013030901 compiler ../src/fpc/compiler/defcmp.pas:343 internalerror(2013030901); 2013030905 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1054 internalerror(2013030901); 2013030902 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:923 internalerror(2013030902); 2013030906 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1072 internalerror(2013030902); 2013030903 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:489 internalerror(2013030903); 2013030907 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:525 internalerror(2013030903); 2013030908 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:994 internalerror(2013030903); 2013030909 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1183 internalerror(2013030903); 2013031101 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1295 internalerror(2013031101); 2013031103 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1299 internalerror(2013031101); 2013031104 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1304 internalerror(2013031101); 2013031105 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1306 internalerror(2013031101); 2013031106 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1308 internalerror(2013031101); 2013031107 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1357 internalerror(2013031101); 2013031108 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1361 internalerror(2013031101); 2013031109 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1366 internalerror(2013031101); 2013031110 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1368 internalerror(2013031101); 2013031111 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1370 internalerror(2013031101); 2013031112 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1373 internalerror(2013031101); IF NOT defined(cpu64bitalu) or defined(cpu32bitalu) 2013031301 compiler ../src/fpc/compiler/nmat.pas:826 internalerror(2013031301); IF NOT defined(cpu64bitalu) or defined(cpu32bitalu) 2013031302 compiler ../src/fpc/compiler/nmat.pas:836 internalerror(2013031301); IF cpuneedsdivhelper 2013031701 compiler ../src/fpc/compiler/nmat.pas:461 internalerror(2013031701); IF cpuneedsdivhelper 2013031702 compiler ../src/fpc/compiler/nmat.pas:463 internalerror(2013031701); 2013032604 compiler ../src/fpc/compiler/ninl.pas:229 internalerror(2013032604); 2013032606 compiler ../src/fpc/compiler/ninl.pas:1503 internalerror(2013032604); 2013032607 compiler ../src/fpc/compiler/ninl.pas:1512 internalerror(2013032604); 2013032605 compiler ../src/fpc/compiler/ninl.pas:239 internalerror(2013032605); 2013032608 compiler ../src/fpc/compiler/ninl.pas:1515 internalerror(2013032605); 2013050803 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1111 internalerror(2013050803); 2013050805 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1218 internalerror(2013050803); 2013053101 compiler ../src/fpc/compiler/fpcp.pas:438 internalerror(2013053101); IF NOT defined(i8086) 2013053105 compiler ../src/fpc/compiler/pexpr.pas:2236 internalerror(2013053101); 2013060103 compiler ../src/fpc/compiler/defutil.pas:1614 internalerror(2013060103); 2013060104 mips ../src/fpc/compiler/mips/cgcpu.pas:633 InternalError(2013060103); 2013060223 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:1731 internalerror(2013060223); 2013060202 llvm ../src/fpc/compiler/llvm/agllvm.pas:457 internalerror(2013060223); 2013060225 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:1911 internalerror(2013060225); 2013060203 llvm ../src/fpc/compiler/llvm/agllvm.pas:310 internalerror(2013060225); 2013092801 compiler ../src/fpc/compiler/options.pas:3951 InternalError(2013092801); 2013092802 compiler ../src/fpc/compiler/options.pas:3954 InternalError(2013092801); 2013100701 m68k ../src/fpc/compiler/m68k/hlcgcpu.pas:187 Internalerror(2013100701); 2013100704 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:264 InternalError(2013100701); 2013100705 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:277 InternalError(2013100701); 2013100706 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:292 InternalError(2013100701); 2013100707 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:305 InternalError(2013100701); 2013100708 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:804 InternalError(2013100701); 2013100709 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:817 InternalError(2013100701); 2013100710 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:833 InternalError(2013100701); 2013100711 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:846 InternalError(2013100701); 2013102301 compiler ../src/fpc/compiler/defcmp.pas:2462 internalerror(2013102301); 2013102305 compiler ../src/fpc/compiler/hlcgobj.pas:5384 internalerror(2013102301); 2013102701 compiler ../src/fpc/compiler/ncon.pas:415 internalerror(2013102701); 2013102704 x86 ../src/fpc/compiler/x86/nx86mat.pas:675 internalerror(2013102701); 2013110105 llvm ../src/fpc/compiler/llvm/aasmllvm.pas:644 internalerror(2013110105); 2013110111 llvm ../src/fpc/compiler/llvm/aasmllvm.pas:674 internalerror(2013110105); 2013120102 compiler ../src/fpc/compiler/ncgmat.pas:504 internalerror(2013120102); 2013120109 avr ../src/fpc/compiler/avr/navrmat.pas:169 internalerror(2013120102); 2013120104 compiler ../src/fpc/compiler/ncgadd.pas:710 internalerror(2013120104); 2013120111 m68k ../src/fpc/compiler/m68k/n68kadd.pas:413 internalerror(2013120104); 2013120112 powerpc64 ../src/fpc/compiler/powerpc64/nppcadd.pas:248 internalerror(2013120112); 2013120113 powerpc64 ../src/fpc/compiler/powerpc64/nppcmat.pas:354 internalerror(2013120112); 2013122302 compiler ../src/fpc/compiler/nmat.pas:716 internalerror(2013122302); 2013122303 compiler ../src/fpc/compiler/ninl.pas:2085 internalerror(2013122302); 2013122304 compiler ../src/fpc/compiler/ninl.pas:2183 internalerror(2013122302); 2013123101 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2236 internalerror(2013123101); 2013123102 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2279 internalerror(2013123101); 2013123103 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2300 internalerror(2013123101); 2014010305 compiler ../src/fpc/compiler/symdef.pas:5925 internalerror(2014010305); 2014010321 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2179 internalerror(2014010305); 2014010306 compiler ../src/fpc/compiler/symdef.pas:5933 internalerror(2014010306); 2014010322 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:2207 internalerror(2014010306); 2014011101 z80 ../src/fpc/compiler/z80/cgcpu.pas:295 internalerror(2014011101); 2014011104 z80 ../src/fpc/compiler/z80/cgcpu.pas:372 internalerror(2014011101); 2014011106 avr ../src/fpc/compiler/avr/cgcpu.pas:227 internalerror(2014011101); 2014011107 avr ../src/fpc/compiler/avr/cgcpu.pas:271 internalerror(2014011101); 2014011604 i386 ../src/fpc/compiler/i386/n386add.pas:618 InternalError(2014011604); 2014011601 i386 ../src/fpc/compiler/i386/n386add.pas:625 InternalError(2014011604); 2014020701 compiler ../src/fpc/compiler/node.pas:1791 internalerror(2014020701); 2014020707 arm ../src/fpc/compiler/arm/cgcpu.pas:1213 internalerror(2014020701); 2014032401 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1500 internalerror(2014032401); 2014032404 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1504 internalerror(2014032401); 2014032405 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1509 internalerror(2014032401); 2014032406 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1511 internalerror(2014032401); 2014032407 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1513 internalerror(2014032401); 2014032408 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:1516 internalerror(2014032401); 2014033101 compiler ../src/fpc/compiler/ncgmat.pas:244 internalerror(2014033101); 2014033102 xtensa ../src/fpc/compiler/xtensa/ncpumat.pas:244 internalerror(2014033101); 2014033103 arm ../src/fpc/compiler/arm/narmmat.pas:423 internalerror(2014033101); 2014040601 compiler ../src/fpc/compiler/nmem.pas:1274 internalerror(2014040601); 2014040608 i8086 ../src/fpc/compiler/i8086/n8086add.pas:459 internalerror(2014040601); IF NOT i8086 2014041301 x86 ../src/fpc/compiler/x86/nx86inl.pas:1245 internalerror(2014041301); 2014041302 x86 ../src/fpc/compiler/x86/cpubase.pas:594 InternalError(2014041301); 2014041303 i8086 ../src/fpc/compiler/i8086/symcpu.pas:253 internalerror(2014041301); 2014050604 compiler ../src/fpc/compiler/assemble.pas:1108 internalerror(2014050604); 2014050601 z80 ../src/fpc/compiler/z80/agsdasz80.pas:158 internalerror(2014050604); 2014050602 z80 ../src/fpc/compiler/z80/agz80vasm.pas:159 internalerror(2014050604); 2014050603 llvm ../src/fpc/compiler/llvm/agllvm.pas:886 internalerror(2014050604); 2014050606 x86 ../src/fpc/compiler/x86/agx86int.pas:688 internalerror(2014050604); IF arm 2014050605 compiler ../src/fpc/compiler/assemble.pas:1177 internalerror(2014050605); IF arm 2014050607 z80 ../src/fpc/compiler/z80/agsdasz80.pas:227 internalerror(2014050605); IF arm 2014050609 z80 ../src/fpc/compiler/z80/agz80vasm.pas:228 internalerror(2014050605); 2014051001 compiler ../src/fpc/compiler/assemble.pas:1155 internalerror(2014051001); 2014051002 z80 ../src/fpc/compiler/z80/agsdasz80.pas:205 internalerror(2014051001); 2014051003 z80 ../src/fpc/compiler/z80/agz80vasm.pas:206 internalerror(2014051001); 2014062203 llvm ../src/fpc/compiler/llvm/nllvmtcon.pas:667 internalerror(2014062203); 2014062202 llvm ../src/fpc/compiler/llvm/llvmdef.pas:227 internalerror(2014062203); 2014110704 aarch64 ../src/fpc/compiler/aarch64/aasmcpu.pas:706 internalerror(2014110704); 2014110702 aarch64 ../src/fpc/compiler/aarch64/cgcpu.pas:277 internalerror(2014110704); 2014110901 compiler ../src/fpc/compiler/fpcp.pas:375 internalerror(2014110901); 2014110903 aarch64 ../src/fpc/compiler/aarch64/cgcpu.pas:304 internalerror(2014110901); 2014121506 aarch64 ../src/fpc/compiler/aarch64/agcpugas.pas:647 internalerror(2014121506); 2014121502 aarch64 ../src/fpc/compiler/aarch64/agcpugas.pas:653 internalerror(2014121506); 2015030701 llvm ../src/fpc/compiler/llvm/nllvmtcon.pas:429 internalerror(2015030701); 2015030703 llvm ../src/fpc/compiler/llvm/nllvmtcon.pas:472 internalerror(2015030701); 2015031502 compiler ../src/fpc/compiler/aasmcnst.pas:1725 internalerror(2015031502); 2015031503 m68k ../src/fpc/compiler/m68k/cgcpu.pas:2215 internalerror(2015031502); 2015032101 compiler ../src/fpc/compiler/aasmcnst.pas:1305 internalerror(2015032101); 2015032102 compiler ../src/fpc/compiler/aasmcnst.pas:1315 internalerror(2015032101); 2015033102 compiler ../src/fpc/compiler/omfbase.pas:1425 internalerror(2015033102); 2015033106 compiler ../src/fpc/compiler/omfbase.pas:1453 internalerror(2015033102); 2015033107 compiler ../src/fpc/compiler/omfbase.pas:1460 internalerror(2015033102); 2015033103 compiler ../src/fpc/compiler/omfbase.pas:1409 internalerror(2015033103); 2015033108 compiler ../src/fpc/compiler/omfbase.pas:1435 internalerror(2015033103); 2015033109 compiler ../src/fpc/compiler/omfbase.pas:1441 internalerror(2015033103); 2015040301 compiler ../src/fpc/compiler/omfbase.pas:1533 internalerror(2015040301); 2015040304 compiler ../src/fpc/compiler/omfbase.pas:1578 internalerror(2015040301); 2015040308 compiler ../src/fpc/compiler/omfbase.pas:1759 internalerror(2015040301); 2015040309 compiler ../src/fpc/compiler/omfbase.pas:1805 internalerror(2015040301); 2015040310 compiler ../src/fpc/compiler/omfbase.pas:1925 internalerror(2015040301); 2015040311 compiler ../src/fpc/compiler/omfbase.pas:1984 internalerror(2015040301); 2015040312 compiler ../src/fpc/compiler/omfbase.pas:2132 internalerror(2015040301); 2015040313 compiler ../src/fpc/compiler/omfbase.pas:2184 internalerror(2015040301); 2015040314 compiler ../src/fpc/compiler/omfbase.pas:2840 internalerror(2015040301); 2015040315 compiler ../src/fpc/compiler/omfbase.pas:2884 internalerror(2015040301); 2015040316 compiler ../src/fpc/compiler/ogomf.pas:2164 internalerror(2015040301); 2015040305 compiler ../src/fpc/compiler/omfbase.pas:1812 internalerror(2015040305); 2015040317 compiler ../src/fpc/compiler/omfbase.pas:1823 internalerror(2015040305); 2015040318 compiler ../src/fpc/compiler/omfbase.pas:2188 internalerror(2015040305); 2015040319 compiler ../src/fpc/compiler/omfbase.pas:2212 internalerror(2015040305); 2015040320 compiler ../src/fpc/compiler/omfbase.pas:2255 internalerror(2015040305); 2015040321 compiler ../src/fpc/compiler/omfbase.pas:2261 internalerror(2015040305); 2015040322 compiler ../src/fpc/compiler/omfbase.pas:2269 internalerror(2015040305); 2015040306 compiler ../src/fpc/compiler/omfbase.pas:1843 internalerror(2015040306); 2015040323 compiler ../src/fpc/compiler/omfbase.pas:1853 internalerror(2015040306); 2015040401 compiler ../src/fpc/compiler/omfbase.pas:1948 internalerror(2015040401); 2015040402 llvm ../src/fpc/compiler/llvm/llvmpara.pas:78 InternalError(2015040401); 2015040502 compiler ../src/fpc/compiler/omfbase.pas:2319 internalerror(2015040502); 2015040506 compiler ../src/fpc/compiler/omfbase.pas:2343 internalerror(2015040502); 2015040507 compiler ../src/fpc/compiler/omfbase.pas:2784 internalerror(2015040502); 2015040504 compiler ../src/fpc/compiler/omfbase.pas:2234 internalerror(2015040504); 2015040508 compiler ../src/fpc/compiler/omfbase.pas:2244 internalerror(2015040504); 2015040509 compiler ../src/fpc/compiler/omfbase.pas:2681 internalerror(2015040504); 2015040510 compiler ../src/fpc/compiler/omfbase.pas:2721 internalerror(2015040504); 2015040511 compiler ../src/fpc/compiler/omfbase.pas:2731 internalerror(2015040504); 2015040512 compiler ../src/fpc/compiler/ogomf.pas:2106 internalerror(2015040504); 2015040513 compiler ../src/fpc/compiler/ogomf.pas:2116 internalerror(2015040504); 2015041401 compiler ../src/fpc/compiler/omfbase.pas:1993 internalerror(2015041401); 2015041405 compiler ../src/fpc/compiler/omfbase.pas:2006 internalerror(2015041401); 2015041407 compiler ../src/fpc/compiler/omfbase.pas:2014 internalerror(2015041401); 2015041408 compiler ../src/fpc/compiler/ogomf.pas:910 internalerror(2015041401); 2015041409 compiler ../src/fpc/compiler/ogomf.pas:956 internalerror(2015041401); 2015041410 compiler ../src/fpc/compiler/ogomf.pas:979 internalerror(2015041401); 2015041402 compiler ../src/fpc/compiler/omfbase.pas:2222 internalerror(2015041402); 2015041411 compiler ../src/fpc/compiler/omfbase.pas:2296 internalerror(2015041402); 2015041501 compiler ../src/fpc/compiler/ogomf.pas:902 internalerror(2015041501); 2015041505 compiler ../src/fpc/compiler/ogomf.pas:948 internalerror(2015041501); 2015041506 compiler ../src/fpc/compiler/ogomf.pas:971 internalerror(2015041501); 2015041502 compiler ../src/fpc/compiler/ogomf.pas:1184 internalerror(2015041502); 2015041507 compiler ../src/fpc/compiler/ogomf.pas:1193 internalerror(2015041502); 2015041802 compiler ../src/fpc/compiler/omfbase.pas:2831 internalerror(2015041802); 2015041803 compiler ../src/fpc/compiler/omfbase.pas:2833 internalerror(2015041802); 2015082201 compiler ../src/fpc/compiler/ogomf.pas:2873 internalerror(2015082201); 2015082202 compiler ../src/fpc/compiler/ogomf.pas:2915 internalerror(2015082201); 2015092701 compiler ../src/fpc/compiler/pexpr.pas:4212 internalerror(2015092701); 2015092705 systems ../src/fpc/compiler/systems/t_win16.pas:205 internalerror(2015092701); 2015100301 compiler ../src/fpc/compiler/dbgdwarf.pas:3440 internalerror(2015100301); 2015100302 compiler ../src/fpc/compiler/pkgutil.pas:535 internalerror(2015100301); 2015102505 compiler ../src/fpc/compiler/symtype.pas:360 internalerror(2015102505); 2015102501 compiler ../src/fpc/compiler/symtype.pas:780 Internalerror(2015102505); 2015103001 compiler ../src/fpc/compiler/fpcp.pas:399 internalerror(2015103001); 2015103003 i8086 ../src/fpc/compiler/i8086/n8086mem.pas:99 internalerror(2015103001); 2015111201 compiler ../src/fpc/compiler/ogbase.pas:912 internalerror(2015111201); 2015111204 i8086 ../src/fpc/compiler/i8086/hlcgcpu.pas:426 internalerror(2015111201) 2016090201 compiler ../src/fpc/compiler/pdecsub.pas:2177 internalerror(2016090201); 2016090204 compiler ../src/fpc/compiler/symtype.pas:786 internalerror(2016090201); 2016090202 compiler ../src/fpc/compiler/pdecsub.pas:1328 internalerror(2016090202); 2016090205 compiler ../src/fpc/compiler/ncgcal.pas:507 internalerror(2016090202); 2016100301 compiler ../src/fpc/compiler/psystem.pas:218 Internalerror(2016100301); 2016100302 m68k ../src/fpc/compiler/m68k/n68kcal.pas:84 internalerror(2016100301); 2016101501 compiler ../src/fpc/compiler/aoptobj.pas:1433 internalerror(2016101501); 2016101502 compiler ../src/fpc/compiler/ninl.pas:611 internalerror(2016101501); IF genericdef_for_nested 2016121701 compiler ../src/fpc/compiler/psub.pas:2759 internalerror(2016121701); 2016121704 compiler ../src/fpc/compiler/symdef.pas:5981 internalerror(2016121701); IF genericdef_for_nested 2016121702 compiler ../src/fpc/compiler/psub.pas:2762 internalerror(2016121702); 2016121705 compiler ../src/fpc/compiler/symdef.pas:5989 internalerror(2016121702); IF genericdef_for_nested 2016121703 compiler ../src/fpc/compiler/psub.pas:2779 internalerror(2016121703); 2016121706 llvm ../src/fpc/compiler/llvm/llvmpi.pas:411 internalerror(2016121703); 2017032901 compiler ../src/fpc/compiler/optloadmodifystore.pas:108 internalerror(2017032901); 2017032903 compiler ../src/fpc/compiler/optloadmodifystore.pas:164 internalerror(2017032901); 2017040301 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:412 internalerror(2017040301); 2017040302 i8086 ../src/fpc/compiler/i8086/cgcpu.pas:453 internalerror(2017040301); 2017041201 i386 ../src/fpc/compiler/i386/cgcpu.pas:963 internalerror(2017041201); 2017041202 i386 ../src/fpc/compiler/i386/cgcpu.pas:983 internalerror(2017041201); 2017041203 i386 ../src/fpc/compiler/i386/cgcpu.pas:1133 internalerror(2017041201); 2017041801 i386 ../src/fpc/compiler/i386/cgcpu.pas:767 internalerror(2017041801); 2017041802 i386 ../src/fpc/compiler/i386/cgcpu.pas:860 internalerror(2017041801); 2017041803 i386 ../src/fpc/compiler/i386/cgcpu.pas:1089 internalerror(2017041801); 2017042401 compiler ../src/fpc/compiler/ninl.pas:2780 internalerror(2017042401); 2017042402 compiler ../src/fpc/compiler/ninl.pas:2798 internalerror(2017042401); 2017050101 compiler ../src/fpc/compiler/ninl.pas:2261 internalerror(2017050101); 2017050103 compiler ../src/fpc/compiler/ncnv.pas:2045 internalerror(2017050101); IF enable_shl_shr_assign_x_y 2017051201 compiler ../src/fpc/compiler/optloadmodifystore.pas:299 internalerror(2017051201); IF enable_shl_shr_assign_x_y 2017051202 compiler ../src/fpc/compiler/optloadmodifystore.pas:346 internalerror(2017051201); IF defined(enable_sar_assign_x_y) or defined(enable_rox_assign_x_y) 2017071701 compiler ../src/fpc/compiler/optloadmodifystore.pas:393 internalerror(2017071701); IF defined(enable_sar_assign_x_y) or defined(enable_rox_assign_x_y) 2017071702 compiler ../src/fpc/compiler/optloadmodifystore.pas:489 internalerror(2017071701); IF NOT sparc 2017090901 sparcgen ../src/fpc/compiler/sparcgen/rgcpu.pas:125 Internalerror(2017090901); IF NOT sparc 2017090902 sparcgen ../src/fpc/compiler/sparcgen/rgcpu.pas:172 Internalerror(2017090901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091901 compiler ../src/fpc/compiler/assemble.pas:1100 internalerror(2017091901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091902 compiler ../src/fpc/compiler/assemble.pas:1143 internalerror(2017091901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091903 compiler ../src/fpc/compiler/assemble.pas:2065 internalerror(2017091901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091904 z80 ../src/fpc/compiler/z80/agsdasz80.pas:150 internalerror(2017091901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091905 z80 ../src/fpc/compiler/z80/agsdasz80.pas:193 internalerror(2017091901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091906 z80 ../src/fpc/compiler/z80/agz80vasm.pas:151 internalerror(2017091901); IF NOT defined(cpuextended) and defined(fpc_has_type_extended) IF fpc_soft_fpux80 2017091907 z80 ../src/fpc/compiler/z80/agz80vasm.pas:194 internalerror(2017091901); 2018021501 compiler ../src/fpc/compiler/paramgr.pas:231 internalerror(2018021501); 2018021502 i8086 ../src/fpc/compiler/i8086/cpupara.pas:123 internalerror(2018021501); 2018061401 compiler ../src/fpc/compiler/ogomf.pas:3754 internalerror(2018061401); 2018061402 x86 ../src/fpc/compiler/x86/aoptx86.pas:3790 InternalError(2018061401); 2019011902 llvm ../src/fpc/compiler/llvm/llvmpara.pas:129 internalerror(2019011902); 2019011901 llvm ../src/fpc/compiler/llvm/llvmpara.pas:259 internalerror(2019011902); 2019012601 arm ../src/fpc/compiler/arm/narmmat.pas:187 internalerror(2019012601); 2019012602 arm ../src/fpc/compiler/arm/agarmgas.pas:241 Internalerror(2019012601); 2019050110 llvm ../src/fpc/compiler/llvm/agllvm.pas:1373 internalerror(2019050110); 2019050101 llvm ../src/fpc/compiler/llvm/agllvm.pas:1381 internalerror(2019050110); 2019050516 compiler ../src/fpc/compiler/nset.pas:243 internalerror(2019050516); 2019050501 compiler ../src/fpc/compiler/ninl.pas:1130 internalerror(2019050516); 2019050532 compiler ../src/fpc/compiler/pdecobj.pas:770 internalerror(2019050532); 2019050502 compiler ../src/fpc/compiler/pexports.pas:242 internalerror(2019050532); 2019050901 i386 ../src/fpc/compiler/i386/cgcpu.pas:527 internalerror(2019050901); 2019050903 i386 ../src/fpc/compiler/i386/cgcpu.pas:1052 internalerror(2019050901); 2019050926 arm ../src/fpc/compiler/arm/aasmcpu.pas:4711 internalerror(2019050926); 2019050908 arm ../src/fpc/compiler/arm/cgcpu.pas:2190 internalerror(2019050926); 2019050934 systems ../src/fpc/compiler/systems/t_nds.pas:811 internalerror(2019050934); 2019050909 arm ../src/fpc/compiler/arm/narmcnv.pas:263 internalerror(2019050934); 2019050947 powerpc ../src/fpc/compiler/powerpc/nppcadd.pas:230 internalerror(2019050947); 2019050913 powerpc ../src/fpc/compiler/powerpc/nppcmat.pas:480 internalerror(2019050947); 2019052901 compiler ../src/fpc/compiler/hlcgobj.pas:1584 internalerror(2019052901); 2019052902 compiler ../src/fpc/compiler/hlcgobj.pas:1647 internalerror(2019052901); 2019081001 compiler ../src/fpc/compiler/ogomf.pas:4661 internalerror(2019081001); 2019081010 x86 ../src/fpc/compiler/x86/rax86.pas:640 else Internalerror(2019081001); 2019081002 compiler ../src/fpc/compiler/ogomf.pas:4132 internalerror(2019081002); 2019081011 compiler ../src/fpc/compiler/ogomf.pas:4168 internalerror(2019081002); 2019081012 x86 ../src/fpc/compiler/x86/rax86.pas:688 else Internalerror(2019081002); 2019081003 compiler ../src/fpc/compiler/ogomf.pas:4244 internalerror(2019081003); 2019081013 x86 ../src/fpc/compiler/x86/aasmcpu.pas:2151 Internalerror(2019081003); 2019081004 compiler ../src/fpc/compiler/ogomf.pas:4690 internalerror(2019081004); 2019081014 x86 ../src/fpc/compiler/x86/aasmcpu.pas:3867 Internalerror(2019081004); 2019081005 compiler ../src/fpc/compiler/ogomf.pas:4693 internalerror(2019081005); 2019081015 x86 ../src/fpc/compiler/x86/rax86.pas:521 Internalerror(2019081005); 2019081016 x86 ../src/fpc/compiler/x86/rax86.pas:715 Internalerror(2019081005); 2019081006 compiler ../src/fpc/compiler/ogomf.pas:4698 internalerror(2019081006); 2019081017 x86 ../src/fpc/compiler/x86/rax86.pas:831 Internalerror(2019081006); 2019081007 compiler ../src/fpc/compiler/ogomf.pas:4726 internalerror(2019081007); 2019081018 x86 ../src/fpc/compiler/x86/rax86.pas:1190 Internalerror(2019081007); 2019091701 x86_64 ../src/fpc/compiler/x86_64/cpuelf.pas:180 InternalError(2019091701); 2019091702 x86_64 ../src/fpc/compiler/x86_64/cpuelf.pas:189 InternalError(2019091701); 2019092802 compiler ../src/fpc/compiler/assemble.pas:2098 Internalerror(2019092802); 2019092803 compiler ../src/fpc/compiler/assemble.pas:2104 Internalerror(2019092802); 2019092806 arm ../src/fpc/compiler/arm/narmld.pas:160 Internalerror(2019092802); IF NOT cpu64bitaddr 2019092805 compiler ../src/fpc/compiler/aggas.pas:1042 Internalerror(2019092805); 2019092807 arm ../src/fpc/compiler/arm/cgcpu.pas:5157 Internalerror(2019092805); 2019122801 compiler ../src/fpc/compiler/ncginl.pas:322 Internalerror(2019122801); 2019122805 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:761 internalerror(2019122801); 2019122809 x86 ../src/fpc/compiler/x86/nx86inl.pas:1377 Internalerror(2019122801); 2019122802 compiler ../src/fpc/compiler/ninl.pas:4874 Internalerror(2019122802); 2019122812 llvm ../src/fpc/compiler/llvm/hlcgllvm.pas:688 internalerror(2019122802); 2020030701 xtensa ../src/fpc/compiler/xtensa/aasmcpu.pas:482 internalerror(2020030701); 2020030702 xtensa ../src/fpc/compiler/xtensa/aasmcpu.pas:495 internalerror(2020030701); 2020030801 xtensa ../src/fpc/compiler/xtensa/ncpuadd.pas:172 internalerror(2020030801); 2020030803 xtensa ../src/fpc/compiler/xtensa/ncpuadd.pas:183 internalerror(2020030801); 2020030805 xtensa ../src/fpc/compiler/xtensa/cgcpu.pas:286 internalerror(2020030801); 2020030806 xtensa ../src/fpc/compiler/xtensa/cgcpu.pas:907 Internalerror(2020030801); 2020030807 xtensa ../src/fpc/compiler/xtensa/cgcpu.pas:923 Internalerror(2020030801); 2020030808 xtensa ../src/fpc/compiler/xtensa/cgcpu.pas:938 Internalerror(2020030801); IF aarch64 2020032202 compiler ../src/fpc/compiler/ogcoff.pas:1111 internalerror(2020032202); { offset overflow } 2020032204 xtensa ../src/fpc/compiler/xtensa/cpupara.pas:224 Internalerror(2020032202); 2020033101 aarch64 ../src/fpc/compiler/aarch64/ncpuflw.pas:183 InternalError(2020033101); 2020033104 aarch64 ../src/fpc/compiler/aarch64/ncpuflw.pas:358 InternalError(2020033101); 2020040201 z80 ../src/fpc/compiler/z80/agsdasz80.pas:426 internalerror(2020040201); 2020040203 z80 ../src/fpc/compiler/z80/agsdasz80.pas:444 internalerror(2020040201); 2020040204 z80 ../src/fpc/compiler/z80/agz80vasm.pas:455 internalerror(2020040201); 2020040205 z80 ../src/fpc/compiler/z80/agz80vasm.pas:478 internalerror(2020040201); 2020040202 z80 ../src/fpc/compiler/z80/agsdasz80.pas:432 internalerror(2020040202); 2020040206 z80 ../src/fpc/compiler/z80/agsdasz80.pas:451 internalerror(2020040202); 2020040207 z80 ../src/fpc/compiler/z80/agz80vasm.pas:461 internalerror(2020040202); 2020040208 z80 ../src/fpc/compiler/z80/agz80vasm.pas:485 internalerror(2020040202); 2020040402 z80 ../src/fpc/compiler/z80/nz80add.pas:262 internalerror(2020040402); 2020040403 z80 ../src/fpc/compiler/z80/nz80add.pas:305 internalerror(2020040402); 2020040903 z80 ../src/fpc/compiler/z80/cgcpu.pas:852 internalerror(2020040903); 2020040905 z80 ../src/fpc/compiler/z80/cgcpu.pas:1074 internalerror(2020040903); 2020040904 z80 ../src/fpc/compiler/z80/cgcpu.pas:867 internalerror(2020040904); 2020040906 z80 ../src/fpc/compiler/z80/cgcpu.pas:1089 internalerror(2020040904); 2020041101 z80 ../src/fpc/compiler/z80/agsdasz80.pas:393 internalerror(2020041101); 2020041102 z80 ../src/fpc/compiler/z80/agz80vasm.pas:429 internalerror(2020041101); 2020042002 z80 ../src/fpc/compiler/z80/cgcpu.pas:1406 internalerror(2020042002); 2020042003 z80 ../src/fpc/compiler/z80/cgcpu.pas:1433 internalerror(2020042002); 2020042102 z80 ../src/fpc/compiler/z80/nz80add.pas:375 internalerror(2020042102); 2020042104 z80 ../src/fpc/compiler/z80/nz80add.pas:403 internalerror(2020042102); 2020042105 z80 ../src/fpc/compiler/z80/nz80add.pas:425 internalerror(2020042102); 2020042103 z80 ../src/fpc/compiler/z80/nz80add.pas:436 internalerror(2020042103); 2020042106 z80 ../src/fpc/compiler/z80/nz80add.pas:624 internalerror(2020042103); 2020042202 z80 ../src/fpc/compiler/z80/nz80add.pas:486 internalerror(2020042202); 2020042207 z80 ../src/fpc/compiler/z80/nz80add.pas:497 internalerror(2020042202); 2020042210 z80 ../src/fpc/compiler/z80/nz80add.pas:541 internalerror(2020042202); 2020042211 z80 ../src/fpc/compiler/z80/nz80add.pas:552 internalerror(2020042202); 2020042212 z80 ../src/fpc/compiler/z80/nz80add.pas:590 internalerror(2020042202); 2020042213 z80 ../src/fpc/compiler/z80/nz80add.pas:601 internalerror(2020042202); 2020042214 xtensa ../src/fpc/compiler/xtensa/ncpumem.pas:76 Internalerror(2020042202); 2020042203 z80 ../src/fpc/compiler/z80/nz80add.pas:510 internalerror(2020042203); 2020042215 z80 ../src/fpc/compiler/z80/nz80add.pas:565 internalerror(2020042203); 2020042216 z80 ../src/fpc/compiler/z80/nz80add.pas:614 internalerror(2020042203); 2020042217 xtensa ../src/fpc/compiler/xtensa/ncpumem.pas:79 internalerror(2020042203); 2020042206 z80 ../src/fpc/compiler/z80/cgcpu.pas:1733 internalerror(2020042206); 2020042218 z80 ../src/fpc/compiler/z80/cgcpu.pas:1748 internalerror(2020042206); 2020042219 z80 ../src/fpc/compiler/z80/cgcpu.pas:1767 internalerror(2020042206); 2020042220 z80 ../src/fpc/compiler/z80/cgcpu.pas:1786 internalerror(2020042206); 2020042221 z80 ../src/fpc/compiler/z80/cgcpu.pas:1808 internalerror(2020042206); 2020042222 z80 ../src/fpc/compiler/z80/cgcpu.pas:1831 internalerror(2020042206); 2020042223 z80 ../src/fpc/compiler/z80/cgcpu.pas:1846 internalerror(2020042206); 2020042224 z80 ../src/fpc/compiler/z80/cgcpu.pas:1863 internalerror(2020042206); 2020042501 compiler ../src/fpc/compiler/symdef.pas:4611 internalerror(2020042501); 2020042502 compiler ../src/fpc/compiler/aasmbase.pas:316 Internalerror(2020042501); IF not defined(cpu64bitalu) and not defined(cpuhighleveltarget) 2020042801 compiler ../src/fpc/compiler/ncginl.pas:492 Internalerror(2020042801); 2020042804 z80 ../src/fpc/compiler/z80/cpubase.pas:439 internalerror(2020042801); 2020042802 compiler ../src/fpc/compiler/ncginl.pas:504 Internalerror(2020042802); 2020042805 z80 ../src/fpc/compiler/z80/agsdasz80.pas:420 internalerror(2020042802); 2020050402 z80 ../src/fpc/compiler/z80/aasmcpu.pas:464 internalerror(2020050402); 2020050424 z80 ../src/fpc/compiler/z80/aasmcpu.pas:950 internalerror(2020050402); 2020050408 z80 ../src/fpc/compiler/z80/aasmcpu.pas:586 internalerror(2020050408); 2020050425 z80 ../src/fpc/compiler/z80/aasmcpu.pas:907 internalerror(2020050408); 2020050409 z80 ../src/fpc/compiler/z80/aasmcpu.pas:591 internalerror(2020050409); 2020050426 z80 ../src/fpc/compiler/z80/aasmcpu.pas:872 internalerror(2020050409); 2020050419 z80 ../src/fpc/compiler/z80/aasmcpu.pas:778 internalerror(2020050419); 2020050427 z80 ../src/fpc/compiler/z80/aasmcpu.pas:805 internalerror(2020050419); 2020050428 z80 ../src/fpc/compiler/z80/aasmcpu.pas:823 internalerror(2020050419); 2020050601 compiler ../src/fpc/compiler/ogrel.pas:192 internalerror(2020050601); 2020050613 compiler ../src/fpc/compiler/ogrel.pas:216 internalerror(2020050601); 2020050606 z80 ../src/fpc/compiler/z80/aasmcpu.pas:855 internalerror(2020050606); 2020050614 z80 ../src/fpc/compiler/z80/aasmcpu.pas:865 internalerror(2020050606); 2020050701 compiler ../src/fpc/compiler/cgobj.pas:2257 internalerror(2020050701); 2020050710 compiler ../src/fpc/compiler/cgobj.pas:2268 internalerror(2020050701); 2020050711 compiler ../src/fpc/compiler/hlcgobj.pas:3127 internalerror(2020050701); 2020050712 compiler ../src/fpc/compiler/hlcgobj.pas:3136 internalerror(2020050701); IF NOT cpu64bitalu 2020050706 compiler ../src/fpc/compiler/cgobj.pas:3156 internalerror(2020050706); IF NOT cpu64bitalu 2020050713 compiler ../src/fpc/compiler/cgobj.pas:3166 internalerror(2020050706); 2020051111 z80 ../src/fpc/compiler/z80/aoptcpu.pas:288 internalerror(2020051111); 2020051108 z80 ../src/fpc/compiler/z80/aoptcpu.pas:355 internalerror(2020051111); 2020051113 z80 ../src/fpc/compiler/z80/aoptcpub.pas:314 internalerror(2020051111); 2020051112 z80 ../src/fpc/compiler/z80/aoptcpu.pas:208 internalerror(2020051112); 2020051114 z80 ../src/fpc/compiler/z80/aoptcpu.pas:296 internalerror(2020051112); 2020051115 z80 ../src/fpc/compiler/z80/aoptcpub.pas:234 internalerror(2020051112); 2020051601 z80 ../src/fpc/compiler/z80/aoptcpu.pas:251 internalerror(2020051601); 2020051611 z80 ../src/fpc/compiler/z80/aoptcpub.pas:277 internalerror(2020051601); 2020051602 z80 ../src/fpc/compiler/z80/aoptcpu.pas:227 internalerror(2020051602); 2020051612 z80 ../src/fpc/compiler/z80/aoptcpu.pas:277 internalerror(2020051602); 2020051613 z80 ../src/fpc/compiler/z80/aoptcpub.pas:253 internalerror(2020051602); 2020051614 z80 ../src/fpc/compiler/z80/aoptcpub.pas:303 internalerror(2020051602); 2020082209 xtensa ../src/fpc/compiler/xtensa/cgcpu.pas:1441 Internalerror(2020082209); 2020082204 xtensa ../src/fpc/compiler/xtensa/ncpumat.pas:322 internalerror(2020082209); 2020083001 xtensa ../src/fpc/compiler/xtensa/cgcpu.pas:754 Internalerror(2020083001); 2020083002 xtensa ../src/fpc/compiler/xtensa/cpupara.pas:293 Internalerror(2020083001); interr.patch (205,624 bytes)
Index: compiler/aarch64/aasmcpu.pas =================================================================== --- compiler/aarch64/aasmcpu.pas (revision 47063) +++ compiler/aarch64/aasmcpu.pas (working copy) @@ -569,7 +569,7 @@ R_MMREGISTER: result:=taicpu.op_reg_ref(op,r,ref); else - internalerror(200401041); + internalerror(2004010407); end; end; Index: compiler/aarch64/agcpugas.pas =================================================================== --- compiler/aarch64/agcpugas.pas (revision 47063) +++ compiler/aarch64/agcpugas.pas (working copy) @@ -650,7 +650,7 @@ else begin if ref.refaddr<>addr_no then - internalerror(2014121506); + internalerror(2014121502); if (ref.offset<>0) then result:=result+', #'+tostr(ref.offset); end; Index: compiler/aarch64/cgcpu.pas =================================================================== --- compiler/aarch64/cgcpu.pas (revision 47063) +++ compiler/aarch64/cgcpu.pas (working copy) @@ -274,7 +274,7 @@ { todo } A_LD1,A_LD2,A_LD3,A_LD4, A_ST1,A_ST2,A_ST3,A_ST4: - internalerror(2014110704); + internalerror(2014110702); { these don't support base+index } A_LDUR,A_STUR, A_LDP,A_STP: @@ -301,7 +301,7 @@ offset may still be too big } end; else - internalerror(2014110901); + internalerror(2014110903); end; end; Index: compiler/aarch64/cpupara.pas =================================================================== --- compiler/aarch64/cpupara.pas (revision 47063) +++ compiler/aarch64/cpupara.pas (working copy) @@ -682,7 +682,7 @@ result:=curstackoffset; end else - internalerror(200410231); + internalerror(2004102303); create_funcretloc_info(p,side); end; Index: compiler/aarch64/hlcgcpu.pas =================================================================== --- compiler/aarch64/hlcgcpu.pas (revision 47063) +++ compiler/aarch64/hlcgcpu.pas (working copy) @@ -184,7 +184,7 @@ not is_objectpascal_helper(procdef.struct) then begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061302); { mov 0(%rdi),%rax ; load vmt} reference_reset_base(href,voidpointertype,paraloc^.register,0,ctempposinvalid,sizeof(pint),[]); getcpuregister(list,NR_IP0); Index: compiler/aarch64/ncpuflw.pas =================================================================== --- compiler/aarch64/ncpuflw.pas (revision 47063) +++ compiler/aarch64/ncpuflw.pas (working copy) @@ -355,7 +355,7 @@ if (target_info.system=system_aarch64_win64) then begin if df_generic in current_procinfo.procdef.defoptions then - InternalError(2020033101); + InternalError(2020033104); p.finalizepi:=tcgprocinfo(current_procinfo.create_for_outlining('$fin$',current_procinfo.procdef.struct,potype_exceptfilter,voidtype,p.right)); if pi_do_call in finalizepi.flags then Index: compiler/aarch64/racpugas.pas =================================================================== --- compiler/aarch64/racpugas.pas (revision 47063) +++ compiler/aarch64/racpugas.pas (working copy) @@ -859,7 +859,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092005); end; end end; Index: compiler/aasmbase.pas =================================================================== --- compiler/aasmbase.pas (revision 47063) +++ compiler/aasmbase.pas (working copy) @@ -313,7 +313,7 @@ Delete(Result,(Length(Result)-charstoremove) div 2,charstoremove); Result:='_'+target_asm.dollarsign+'CRC'+hexstr(crc,8)+Result; if Length(Result)>target_asm.labelmaxlen then - Internalerror(2020042501); + Internalerror(2020042502); end; end; Index: compiler/aasmcnst.pas =================================================================== --- compiler/aasmcnst.pas (revision 47063) +++ compiler/aasmcnst.pas (working copy) @@ -1312,7 +1312,7 @@ else if (assigned(finternal_data_asmlist) and (list<>finternal_data_asmlist)) or not assigned(list) then - internalerror(2015032101); + internalerror(2015032102); finternal_data_asmlist:=list; if not assigned(l) then l:=get_internal_data_section_internal_label; Index: compiler/arm/aasmcpu.pas =================================================================== --- compiler/arm/aasmcpu.pas (revision 47063) +++ compiler/arm/aasmcpu.pas (working copy) @@ -723,7 +723,7 @@ R_MMREGISTER : result:=taicpu.op_reg_ref(A_VLDR,r,ref); else - internalerror(200401041); + internalerror(2004010415); end; end; @@ -741,7 +741,7 @@ R_MMREGISTER : result:=taicpu.op_reg_ref(A_VSTR,r,ref); else - internalerror(200401041); + internalerror(2004010416); end; end; @@ -925,7 +925,7 @@ else begin writeln(opcode); - internalerror(200403151); + internalerror(2004031502); end; end; end; Index: compiler/arm/agarmgas.pas =================================================================== --- compiler/arm/agarmgas.pas (revision 47063) +++ compiler/arm/agarmgas.pas (working copy) @@ -238,7 +238,7 @@ else if shiftmode <> SM_None then s:=s+', '+gas_shiftmode2str[shiftmode]+' #'+tostr(shiftimm); if offset<>0 then - Internalerror(2019012601); + Internalerror(2019012602); end else if offset<>0 then s:=s+', #'+tostr(offset); @@ -426,7 +426,7 @@ top_const: s:=s+sep+tostr(taicpu(hp).oper[1]^.val); else - internalerror(200311292); + internalerror(2003112903); end; end else Index: compiler/arm/cgcpu.pas =================================================================== --- compiler/arm/cgcpu.pas (revision 47063) +++ compiler/arm/cgcpu.pas (working copy) @@ -329,7 +329,7 @@ imm1, imm2: DWord; begin if not(size in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then - internalerror(2002090902); + internalerror(2002090907); if is_shifter_const(a,imm_shift) then list.concat(taicpu.op_reg_const(A_MOV,reg,a)) else if is_shifter_const(not(a),imm_shift) then @@ -516,7 +516,7 @@ hsym:=tsym(procdef.parast.Find('self')); if not(assigned(hsym) and (hsym.typ=paravarsym)) then - internalerror(200305251); + internalerror(2003052503); paraloc:=tparavarsym(hsym).paraloc[callerside].location; while paraloc<>nil do with paraloc^ do @@ -546,7 +546,7 @@ end; end else - internalerror(200309189); + internalerror(2003091803); end; paraloc:=next; end; @@ -1089,7 +1089,7 @@ OP_ROL: begin if not(size in [OS_32,OS_S32]) then - internalerror(2008072801); + internalerror(2008072804); { simulate ROL by ror'ing 32-value } tmpreg:=getintregister(list,OS_32); list.concat(taicpu.op_reg_reg_const(A_RSB,tmpreg,src1, 32)); @@ -1210,7 +1210,7 @@ if (ref.base=NR_NO) then begin if ref.shiftmode<>SM_None then - internalerror(2014020701); + internalerror(2014020707); ref.base:=ref.index; ref.index:=NR_NO; end; @@ -1368,7 +1368,7 @@ OS_F32: oppostfix:=PF_None; else - InternalError(200308299); + InternalError(2003082912); end; if ((ref.alignment in [1,2]) and (ref.alignment<tcgsize2size[tosize])) or @@ -2187,7 +2187,7 @@ mmregs:=(rg[R_MMREGISTER].used_in_proc-paramanager.get_volatile_registers_mm(pocall_stdcall))*[0..31]; end else - internalerror(2019050926); + internalerror(2019050908); end; if (firstfloatreg<>RS_NO) or @@ -3193,7 +3193,7 @@ tosize:=OS_F32; { since we are loading an integer, no conversion may be required } if (fromsize<>tosize) then - internalerror(2009112801); + internalerror(2009112802); end; OS_64,OS_S64: begin @@ -3200,7 +3200,7 @@ tosize:=OS_F64; { since we are loading an integer, no conversion may be required } if (fromsize<>tosize) then - internalerror(2009112901); + internalerror(2009112902); end; OS_F32,OS_F64: ; @@ -3264,7 +3264,7 @@ if (fromsize<>OS_F32) then internalerror(2009112430); if not(tosize in [OS_32,OS_S32]) then - internalerror(2009112420); + internalerror(2009112409); if assigned(shuffle) and not shufflescalar(shuffle) then internalerror(2009112514); @@ -3595,7 +3595,7 @@ list.concat(setoppostfix(taicpu.op_reg_reg_reg(A_SBC,regdst.reghi,regsrc2.reghi,regsrc1.reghi),PF_S)); end; else - internalerror(2003083101); + internalerror(2003083102); end; if size=OS_64 then begin @@ -3634,7 +3634,7 @@ cg.a_reg_dealloc(list,NR_DEFAULTFLAGS); end; else - internalerror(2003083101); + internalerror(2003083104); end; end; end; @@ -3976,7 +3976,7 @@ hr : treference; begin if not(size in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then - internalerror(2002090902); + internalerror(2002090908); if is_thumb_imm(a) then list.concat(taicpu.op_reg_const(A_MOV,reg,a)) else @@ -4008,7 +4008,7 @@ hsym:=tsym(procdef.parast.Find('self')); if not(assigned(hsym) and (hsym.typ=paravarsym)) then - internalerror(200305251); + internalerror(2003052504); paraloc:=tparavarsym(hsym).paraloc[callerside].location; while paraloc<>nil do with paraloc^ do @@ -4058,7 +4058,7 @@ end; end else - internalerror(200309189); + internalerror(2003091804); end; paraloc:=next; end; @@ -4145,7 +4145,7 @@ OP_ROL: begin if not(size in [OS_32,OS_S32]) then - internalerror(2008072801); + internalerror(2008072805); { simulate ROL by ror'ing 32-value } tmpreg:=getintregister(list,OS_32); a_load_const_reg(list,OS_32,32,tmpreg); @@ -4227,7 +4227,7 @@ else if (op in [OP_MUL,OP_IMUL]) and ispowerof2(a-1,l1) and not(cgsetflags or setflags) then begin if l1>32 then{roozbeh does this ever happen?} - internalerror(200308296); + internalerror(2003082903); shifterop_reset(so); so.shiftmode:=SM_LSL; so.shiftimm:=l1; @@ -4237,7 +4237,7 @@ else if (op in [OP_MUL,OP_IMUL]) and ispowerof2(a+1,l1) and not(cgsetflags or setflags) then begin if l1>32 then{does this ever happen?} - internalerror(201205181); + internalerror(2012051802); shifterop_reset(so); so.shiftmode:=SM_LSL; so.shiftimm:=l1; @@ -4384,7 +4384,7 @@ hr : treference; begin if not(size in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then - internalerror(2002090902); + internalerror(2002090909); if is_thumb32_imm(a) then list.concat(taicpu.op_reg_const(A_MOV,reg,a)) else if is_thumb32_imm(not(a)) then @@ -4431,7 +4431,7 @@ OS_S32: oppostfix:=PF_None; else - InternalError(200308299); + InternalError(2003082913); end; if (ref.alignment in [1,2]) and (ref.alignment<tcgsize2size[fromsize]) then begin @@ -4702,7 +4702,7 @@ else if (op in [OP_MUL,OP_IMUL]) and ispowerof2(a-1,l1) and not(cgsetflags or setflags) then begin if l1>32 then{roozbeh does this ever happen?} - internalerror(200308296); + internalerror(2003082911); shifterop_reset(so); so.shiftmode:=SM_LSL; so.shiftimm:=l1; @@ -4712,7 +4712,7 @@ else if (op in [OP_MUL,OP_IMUL]) and ispowerof2(a+1,l1) and not(cgsetflags or setflags) then begin if l1>32 then{does this ever happen?} - internalerror(201205181); + internalerror(2012051803); shifterop_reset(so); so.shiftmode:=SM_LSL; so.shiftimm:=l1; @@ -4774,7 +4774,7 @@ OP_ROL: begin if not(size in [OS_32,OS_S32]) then - internalerror(2008072801); + internalerror(2008072806); { simulate ROL by ror'ing 32-value } tmpreg:=getintregister(list,OS_32); list.concat(taicpu.op_reg_const(A_MOV,tmpreg,32)); @@ -5154,7 +5154,7 @@ else if ref.refaddr=addr_tpoff then begin if assigned(ref.relsymbol) or (ref.offset<>0) then - Internalerror(2019092805); + Internalerror(2019092807); current_procinfo.aktlocaldata.concat(tai_const.Create_type_sym(aitconst_tpoff,ref.symbol)); end @@ -5224,7 +5224,7 @@ if ((op in [A_LDF,A_STF,A_FLDS,A_FLDD,A_FSTS,A_FSTD]) or (op=A_VSTR) or (op=A_VLDR)) and (ref.index<>NR_NO) then begin if ref.shiftmode<>SM_none then - internalerror(200309121); + internalerror(2003091202); if tmpreg<>NR_NO then begin if ref.base=tmpreg then @@ -5238,7 +5238,7 @@ else begin if ref.index<>tmpreg then - internalerror(200403161); + internalerror(2004031602); if ref.signindex<0 then list.concat(taicpu.op_reg_reg_reg(A_SUB,tmpreg,ref.base,tmpreg)) else @@ -5377,7 +5377,7 @@ list.concat(taicpu.op_reg_reg(A_SBC,regdst.reghi,regsrc.reghi)); end; else - internalerror(2003083101); + internalerror(2003083105); end; end; @@ -5431,7 +5431,7 @@ list.concat(taicpu.op_reg_reg(A_SBC,reg.reghi,tmpreg)); end; else - internalerror(2003083101); + internalerror(2003083106); end; end; Index: compiler/arm/cpuelf.pas =================================================================== --- compiler/arm/cpuelf.pas (revision 47063) +++ compiler/arm/cpuelf.pas (working copy) @@ -923,7 +923,7 @@ else begin writeln(objreloc.ftype); - internalerror(200604014); + internalerror(2006040107); end; end else { not relocsec.Used } Index: compiler/arm/cpupara.pas =================================================================== --- compiler/arm/cpupara.pas (revision 47063) +++ compiler/arm/cpupara.pas (working copy) @@ -915,7 +915,7 @@ end; end else - internalerror(200410231); + internalerror(2004102306); create_funcretloc_info(p,side); end; Index: compiler/arm/hlcgcpu.pas =================================================================== --- compiler/arm/hlcgcpu.pas (revision 47063) +++ compiler/arm/hlcgcpu.pas (working copy) @@ -106,7 +106,7 @@ l : TAsmLabel; begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061311); if GenerateThumbCode then begin reference_reset_base(href,voidpointertype,NR_R0,tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber),ctempposinvalid,sizeof(pint),[]); Index: compiler/arm/narmadd.pas =================================================================== --- compiler/arm/narmadd.pas (revision 47063) +++ compiler/arm/narmadd.pas (working copy) @@ -207,7 +207,7 @@ end; fpu_soft: { this case should be handled already by pass1 } - internalerror(200308252); + internalerror(2003082503); else if FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype] then begin { force mmreg as location, left right doesn't matter @@ -260,7 +260,7 @@ slashn : op:=A_VDIV; else - internalerror(2009111401); + internalerror(2009111404); end; current_asmdata.CurrAsmList.concat(setoppostfix(taicpu.op_reg_reg_reg(op, location.register,left.location.register,right.location.register), PF_F32)); Index: compiler/arm/narmcnv.pas =================================================================== --- compiler/arm/narmcnv.pas (revision 47063) +++ compiler/arm/narmcnv.pas (working copy) @@ -128,7 +128,7 @@ left:=nil; end; else - internalerror(200610151); + internalerror(2006101504); end; s64real: case tfloatdef(resultdef).floattype of @@ -141,10 +141,10 @@ left:=nil; end; else - internalerror(200610152); + internalerror(2006101505); end; else - internalerror(200610153); + internalerror(2006101506); end; left:=nil; firstpass(result); @@ -223,7 +223,7 @@ end; end; else - internalerror(200410031); + internalerror(2004100307); end; end; end; @@ -248,7 +248,7 @@ signed:=left.location.size=OS_S32; hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,false); if (left.location.size<>OS_F32) then - internalerror(2009112703); + internalerror(2009112704); if left.location.size<>location.size then location.register:=cg.getmmregister(current_asmdata.CurrAsmList,location.size) else @@ -260,7 +260,7 @@ end else { should be handled in pass 1 } - internalerror(2019050934); + internalerror(2019050909); end; end; @@ -358,7 +358,7 @@ tbasecgarm(cg).cgsetflags:=false; end; else - internalerror(200311301); + internalerror(2003113002); end; { load flags to register } location_reset(location,LOC_REGISTER,def_cgsize(resultdef)); Index: compiler/arm/narminl.pas =================================================================== --- compiler/arm/narminl.pas (revision 47063) +++ compiler/arm/narminl.pas (working copy) @@ -333,7 +333,7 @@ cg.maybe_check_for_fpu_exception(current_asmdata.CurrAsmList); end else - internalerror(2009111402); + internalerror(2009111405); end; end; Index: compiler/arm/narmld.pas =================================================================== --- compiler/arm/narmld.pas (revision 47063) +++ compiler/arm/narmld.pas (working copy) @@ -157,7 +157,7 @@ handled:=true; end; else - Internalerror(2019092802); + Internalerror(2019092806); end; end; end; Index: compiler/arm/narmmat.pas =================================================================== --- compiler/arm/narmmat.pas (revision 47063) +++ compiler/arm/narmmat.pas (working copy) @@ -420,7 +420,7 @@ OS_64: cg.a_op_const_reg(current_asmdata.CurrAsmList,OP_XOR,OS_32,tcgint($80000000),location.registerhi); else - internalerror(2014033101); + internalerror(2014033103); end; end else if FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[init_settings.fputype] then Index: compiler/arm/raarmgas.pas =================================================================== --- compiler/arm/raarmgas.pas (revision 47063) +++ compiler/arm/raarmgas.pas (working copy) @@ -988,7 +988,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092021); end; end end; Index: compiler/arm/rgcpu.pas =================================================================== --- compiler/arm/rgcpu.pas (revision 47063) +++ compiler/arm/rgcpu.pas (working copy) @@ -491,7 +491,7 @@ tmpref.index:=hreg; if spilltemp.index<>NR_NO then - internalerror(200401263); + internalerror(2004012601); helplist.concat(spilling_create_load(tmpref,tempreg)); if getregtype(tempreg)=R_INTREGISTER then @@ -545,7 +545,7 @@ helplist.concat(taicpu.op_reg_ref(A_LDR,hreg,tmpref)); if spilltemp.index<>NR_NO then - internalerror(200401263); + internalerror(2004012602); reference_reset_base(tmpref,current_procinfo.framepointer,0,ctempposinvalid,sizeof(pint),[]); tmpref.index:=hreg; Index: compiler/assemble.pas =================================================================== --- compiler/assemble.pas (revision 47063) +++ compiler/assemble.pas (working copy) @@ -1140,7 +1140,7 @@ else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val))) else - internalerror(2017091901); + internalerror(2017091902); pdata:=@eextended; end; {$pop} @@ -2062,7 +2062,7 @@ else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val))) else - internalerror(2017091901); + internalerror(2017091903); pdata:=@eextended; end; {$pop} @@ -2101,7 +2101,7 @@ else if Tai_const(hp).consttype in [aitconst_tlsgd,aitconst_tlsdesc] then begin if objsymend.objsection<>ObjData.CurrObjSec then - Internalerror(2019092802); + Internalerror(2019092803); Tai_const(hp).value:=ObjData.CurrObjSec.Size-objsymend.address+Tai_const(hp).symofs; end else if objsymend.objsection<>objsym.objsection then Index: compiler/avr/aasmcpu.pas =================================================================== --- compiler/avr/aasmcpu.pas (revision 47063) +++ compiler/avr/aasmcpu.pas (working copy) @@ -355,7 +355,7 @@ else result:=taicpu.op_reg_ref(A_LD,r,ref); else - internalerror(200401041); + internalerror(2004010413); end; end; @@ -374,7 +374,7 @@ else result:=taicpu.op_ref_reg(A_ST,ref,r); else - internalerror(200401041); + internalerror(2004010414); end; end; Index: compiler/avr/agavrgas.pas =================================================================== --- compiler/avr/agavrgas.pas (revision 47063) +++ compiler/avr/agavrgas.pas (working copy) @@ -93,7 +93,7 @@ // internalerror(200308293); {$endif extdebug} if index<>NR_NO then - internalerror(2011021701) + internalerror(2011021707) else if base<>NR_NO then begin if addressmode=AM_PREDRECEMENT then Index: compiler/avr/cgcpu.pas =================================================================== --- compiler/avr/cgcpu.pas (revision 47063) +++ compiler/avr/cgcpu.pas (working copy) @@ -214,7 +214,7 @@ list.concat(taicpu.op_reg(A_PUSH,r)); end; else - internalerror(2002071004); + internalerror(2002071007); end; end; @@ -224,7 +224,7 @@ begin if not(tcgsize2size[cgpara.Size] in [1..4]) then - internalerror(2014011101); + internalerror(2014011106); hp:=cgpara.location; @@ -268,7 +268,7 @@ tmpreg: TRegister; begin if not(tcgsize2size[paraloc.Size] in [1..4]) then - internalerror(2014011101); + internalerror(2014011107); hp:=paraloc.location; @@ -302,7 +302,7 @@ hp:=hp^.Next; end; else - internalerror(2002071004); + internalerror(2002071008); end; end; end; @@ -955,7 +955,7 @@ list.concat(taicpu.op_reg(A_ROL,reg)) end; else - internalerror(2011030901); + internalerror(2011030903); end; if size in [OS_S16,OS_16,OS_S32,OS_32,OS_S64,OS_64] then begin @@ -971,7 +971,7 @@ OP_SAR: list.concat(taicpu.op_reg(A_ROR,GetOffsetReg64(reg,reghi,tcgsize2size[size]-i))); else - internalerror(2011030902); + internalerror(2011030904); end; end; end; @@ -1098,7 +1098,7 @@ Result:=ref; if ref.addressmode<>AM_UNCHANGED then - internalerror(2011021701); + internalerror(2011021705); { Be sure to have a base register } if (ref.base=NR_NO) then @@ -1248,7 +1248,7 @@ QuickRef:=true; if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then - internalerror(2011021307); + internalerror(2011021303); conv_done:=false; if tosize<>fromsize then @@ -1469,7 +1469,7 @@ QuickRef:=true; if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then - internalerror(2011021307); + internalerror(2011021304); conv_done:=false; if tosize<>fromsize then @@ -2362,7 +2362,7 @@ tmpref : treference; begin if ref.addressmode<>AM_UNCHANGED then - internalerror(2011021701); + internalerror(2011021706); if assigned(ref.symbol) or (ref.offset<>0) then begin Index: compiler/avr/cpupara.pas =================================================================== --- compiler/avr/cpupara.pas (revision 47063) +++ compiler/avr/cpupara.pas (working copy) @@ -555,7 +555,7 @@ end; end else - internalerror(200410231); + internalerror(2004102305); end; begin Index: compiler/avr/navrmat.pas =================================================================== --- compiler/avr/navrmat.pas (revision 47063) +++ compiler/avr/navrmat.pas (working copy) @@ -166,7 +166,7 @@ shln: op:=OP_SHL; shrn: op:=OP_SHR; else - internalerror(2013120102); + internalerror(2013120109); end; opsize:=left.location.size; opdef:=left.resultdef; Index: compiler/avr/raavrgas.pas =================================================================== --- compiler/avr/raavrgas.pas (revision 47063) +++ compiler/avr/raavrgas.pas (working copy) @@ -415,7 +415,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092012); end; Consume(AS_RPAREN); end @@ -499,7 +499,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092013); end; end end; Index: compiler/cg64f32.pas =================================================================== --- compiler/cg64f32.pas (revision 47063) +++ compiler/cg64f32.pas (working copy) @@ -705,7 +705,7 @@ LOC_CONSTANT : cg.a_load_const_reg(list,OS_32,longint(hi(l.value64)),reg); else - internalerror(200203244); + internalerror(2002032411); end; end; Index: compiler/cgobj.pas =================================================================== --- compiler/cgobj.pas (revision 47063) +++ compiler/cgobj.pas (working copy) @@ -1427,7 +1427,7 @@ OS_M8..OS_M512: a_loadmm_reg_reg(list,paraloc.size,paraloc.size,paraloc.register,reg,nil); else - internalerror(2010053102); + internalerror(2010053106); end; end; else @@ -1464,7 +1464,7 @@ end; end; else - internalerror(2002081302); + internalerror(2002081303); end; end; @@ -2086,7 +2086,7 @@ LOC_REFERENCE, LOC_CREFERENCE: a_op_reg_ref(list,op,loc.size,reg,loc.reference); else - internalerror(200109061); + internalerror(2001090602); end; end; @@ -2123,7 +2123,7 @@ a_op_reg_ref(list,op,loc.size,tmpreg,loc.reference); end; else - internalerror(200109061); + internalerror(2001090603); end; end; @@ -2265,7 +2265,7 @@ tmpref: treference; begin if not (Op in [OP_NOT,OP_NEG]) then - internalerror(2020050701); + internalerror(2020050710); if assigned(ref.symbol) then begin tmpreg:=getaddressregister(list); @@ -2325,7 +2325,7 @@ LOC_REFERENCE,LOC_CREFERENCE: a_cmp_const_ref_label(list,size,cmp_op,a,loc.reference,l); else - internalerror(200109061); + internalerror(2001090604); end; end; @@ -2388,7 +2388,7 @@ a_cmp_ref_reg_label(list,size,cmp_op,ref,tmpreg,l); end; else - internalerror(200109061); + internalerror(2001090605); end; end; @@ -2522,7 +2522,7 @@ LOC_REFERENCE,LOC_CREFERENCE: a_loadmm_ref_cgpara(list,loc.size,loc.reference,cgpara,shuffle); else - internalerror(200310123); + internalerror(2003101204); end; end; @@ -2616,7 +2616,7 @@ LOC_CREFERENCE,LOC_REFERENCE: a_opmm_ref_reg_reg(list,op,size,loc.reference,src,dst,shuffle); else - internalerror(200312232); + internalerror(2003122304); end; end; @@ -3163,7 +3163,7 @@ tempreg: tregister64; begin if not (op in [OP_NOT,OP_NEG]) then - internalerror(2020050706); + internalerror(2020050713); tempreg.reghi:=cg.getintregister(list,OS_32); tempreg.reglo:=cg.getintregister(list,OS_32); a_load64_ref_reg(list,ref,tempreg); Index: compiler/dbgdwarf.pas =================================================================== --- compiler/dbgdwarf.pas (revision 47063) +++ compiler/dbgdwarf.pas (working copy) @@ -1309,7 +1309,7 @@ if data[i].VType<>vtInteger then internalerror(200601261); if data[i+1].VType<>vtInteger then - internalerror(200601261); + internalerror(2006012602); append_attribute(tdwarf_attribute(data[i].VInteger),tdwarf_form(data[i+1].VInteger),data[i+2]); inc(i,3); end; @@ -2552,7 +2552,7 @@ currdef:=tarraydef(currdef).elementdef; end; else - internalerror(2009031401); + internalerror(2009031403); end; symlist:=symlist^.next; until not assigned(symlist); Index: compiler/dbgstabs.pas =================================================================== --- compiler/dbgstabs.pas (revision 47063) +++ compiler/dbgstabs.pas (working copy) @@ -1561,7 +1561,7 @@ ss:=sym_stabstr_evaluate(sym,'"${name}:$1",'+base_stabs_str(paravarsymref_stab,'0','${line}','$2'),[c+st,getoffsetstr(sym.localloc.reference)]) end; else - internalerror(2003091814); + internalerror(2003091805); end; end; write_sym_stabstr(list,sym,ss); Index: compiler/fpcp.pas =================================================================== --- compiler/fpcp.pas (revision 47063) +++ compiler/fpcp.pas (working copy) @@ -326,7 +326,7 @@ if pcpfile.readentry<>ibpackagefiles then begin message(package_f_pcp_read_error); - internalerror(424242); + internalerror(2020100818); end; pplfilename:=pcpfile.getstring; @@ -342,13 +342,13 @@ if pcpfile.readentry<>ibstartcontained then begin message(package_f_pcp_read_error); - internalerror(424242); + internalerror(2020100819); end; cnt:=pcpfile.getlongint; if pcpfile.readentry<>ibendcontained then begin message(package_f_pcp_read_error); - internalerror(424242); + internalerror(2020100820); end; for i:=0 to cnt-1 do begin Index: compiler/hlcg2ll.pas =================================================================== --- compiler/hlcg2ll.pas (revision 47063) +++ compiler/hlcg2ll.pas (working copy) @@ -837,7 +837,7 @@ begin {$ifdef extdebug} if def_cgsize(size)<>loc.size then - internalerror(2010112101); + internalerror(2010112103); {$endif} case loc.loc of LOC_SUBSETREG,LOC_CSUBSETREG, Index: compiler/hlcgobj.pas =================================================================== --- compiler/hlcgobj.pas (revision 47063) +++ compiler/hlcgobj.pas (working copy) @@ -999,7 +999,7 @@ begin { should be the last part } if assigned(location^.next) then - internalerror(2010052907); + internalerror(2010052902); { load the value piecewise to get it into the register } orgsizeleft:=sizeleft; reghasvalue:=false; @@ -1083,7 +1083,7 @@ OS_M8..OS_M128: a_loadmm_ref_reg(list,location^.def,location^.def,tmpref,location^.register,nil); else - internalerror(2010053101); + internalerror(2010053103); end; end else @@ -1644,7 +1644,7 @@ if sref.bitlen>AIntBits then begin if ((sref.bitlen mod AIntBits)<>0) then - internalerror(2019052901); + internalerror(2019052902); tmpsref:=sref; tmpsref.bitlen:=AIntBits; if target_info.endian=endian_big then @@ -2762,7 +2762,7 @@ LOC_REFERENCE,LOC_CREFERENCE: a_loadmm_reg_ref(list,fromsize,tosize,reg,loc.reference,shuffle); else - internalerror(2010120415); + internalerror(2010120417); end; end; @@ -3069,7 +3069,7 @@ a_load_reg_subsetref(list,size,size,tmpreg,loc.sref); end; else - internalerror(2010120429); + internalerror(2010120418); end; end; @@ -3124,7 +3124,7 @@ procedure thlcgobj.a_op_reg(list: TAsmList; Op: TOpCG; size: tdef; reg: TRegister); begin if not (Op in [OP_NOT,OP_NEG]) then - internalerror(2020050701); + internalerror(2020050711); a_op_reg_reg(list,op,size,reg,reg); end; @@ -3133,7 +3133,7 @@ tmpreg: TRegister; begin if not (Op in [OP_NOT,OP_NEG]) then - internalerror(2020050701); + internalerror(2020050712); tmpreg:=getintregister(list,size); a_load_ref_reg(list,size,size,ref,tmpreg); a_op_reg_reg(list,op,size,tmpreg,tmpreg); @@ -4252,7 +4252,7 @@ begin { vectors can't be represented yet using tdef } if size.typ<>floatdef then - internalerror(2012062301); + internalerror(2012062302); tg.gethltemp(list,size,size.size,tt_normal,r); a_loadmm_reg_ref(list,size,size,l.register,r,mms_movescalar); location_reset_ref(l,LOC_REFERENCE,l.size,size.alignment,[]); @@ -5036,7 +5036,7 @@ begin hsym:=tparavarsym(get_high_value_sym(tparavarsym(p))); if not assigned(hsym) then - internalerror(201003032); + internalerror(2010030303); highloc:=hsym.initialloc end else @@ -5067,7 +5067,7 @@ begin hsym:=tparavarsym(get_high_value_sym(tparavarsym(p))); if not assigned(hsym) then - internalerror(201003032); + internalerror(2010030304); highloc:=hsym.initialloc end else @@ -5232,7 +5232,7 @@ a_loadfpu_reg_cgpara(list,size,tmploc.register,cgpara); end; else - internalerror(200204249); + internalerror(2002042402); end; LOC_FPUREGISTER, LOC_CFPUREGISTER: @@ -5381,7 +5381,7 @@ a_load_ref_ref(list,para.def,para.def,href,destloc.reference); end; else - internalerror(2013102301); + internalerror(2013102305); end; end; end; Index: compiler/i386/cgcpu.pas =================================================================== --- compiler/i386/cgcpu.pas (revision 47063) +++ compiler/i386/cgcpu.pas (working copy) @@ -636,7 +636,7 @@ op2:=A_AND; end; else - internalerror(200203241); + internalerror(2002032408); end; end; @@ -857,7 +857,7 @@ list.Concat(taicpu.op_reg_reg(A_SAR,S_L,NR_CL,regdst.reghi)); end; else - internalerror(2017041801); + internalerror(2017041802); end; cg.a_label(list,l2); @@ -980,7 +980,7 @@ list.concat(taicpu.op_const_reg(A_SHL,S_L,value,reg.reglo)); end; else - internalerror(2017041201); + internalerror(2017041202); end; end; end; @@ -1049,7 +1049,7 @@ cg.a_reg_dealloc(list,NR_DEFAULTFLAGS); end; else - internalerror(2019050901); + internalerror(2019050903); end else if value>31 then case op of @@ -1086,7 +1086,7 @@ cg.a_load_const_ref(list,OS_32,0,tempref); end; else - internalerror(2017041801); + internalerror(2017041803); end else case op of @@ -1130,7 +1130,7 @@ end; end; else - internalerror(2017041201); + internalerror(2017041203); end; end; end; Index: compiler/i386/cpuelf.pas =================================================================== --- compiler/i386/cpuelf.pas (revision 47063) +++ compiler/i386/cpuelf.pas (working copy) @@ -473,7 +473,7 @@ else begin writeln(reltyp); - internalerror(200604014); + internalerror(2006040108); end; end else { not relocsec.Used } Index: compiler/i386/cpupara.pas =================================================================== --- compiler/i386/cpupara.pas (revision 47063) +++ compiler/i386/cpupara.pas (working copy) @@ -522,7 +522,7 @@ else begin if paralen=0 then - internalerror(200501163); + internalerror(2005011606); firstparaloc:=true; while (paralen>0) do begin @@ -688,7 +688,7 @@ else begin if paralen=0 then - internalerror(200501163); + internalerror(2005011607); firstparaloc:=true; while (paralen>0) do begin Index: compiler/i386/hlcgcpu.pas =================================================================== --- compiler/i386/hlcgcpu.pas (revision 47063) +++ compiler/i386/hlcgcpu.pas (working copy) @@ -352,7 +352,7 @@ href : treference; begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061312); { call/jmp vmtoffs(%reg) ; method offs } reference_reset_base(href,voidpointertype,reg,tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber),ctempposinvalid,4,[]); list.concat(taicpu.op_ref(op,S_L,href)); @@ -364,7 +364,7 @@ href : treference; begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061313); { mov vmtoffs(%eax),%eax ; method offs } reference_reset_base(href,voidpointertype,NR_EAX,tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber),ctempposinvalid,4,[]); cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_EAX); Index: compiler/i386/n386add.pas =================================================================== --- compiler/i386/n386add.pas (revision 47063) +++ compiler/i386/n386add.pas (working copy) @@ -141,7 +141,7 @@ else begin { everything should be handled in pass_1 (JM) } - internalerror(200109051); + internalerror(2001090505); end; end; @@ -409,7 +409,7 @@ end; end; else - internalerror(200203282); + internalerror(2002032803); end; end; @@ -622,7 +622,7 @@ else if (hreg2<>NR_NO) then emit_reg_reg(A_ADD,S_L,hreg2,NR_EDX) else - InternalError(2014011604); + InternalError(2014011601); { Result is now in EDX:EAX. Copy it to virtual registers. } set_mul_result_location; Index: compiler/i386/n386flw.pas =================================================================== --- compiler/i386/n386flw.pas (revision 47063) +++ compiler/i386/n386flw.pas (working copy) @@ -209,7 +209,7 @@ begin selfsym:=tparavarsym(current_procinfo.procdef.parast.Find('self')); if (selfsym=nil) or (selfsym.typ<>paravarsym) then - InternalError(2011123101); + InternalError(2011123102); selfsym.varregable:=vr_none; end; end; Index: compiler/i386/n386mat.pas =================================================================== --- compiler/i386/n386mat.pas (revision 47063) +++ compiler/i386/n386mat.pas (working copy) @@ -71,7 +71,7 @@ begin if is_64bitint(resultdef) then { should be handled in pass_1 (JM) } - internalerror(200109052); + internalerror(2001090507); if (nodetype=divn) and (right.nodetype=ordconstn) and is_signed(left.resultdef) and Index: compiler/i8086/cgcpu.pas =================================================================== --- compiler/i8086/cgcpu.pas (revision 47063) +++ compiler/i8086/cgcpu.pas (working copy) @@ -261,7 +261,7 @@ OP_OR,OP_XOR: {do nothing}; else - InternalError(2013100701); + InternalError(2013100704); end; end else if aint(a and $FFFF) = aint($FFFF) then @@ -274,7 +274,7 @@ OP_XOR: list.concat(taicpu.op_reg(A_NOT,S_W,reg)); else - InternalError(2013100701); + InternalError(2013100705); end; end else @@ -289,7 +289,7 @@ OP_OR,OP_XOR: {do nothing}; else - InternalError(2013100701); + InternalError(2013100706); end; end else if aint(a shr 16) = aint($FFFF) then @@ -302,7 +302,7 @@ OP_XOR: list.concat(taicpu.op_reg(A_NOT,S_W,GetNextReg(reg))); else - InternalError(2013100701); + InternalError(2013100707); end; end else @@ -450,7 +450,7 @@ list.concat(taicpu.op_reg_reg(A_OR,S_W,tmpreg,GetNextReg(reg))); end; else - internalerror(2017040301); + internalerror(2017040302); end; ungetcpuregister(list,NR_CX); @@ -522,7 +522,7 @@ cg.a_reg_dealloc(list,NR_DEFAULTFLAGS); end; else - internalerror(2013030903); + internalerror(2013030907); end; end; end; @@ -739,7 +739,7 @@ else { OP_MUL should be handled specifically in the code } { generator because of the silly register usage restraints } - internalerror(200109225); + internalerror(2001092208); end else inherited a_op_const_reg(list, Op, size, a, reg); @@ -801,7 +801,7 @@ OP_OR,OP_XOR: {do nothing}; else - InternalError(2013100701); + InternalError(2013100708); end; end else if aint(a and $FFFF) = aint($FFFF) then @@ -814,7 +814,7 @@ OP_XOR: list.concat(taicpu.op_ref(A_NOT,S_W,tmpref)); else - InternalError(2013100701); + InternalError(2013100709); end; end else @@ -830,7 +830,7 @@ OP_OR,OP_XOR: {do nothing}; else - InternalError(2013100701); + InternalError(2013100710); end; end else if aint(a shr 16) = aint($FFFF) then @@ -843,7 +843,7 @@ OP_XOR: list.concat(taicpu.op_ref(A_NOT,S_W,tmpref)); else - InternalError(2013100701); + InternalError(2013100711); end; end else @@ -991,7 +991,7 @@ cg.a_reg_dealloc(list,NR_DEFAULTFLAGS); end; else - internalerror(2013030903); + internalerror(2013030908); end; ai:=Taicpu.Op_Sym(A_LOOP,S_W,hl_loop_start); @@ -1051,7 +1051,7 @@ ungetcpuregister(list,NR_CX); end; else - internalerror(2013030901); + internalerror(2013030905); end; end else @@ -1069,7 +1069,7 @@ check_register_size(size,reg); if size in [OS_64, OS_S64] then - internalerror(2013030902); + internalerror(2013030906); if size in [OS_32, OS_S32] then begin @@ -1123,7 +1123,7 @@ OP_MUL,OP_DIV,OP_IDIV: { special stuff, needs separate handling inside code } { generator } - internalerror(200109238); + internalerror(2001092304); OP_ADD,OP_SUB,OP_XOR,OP_OR,OP_AND: begin get_32bit_ops(op, op1, op2); @@ -1180,7 +1180,7 @@ cg.a_reg_dealloc(list,NR_DEFAULTFLAGS); end; else - internalerror(2013030903); + internalerror(2013030909); end; ai:=Taicpu.Op_Sym(A_LOOP,S_W,hl_loop_start); @@ -1215,7 +1215,7 @@ make_simple_ref(list,tmpref); if size in [OS_64, OS_S64] then - internalerror(2013050803); + internalerror(2013050805); if size in [OS_32, OS_S32] then begin @@ -1279,7 +1279,7 @@ a_load_reg_ref(list,paraloc^.size,paraloc^.size,r,ref); end; else - internalerror(2002071004); + internalerror(2002071006); end; end; var @@ -1296,16 +1296,16 @@ if cgpara.location^.Next = nil then begin if tcgsize2size[cgpara.location^.size] <> 4 then - internalerror(2013031101); + internalerror(2013031103); end else begin if tcgsize2size[cgpara.location^.size] <> 2 then - internalerror(2013031101); + internalerror(2013031104); if tcgsize2size[cgpara.location^.Next^.size] <> 2 then - internalerror(2013031101); + internalerror(2013031105); if cgpara.location^.Next^.Next <> nil then - internalerror(2013031101); + internalerror(2013031106); end; if tcgsize2size[cgpara.size]>cgpara.alignment then @@ -1354,23 +1354,23 @@ if tcgsize2size[cgpara.Size] > 2 then begin if tcgsize2size[cgpara.Size] <> 4 then - internalerror(2013031101); + internalerror(2013031107); if cgpara.location^.Next = nil then begin if tcgsize2size[cgpara.location^.size] <> 4 then - internalerror(2013031101); + internalerror(2013031108); end else begin if tcgsize2size[cgpara.location^.size] <> 2 then - internalerror(2013031101); + internalerror(2013031109); if tcgsize2size[cgpara.location^.Next^.size] <> 2 then - internalerror(2013031101); + internalerror(2013031110); if cgpara.location^.Next^.Next <> nil then - internalerror(2013031101); + internalerror(2013031111); end; if (cgpara.alignment <> 4) and (cgpara.alignment <> 2) then - internalerror(2013031101); + internalerror(2013031112); push_const(list,OS_16,a shr 16); push_const(list,OS_16,a and $FFFF); @@ -1501,19 +1501,19 @@ if cgpara.location^.Next = nil then begin if tcgsize2size[cgpara.location^.size] <> 4 then - internalerror(2014032401); + internalerror(2014032404); end else begin if tcgsize2size[cgpara.location^.size] <> 2 then - internalerror(2014032401); + internalerror(2014032405); if tcgsize2size[cgpara.location^.Next^.size] <> 2 then - internalerror(2014032401); + internalerror(2014032406); if cgpara.location^.Next^.Next <> nil then - internalerror(2014032401); + internalerror(2014032407); end; if cgpara.alignment > 4 then - internalerror(2014032401); + internalerror(2014032408); if segment<>NR_NO then begin @@ -1764,7 +1764,7 @@ check_register_size(tosize,reg); if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then - internalerror(2011021307); + internalerror(2011021302); { if tcgsize2size[tosize]<=tcgsize2size[fromsize] then fromsize:=tosize;} @@ -1919,7 +1919,7 @@ add_mov(taicpu.op_reg_reg(A_MOV, S_B, reg1, reg2)); end else - internalerror(2013030210); + internalerror(2013030203); OS_16,OS_S16: case fromsize of OS_8: @@ -1955,7 +1955,7 @@ add_mov(taicpu.op_reg_reg(A_MOV, S_W, reg1, reg2)); end else - internalerror(2013030212); + internalerror(2013030205); end; OS_32,OS_S32: case fromsize of @@ -2013,10 +2013,10 @@ end; end; else - internalerror(2013030213); + internalerror(2013030206); end; else - internalerror(2013030211); + internalerror(2013030204); end; end; end; @@ -2176,7 +2176,7 @@ a_jmp_cond(list, OC_B, l_skip); end; else - internalerror(2014010305); + internalerror(2014010321); end; end; @@ -2204,7 +2204,7 @@ OC_A: a_jmp_cond(list, OC_A, l_target); else - internalerror(2014010306); + internalerror(2014010322); end; end; @@ -2276,7 +2276,7 @@ list.concat(Taicpu.op_const_reg(A_SBB, S_W, 0, reg)); end; else - internalerror(2013123101); + internalerror(2013123102); end; a_load_reg_reg(list,tmpsize,size,reg,reg); end @@ -2297,7 +2297,7 @@ list.concat(Taicpu.op_const_reg(A_MOV, S_W, 0, reg)); end; else - internalerror(2013123101); + internalerror(2013123103); end; current_asmdata.getjumplabel(hl_skip); @@ -2682,7 +2682,7 @@ hsym:=tsym(procdef.parast.Find('self')); if not(assigned(hsym) and (hsym.typ=paravarsym)) then - internalerror(200305251); + internalerror(2003052502); paraloc:=tparavarsym(hsym).paraloc[callerside].location; with paraloc^ do begin @@ -2715,7 +2715,7 @@ end; end else - internalerror(200309189); + internalerror(2003091802); end; paraloc:=next; end; @@ -2753,7 +2753,7 @@ op2:=A_AND; end; else - internalerror(200203241); + internalerror(2002032403); end; end; Index: compiler/i8086/cpupara.pas =================================================================== --- compiler/i8086/cpupara.pas (revision 47063) +++ compiler/i8086/cpupara.pas (working copy) @@ -120,7 +120,7 @@ function tcpuparamanager.asm_result_var(def:tdef;pd:tabstractprocdef):boolean; begin if not(po_assembler in pd.procoptions) then - internalerror(2018021501); + internalerror(2018021502); result:=ret_in_param(def,pd); end; @@ -495,7 +495,7 @@ else begin if paralen=0 then - internalerror(200501163); + internalerror(2005011604); firstparaloc:=true; while (paralen>0) do begin @@ -691,7 +691,7 @@ else begin if paralen=0 then - internalerror(200501163); + internalerror(2005011605); firstparaloc:=true; while (paralen>0) do begin Index: compiler/i8086/hlcgcpu.pas =================================================================== --- compiler/i8086/hlcgcpu.pas (revision 47063) +++ compiler/i8086/hlcgcpu.pas (working copy) @@ -423,7 +423,7 @@ size:=voidpointertype; if is_hugepointer(size) then - internalerror(2015111201) + internalerror(2015111204) else if is_farpointer(size) then cg.a_op_const_reg(list,Op,OS_16,a,reg) else @@ -581,7 +581,7 @@ srcseg: TRegister; begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061306); if current_settings.x86memorymodel in x86_far_data_models then srcseg:=NR_ES else Index: compiler/i8086/n8086add.pas =================================================================== --- compiler/i8086/n8086add.pas (revision 47063) +++ compiler/i8086/n8086add.pas (working copy) @@ -106,7 +106,7 @@ niln: lv:=0; else - internalerror(2002080202); + internalerror(2002080201); end; case rt of ordconstn: @@ -116,7 +116,7 @@ niln: rv:=0; else - internalerror(2002080203); + internalerror(2002080204); end; case nodetype of @@ -138,7 +138,7 @@ if (rt=pointerconstn) then begin if not(nf_has_pointerdiv in flags) then - internalerror(2008030101); + internalerror(2008030102); { todo: implement pointer-pointer as well } internalerror(2014040607); //t := cpointerconstnode.create(qword(v),resultdef); @@ -240,7 +240,7 @@ else begin { everything should be handled in pass_1 (JM) } - internalerror(200109051); + internalerror(2001090503); end; end; @@ -456,7 +456,7 @@ else if (left.resultdef.typ<>pointerdef) and (right.resultdef.typ=pointerdef) then pointernode:=right else - internalerror(2014040601); + internalerror(2014040608); if not (nodetype in [addn,subn]) then internalerror(2014040602); @@ -927,7 +927,7 @@ end; end; else - internalerror(200203282); + internalerror(2002032801); end; end; end; Index: compiler/i8086/n8086inl.pas =================================================================== --- compiler/i8086/n8086inl.pas (revision 47063) +++ compiler/i8086/n8086inl.pas (working copy) @@ -178,7 +178,7 @@ { find proc field in methodpointer record } hsym:=tfieldvarsym(trecorddef(procpointertype).symtable.Find('proc')); if not assigned(hsym) then - internalerror(200412041); + internalerror(2004120404); { Load tmehodpointer(left).proc } result:=csubscriptnode.create( hsym, @@ -346,7 +346,7 @@ addvalue:=tpointerdef(tcallparanode(left).left.resultdef).pointeddef.size; end; else - internalerror(10081); + internalerror(2020100815); end; { second_ argument specified?, must be a s16bit in register } if assigned(tcallparanode(left).right) then Index: compiler/i8086/n8086ld.pas =================================================================== --- compiler/i8086/n8086ld.pas (revision 47063) +++ compiler/i8086/n8086ld.pas (working copy) @@ -134,7 +134,7 @@ { make sure hregister can't allocate the register necessary for the parameter } pvd:=search_system_type('TRELOCATETHREADVARHANDLER').typedef; if pvd.typ<>procvardef then - internalerror(2012120901); + internalerror(2012120902); paraloc1.init; paramanager.getcgtempparaloc(current_asmdata.CurrAsmList,tprocvardef(pvd),1,paraloc1); hregister:=hlcg.getaddressregister(current_asmdata.CurrAsmList,pvd); Index: compiler/i8086/n8086mat.pas =================================================================== --- compiler/i8086/n8086mat.pas (revision 47063) +++ compiler/i8086/n8086mat.pas (working copy) @@ -114,7 +114,7 @@ if is_64bitint(resultdef) or is_32bitint(resultdef) then { should be handled in pass_1 (JM) } - internalerror(200109052); + internalerror(2001090506); { put numerator in register } location_reset(location,LOC_REGISTER,def_cgsize(resultdef)); hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,resultdef,false); Index: compiler/i8086/n8086mem.pas =================================================================== --- compiler/i8086/n8086mem.pas (revision 47063) +++ compiler/i8086/n8086mem.pas (working copy) @@ -96,7 +96,7 @@ location_reset(location,LOC_REGISTER,OS_16); location.register:=hlcg.getaddressregister(current_asmdata.CurrAsmList,voidnearpointertype); if not(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then - internalerror(2015103001); + internalerror(2015103003); hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,voidnearpointertype,left.location.reference,location.register); end else @@ -151,7 +151,7 @@ cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_16,(left.location.value shr 16) and $FFFF,location.reference.segment); end; else - internalerror(200507031); + internalerror(2005070302); end; if (cs_use_heaptrc in current_settings.globalswitches) and (cs_checkpointer in current_settings.localswitches) and @@ -165,7 +165,7 @@ begin if not searchsym_in_named_module('HEAPTRC','CHECKPOINTER',sym,st) or (sym.typ<>procsym) then - internalerror(2012010601); + internalerror(2012010603); pd:=tprocdef(tprocsym(sym).ProcdefList[0]); paraloc1.init; paramanager.getcgtempparaloc(current_asmdata.CurrAsmList,pd,1,paraloc1); Index: compiler/i8086/symcpu.pas =================================================================== --- compiler/i8086/symcpu.pas (revision 47063) +++ compiler/i8086/symcpu.pas (working copy) @@ -250,7 +250,7 @@ else if p is tcpuprocvardef then result:=tcpuprocvardef(p).is_far else - internalerror(2014041301); + internalerror(2014041303); end; { true if p is a far proc var } Index: compiler/jvm/agjasmin.pas =================================================================== --- compiler/jvm/agjasmin.pas (revision 47063) +++ compiler/jvm/agjasmin.pas (working copy) @@ -865,7 +865,7 @@ kindname: ansistring; begin if not(obj.owner.defowner.typ in [objectdef,recorddef]) then - internalerror(2011021701); + internalerror(2011021704); { Nested classes in the Pascal sense are equivalent to "static" inner classes in Java -- will be changed when support for Java-style non-static classes is added } Index: compiler/jvm/hlcgcpu.pas =================================================================== --- compiler/jvm/hlcgcpu.pas (revision 47063) +++ compiler/jvm/hlcgcpu.pas (working copy) @@ -756,7 +756,7 @@ end; end; else - internalerror(2011081801); + internalerror(2011081802); end; end; end; @@ -843,7 +843,7 @@ decstack(list,2); end; else - internalerror(2010120538); + internalerror(2010120505); end; end; @@ -1618,7 +1618,7 @@ s64real: opc:=a_dreturn; else - internalerror(2011010213); + internalerror(2011010202); end; else opc:=a_areturn; @@ -2429,7 +2429,7 @@ exit; selfpara:=tparavarsym(current_procinfo.procdef.parast.find('self')); if not assigned(selfpara) then - internalerror(2011033001); + internalerror(2011033002); selfreg:=getaddressregister(list,selfpara.vardef); a_load_loc_reg(list,obj,obj,selfpara.localloc,selfreg); cgutils.reference_reset_base(ref,selfreg,0,ctempposinvalid,1,[]); Index: compiler/jvm/jvmdef.pas =================================================================== --- compiler/jvm/jvmdef.pas (revision 47063) +++ compiler/jvm/jvmdef.pas (working copy) @@ -449,7 +449,7 @@ errdef: tdef; begin if not jvmtryencodetype(def,result,false,errdef) then - internalerror(2011012205); + internalerror(2011012201); primitivetype:=false; if length(result)=1 then begin @@ -463,7 +463,7 @@ 'F': result:='float'; 'D': result:='double'; else - internalerror(2011012206); + internalerror(2011012203); end; primitivetype:=true; end Index: compiler/jvm/njvmcnv.pas =================================================================== --- compiler/jvm/njvmcnv.pas (revision 47063) +++ compiler/jvm/njvmcnv.pas (working copy) @@ -1021,7 +1021,7 @@ fsym:=tfieldvarsym(search_struct_member(tcpuprocvardef(fromdef).classdef,'METHOD')); if not assigned(fsym) or (fsym.typ<>fieldvarsym) then - internalerror(2011072414); + internalerror(2011072401); result:=csubscriptnode.create(fsym,left); left:=nil; end; Index: compiler/jvm/njvmmem.pas =================================================================== --- compiler/jvm/njvmmem.pas (revision 47063) +++ compiler/jvm/njvmmem.pas (working copy) @@ -263,7 +263,7 @@ end; end else - internalerror(2011072506); + internalerror(2011072503); end else if (left.resultdef.typ=procdef) then begin @@ -334,7 +334,7 @@ vs:=search_struct_member(tobjectdef(left.resultdef),'GETCLASS'); if not assigned(vs) or (tsym(vs).typ<>procsym) then - internalerror(2011041901); + internalerror(2011041903); result:=ccallnode.create(nil,tprocsym(vs),vs.owner,left,[],nil); inserttypeconv_explicit(result,resultdef); { reused } @@ -391,7 +391,7 @@ psym:=search_struct_member(tabstractrecorddef(stringclass),'CHARAT'); if not assigned(psym) or (psym.typ<>procsym) then - internalerror(2011031501); + internalerror(2011031502); { Pascal strings are 1-based, Java strings 0-based } result:=ccallnode.create(ccallparanode.create( caddnode.create(subn,right,genintconstnode(1)),nil),tprocsym(psym), Index: compiler/jvm/njvmtcon.pas =================================================================== --- compiler/jvm/njvmtcon.pas (revision 47063) +++ compiler/jvm/njvmtcon.pas (working copy) @@ -197,7 +197,7 @@ if (tstringconstnode(n).cst_type in [cst_unicodestring,cst_widestring]) then inserttypeconv(n,getansistringdef); if n.nodetype<>stringconstn then - internalerror(2010033003); + internalerror(2010033010); ca:=pbyte(tstringconstnode(n).value_str); { For tp7 the maximum lentgh can be 255 } if (m_tp7 in current_settings.modeswitches) and @@ -214,7 +214,7 @@ begin inserttypeconv(n,cansichartype); if not is_constcharnode(n) then - internalerror(2010033001); + internalerror(2010033007); ch[0]:=chr(tordconstnode(n).value.uvalue and $ff); ca:=@ch; len:=1; Index: compiler/jvm/pjvm.pas =================================================================== --- compiler/jvm/pjvm.pas (revision 47063) +++ compiler/jvm/pjvm.pas (working copy) @@ -267,11 +267,11 @@ pd.synthetickind:=tsk_jvm_enum_fpcordinal; { add static class method to convert an ordinal to the corresponding enum } if not str_parse_method_dec('function FPCValueOf(__fpc_int: longint): __FPC_TEnumClassAlias; static;',potype_function,true,enumclass,pd) then - internalerror(2011062402); + internalerror(2011062403); pd.synthetickind:=tsk_jvm_enum_fpcvalueof; { similar (instance) function for use in set factories; implements FpcEnumValueObtainable interface } if not str_parse_method_dec('function fpcGenericValueOf(__fpc_int: longint): JLEnum;',potype_function,false,enumclass,pd) then - internalerror(2011062402); + internalerror(2011062404); pd.synthetickind:=tsk_jvm_enum_fpcvalueof; { insert "public static valueOf(string): tenumclass" that returns tenumclass(inherited valueOf(tenumclass,string)) } @@ -417,7 +417,7 @@ old_current_structdef:=current_structdef; current_structdef:=pvclass; if not str_parse_method_dec('constructor Create(__intf:'+pvintf.objextname^+');overload;',potype_constructor,false,pvclass,methoddef) then - internalerror(2011092401); + internalerror(2011092402); methoddef.synthetickind:=tsk_jvm_procvar_intconstr; methoddef.skpara:=def; current_structdef:=old_current_structdef; Index: compiler/llvm/aasmllvm.pas =================================================================== --- compiler/llvm/aasmllvm.pas (revision 47063) +++ compiler/llvm/aasmllvm.pas (working copy) @@ -671,7 +671,7 @@ 2: result:=oper[1]^.def; else - internalerror(2013110105); + internalerror(2013110111); end; end; la_fence, Index: compiler/llvm/agllvm.pas =================================================================== --- compiler/llvm/agllvm.pas (revision 47063) +++ compiler/llvm/agllvm.pas (working copy) @@ -307,7 +307,7 @@ if ref.offset<>0 then result:=result+'offset='+tostr(ref.offset); result:=result+')**'; - internalerror(2013060225); + internalerror(2013060203); end; if ref.base<>NR_NO then result:=result+getregisterstring(ref.base) @@ -454,7 +454,7 @@ else getopstr:='null'; if o.ref^.offset<>0 then - internalerror(2013060223); + internalerror(2013060202); end else getopstr:=getreferencestring(o.ref^,refwithalign); @@ -883,7 +883,7 @@ aitrealconst_s64comp: writer.AsmWriteLn(asminfo^.comment+'value: '+extended2str(tai_realconst(hp).value.s64compval)); else - internalerror(2014050604); + internalerror(2014050603); end; internalerror(2016120202); end; @@ -960,7 +960,7 @@ } end; else - internalerror(200704251); + internalerror(2007042504); end; end; @@ -1378,7 +1378,7 @@ begin { must only appear as an operand } if fdecllevel=0 then - internalerror(2019050110); + internalerror(2019050101); writer.AsmWrite('!'); writer.AsmWrite(tai_llvmmetadatareferenceoperand(hp).id); writer.AsmWrite(' !'); Index: compiler/llvm/hlcgllvm.pas =================================================================== --- compiler/llvm/hlcgllvm.pas (revision 47063) +++ compiler/llvm/hlcgllvm.pas (working copy) @@ -270,7 +270,7 @@ LOC_REFERENCE,LOC_CREFERENCE: begin if assigned(location^.next) then - internalerror(2010052906); + internalerror(2010052901); reference_reset_base(ref,cpointerdef.getreusable(size),location^.reference.index,location^.reference.offset,ctempposinvalid,newalignment(cgpara.alignment,cgpara.intsize-sizeleft),[]); if (def_cgsize(size)<>OS_NO) and (size.size=sizeleft) and @@ -295,11 +295,11 @@ OS_NO: a_loadmm_ref_reg(list,location^.def,location^.def,tmpref,location^.register,nil); else - internalerror(2010053101); + internalerror(2010053105); end; end else - internalerror(2010053111); + internalerror(2010053107); end; inc(totaloffset,tcgsize2size[location^.size]); dec(sizeleft,tcgsize2size[location^.size]); @@ -685,7 +685,7 @@ begin if (fromsize=llvm_metadatatype) or (tosize=llvm_metadatatype) then - internalerror(2019122802); + internalerror(2019122812); sref:=make_simple_ref(list,ref,tosize); hreg:=register; (* typecast the pointer to the value instead of the value itself if @@ -758,7 +758,7 @@ begin if (fromsize=llvm_metadatatype) or (tosize=llvm_metadatatype) then - internalerror(2019122801); + internalerror(2019122805); op:=llvmconvop(fromsize,tosize,true); { converting from pointer to something else and vice versa is only possible via an intermediate pass to integer. Same for "something else" Index: compiler/llvm/llvmdef.pas =================================================================== --- compiler/llvm/llvmdef.pas (revision 47063) +++ compiler/llvm/llvmdef.pas (working copy) @@ -224,7 +224,7 @@ begin { todo: update once we support vectors } if not(toregtyp in [R_FPUREGISTER,R_MMREGISTER]) then - internalerror(2014062203); + internalerror(2014062202); if tobytesize<frombytesize then result:=la_fptrunc else Index: compiler/llvm/llvmpara.pas =================================================================== --- compiler/llvm/llvmpara.pas (revision 47063) +++ compiler/llvm/llvmpara.pas (working copy) @@ -75,7 +75,7 @@ procedure tllvmparamanager.getcgtempparaloc(list: TAsmList; pd: tabstractprocdef; nr: longint; var cgpara: tcgpara); begin if (nr<1) or (nr>pd.paras.count) then - InternalError(2015040401); + InternalError(2015040402); pd.init_paraloc_info(callerside); createtempparaloc(list,pd.proccalloption,tparavarsym(pd.paras[nr-1]),true,cgpara); end; @@ -256,7 +256,7 @@ not(po_assembler in p.procoptions)) then begin if not(paraloc^.loc in [LOC_REGISTER,LOC_FPUREGISTER,LOC_MMREGISTER]) then - internalerror(2019011902); + internalerror(2019011901); reducetosingleregparaloc(paraloc,result.def,paraloc^.register); end; end; Index: compiler/llvm/llvmpi.pas =================================================================== --- compiler/llvm/llvmpi.pas (revision 47063) +++ compiler/llvm/llvmpi.pas (working copy) @@ -408,7 +408,7 @@ begin result:=TAsmLabel(fexceptlabelstack.last); if not assigned(result) then - internalerror(2016121703); + internalerror(2016121706); end; Index: compiler/llvm/llvmtype.pas =================================================================== --- compiler/llvm/llvmtype.pas (revision 47063) +++ compiler/llvm/llvmtype.pas (working copy) @@ -685,9 +685,9 @@ dbg_state_written: continue; dbg_state_writing: - internalerror(200610052); + internalerror(2006100501); dbg_state_unused: - internalerror(200610053); + internalerror(2006100505); dbg_state_used: appenddef(current_asmdata.asmlists[al_start],def) else Index: compiler/llvm/nllvmmem.pas =================================================================== --- compiler/llvm/nllvmmem.pas (revision 47063) +++ compiler/llvm/nllvmmem.pas (working copy) @@ -244,7 +244,7 @@ exit; end; if (l>8*sizeof(aint)) then - internalerror(200608051); + internalerror(2006080502); { adjust the index by subtracting the lower bound of the array and adding any constant adjustments } Index: compiler/llvm/nllvmtcon.pas =================================================================== --- compiler/llvm/nllvmtcon.pas (revision 47063) +++ compiler/llvm/nllvmtcon.pas (working copy) @@ -469,7 +469,7 @@ if not assigned(ll.lab) then begin if ll.ofs<>0 then - internalerror(2015030701); + internalerror(2015030703); inherited; exit; end; Index: compiler/m68k/cgcpu.pas =================================================================== --- compiler/m68k/cgcpu.pas (revision 47063) +++ compiler/m68k/cgcpu.pas (working copy) @@ -1194,7 +1194,7 @@ OP_DIV, OP_IDIV: begin - internalerror(20020816); + internalerror(2002081601); end; OP_MUL, OP_IMUL: @@ -1294,7 +1294,7 @@ move_if_needed(list, size, scratch_reg, reg); end; else - internalerror(20020729); + internalerror(2002072901); end; end; @@ -1425,7 +1425,7 @@ OP_DIV, OP_IDIV : begin - internalerror(20020816); + internalerror(2002081602); end; OP_MUL, OP_IMUL: @@ -1471,7 +1471,7 @@ move_if_needed(list, size, hreg2, dst); end; else - internalerror(20020729); + internalerror(2002072902); end; end; @@ -2212,7 +2212,7 @@ OS_16: begin if (isaddressregister(reg)) then - internalerror(2015031502); + internalerror(2015031503); //list.concat(tai_comment.create(strpnew('zero extend word'))); list.concat(taicpu.op_const_reg(A_AND,S_L,$FFFF,reg)); end; @@ -2577,10 +2577,10 @@ { this is handled in 1st pass for 32-bit cpus (helper call) } OP_IDIV,OP_DIV, OP_IMUL,OP_MUL: - internalerror(2002081701); + internalerror(2002081703); { this is also handled in 1st pass for 32-bit cpus (helper call) } OP_SAR,OP_SHL,OP_SHR: - internalerror(2002081702); + internalerror(2002081704); { these should have been handled already by earlier passes } OP_NOT,OP_NEG: internalerror(2012110403); Index: compiler/m68k/cpupara.pas =================================================================== --- compiler/m68k/cpupara.pas (revision 47063) +++ compiler/m68k/cpupara.pas (working copy) @@ -699,7 +699,7 @@ end; end else - internalerror(200410231); + internalerror(2004102304); create_funcretloc_info(p,side); end; Index: compiler/m68k/n68kadd.pas =================================================================== --- compiler/m68k/n68kadd.pas (revision 47063) +++ compiler/m68k/n68kadd.pas (working copy) @@ -410,7 +410,7 @@ cgop:=OP_IMUL; end; else - internalerror(2013120104); + internalerror(2013120111); end; pass_left_right; Index: compiler/m68k/n68kcal.pas =================================================================== --- compiler/m68k/n68kcal.pas (revision 47063) +++ compiler/m68k/n68kcal.pas (working copy) @@ -81,7 +81,7 @@ inc(pushedparasize,2); { kludge, trap code should be a hidden para instead... } end else - internalerror(2016100301); + internalerror(2016100302); end; system_m68k_amiga: begin Index: compiler/m68k/n68kmat.pas =================================================================== --- compiler/m68k/n68kmat.pas (revision 47063) +++ compiler/m68k/n68kmat.pas (working copy) @@ -218,7 +218,7 @@ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_FNEG,fpuregopsize,left.location.register,location.register)); end; else - internalerror(200306021); + internalerror(2003060202); end; end; Index: compiler/m68k/n68kmem.pas =================================================================== --- compiler/m68k/n68kmem.pas (revision 47063) +++ compiler/m68k/n68kmem.pas (working copy) @@ -161,7 +161,7 @@ exit; end; if (l > 8*sizeof(aint)) then - internalerror(200608051); + internalerror(2006080503); sref.ref := location.reference; hreg := cg.getintregister(current_asmdata.CurrAsmList,OS_ADDR); cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SUB,OS_INT,tarraydef(left.resultdef).lowrange,maybe_const_reg,hreg); Index: compiler/mips/aasmcpu.pas =================================================================== --- compiler/mips/aasmcpu.pas (revision 47063) +++ compiler/mips/aasmcpu.pas (working copy) @@ -453,11 +453,11 @@ R_SUBFD : result:=taicpu.op_reg_ref(A_LDC1,r,ref); else - internalerror(200401042); + internalerror(2004010418); end; end else - internalerror(200401041); + internalerror(2004010408); end; end; @@ -475,11 +475,11 @@ R_SUBFD : result:=taicpu.op_reg_ref(A_SDC1,r,ref); else - internalerror(200401042); + internalerror(2004010419); end; end else - internalerror(200401041); + internalerror(2004010409); end; end; Index: compiler/mips/cgcpu.pas =================================================================== --- compiler/mips/cgcpu.pas (revision 47063) +++ compiler/mips/cgcpu.pas (working copy) @@ -630,7 +630,7 @@ if (cs_create_pic in current_settings.moduleswitches) then begin if not (pi_needs_got in current_procinfo.flags) then - InternalError(2013060103); + InternalError(2013060104); { For PIC global symbols offset must be handled separately. Otherwise (non-PIC or local symbols) offset can be encoded into relocation even if exceeds 16 bits. } Index: compiler/mips/cpuelf.pas =================================================================== --- compiler/mips/cpuelf.pas (revision 47063) +++ compiler/mips/cpuelf.pas (working copy) @@ -1069,7 +1069,7 @@ else begin writeln(objsec.fullname,'+',objreloc.dataoffset,' ',objreloc.ftype); - internalerror(200604014); + internalerror(2006040106); end; end else { not relocsec.Used } Index: compiler/mips/cpugas.pas =================================================================== --- compiler/mips/cpugas.pas (revision 47063) +++ compiler/mips/cpugas.pas (working copy) @@ -177,7 +177,7 @@ top_ref: getopstr := getreferencestring(ref^); else - internalerror(10001); + internalerror(2020100809); end; end; Index: compiler/mips/hlcgcpu.pas =================================================================== --- compiler/mips/hlcgcpu.pas (revision 47063) +++ compiler/mips/hlcgcpu.pas (working copy) @@ -249,7 +249,7 @@ list.concat(taicpu.op_reg_ref(A_LW,NR_VMT,href)); if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061303); { TODO: case of large VMT is not handled } { We have no reason not to use $t9 even in non-PIC mode. } Index: compiler/mips/ncpucnv.pas =================================================================== --- compiler/mips/ncpucnv.pas (revision 47063) +++ compiler/mips/ncpucnv.pas (working copy) @@ -185,7 +185,7 @@ end; end; else - internalerror(200410031); + internalerror(2004100306); end; end; end; Index: compiler/mips/ncpuinln.pas =================================================================== --- compiler/mips/ncpuinln.pas (revision 47063) +++ compiler/mips/ncpuinln.pas (working copy) @@ -102,7 +102,7 @@ s64real: current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_ABS_d, location.Register, left.location.Register)); else - internalerror(200410031); + internalerror(2004100305); end; end; Index: compiler/mips/racpugas.pas =================================================================== --- compiler/mips/racpugas.pas (revision 47063) +++ compiler/mips/racpugas.pas (working copy) @@ -251,7 +251,7 @@ OPR_LOCAL: inc(oper.opr.localsymofs,l); else - InternalError(12345); + InternalError(2020100817); end; GotPlus:=(prevasmtoken=AS_PLUS) or (prevasmtoken=AS_MINUS); @@ -291,7 +291,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092006); end; Consume(AS_RPAREN); gotplus:=false; @@ -380,7 +380,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092007); end; end end; Index: compiler/nadd.pas =================================================================== --- compiler/nadd.pas (revision 47063) +++ compiler/nadd.pas (working copy) @@ -2891,7 +2891,7 @@ { find proc field in methodpointer record } hsym:=tfieldvarsym(trecorddef(methodpointertype).symtable.Find('proc')); if not assigned(hsym) then - internalerror(200412043); + internalerror(2004120405); { Compare tmehodpointer(left).proc } right:=csubscriptnode.create( hsym, Index: compiler/nbas.pas =================================================================== --- compiler/nbas.pas (revision 47063) +++ compiler/nbas.pas (working copy) @@ -1666,7 +1666,7 @@ begin temp:=ttempcreatenode(nodeppuidxget(tempidx)); if temp.nodetype<>tempcreaten then - internalerror(200311075); + internalerror(2003110701); tempinfo:=temp.tempinfo; end; Index: compiler/ncgadd.pas =================================================================== --- compiler/ncgadd.pas (revision 47063) +++ compiler/ncgadd.pas (working copy) @@ -210,7 +210,7 @@ equaln: result:=OC_EQ; unequaln: result:=OC_NE; else - internalerror(2011010412); + internalerror(2011010403); end end; @@ -607,7 +607,7 @@ end; end; else - internalerror(2002072803); + internalerror(2002072804); end; {$endif cpu64bitalu or cpuhighleveltarget} Index: compiler/ncgcal.pas =================================================================== --- compiler/ncgcal.pas (revision 47063) +++ compiler/ncgcal.pas (working copy) @@ -504,7 +504,7 @@ else begin reference_reset(tmpref,0,[]); - internalerror(2016090202); + internalerror(2016090205); end; end; end; Index: compiler/ncgcon.pas =================================================================== --- compiler/ncgcon.pas (revision 47063) +++ compiler/ncgcon.pas (working copy) @@ -312,7 +312,7 @@ { because we hardcode the offset below due to it not being stored in the hashset, check here } if lastlabel.ofs<>datatcb.get_string_symofs(tstringdef(resultdef).stringtype,winlikewidestring) then - internalerror(2012051704); + internalerror(2012051702); end; { no contents of the datatcb itself to concatenate, as we will just return the address of the emitted Index: compiler/ncginl.pas =================================================================== --- compiler/ncginl.pas (revision 47063) +++ compiler/ncginl.pas (working copy) @@ -425,7 +425,7 @@ addvalue:=tpointerdef(tcallparanode(left).left.resultdef).pointeddef.size; end; else - internalerror(10081); + internalerror(2020100814); end; { second_ argument specified?, must be a s32bit in register } if assigned(tcallparanode(left).right) then @@ -678,27 +678,27 @@ } procedure tcginlinenode.second_pi; begin - internalerror(20020718); + internalerror(2002071801); end; procedure tcginlinenode.second_arctan_real; begin - internalerror(20020718); + internalerror(2002071802); end; procedure tcginlinenode.second_abs_real; begin - internalerror(20020718); + internalerror(2002071803); end; procedure tcginlinenode.second_round_real; begin - internalerror(20020718); + internalerror(2002071804); end; procedure tcginlinenode.second_trunc_real; begin - internalerror(20020718); + internalerror(2002071805); end; procedure tcginlinenode.second_int_real; @@ -708,27 +708,27 @@ procedure tcginlinenode.second_sqr_real; begin - internalerror(20020718); + internalerror(2002071806); end; procedure tcginlinenode.second_sqrt_real; begin - internalerror(20020718); + internalerror(2002071807); end; procedure tcginlinenode.second_ln_real; begin - internalerror(20020718); + internalerror(2002071808); end; procedure tcginlinenode.second_cos_real; begin - internalerror(20020718); + internalerror(2002071809); end; procedure tcginlinenode.second_sin_real; begin - internalerror(20020718); + internalerror(2002071810); end; @@ -966,7 +966,7 @@ procedure tcginlinenode.second_popcnt; begin - internalerror(2012082601); + internalerror(2012082602); end; Index: compiler/ncnv.pas =================================================================== --- compiler/ncnv.pas (revision 47063) +++ compiler/ncnv.pas (working copy) @@ -1184,7 +1184,7 @@ with tarraydef(resultdef) do begin if highrange<lowrange then - internalerror(200501051); + internalerror(2005010502); arrsize := highrange-lowrange+1; end; if (left.nodetype = stringconstn) and @@ -2042,7 +2042,7 @@ begin { arr[i] := param_i } if not assigned(elemnode.left) then - internalerror(2017050101); + internalerror(2017050103); addstatement(assstatement, cassignmentnode.create( cvecnode.create( Index: compiler/ngenutil.pas =================================================================== --- compiler/ngenutil.pas (revision 47063) +++ compiler/ngenutil.pas (working copy) @@ -197,7 +197,7 @@ nil)); end else - internalerror(200305108); + internalerror(2003051002); end else if is_object(current_structdef) then Index: compiler/ngtcon.pas =================================================================== --- compiler/ngtcon.pas (revision 47063) +++ compiler/ngtcon.pas (working copy) @@ -1321,7 +1321,7 @@ begin inserttypeconv(n,cunicodestringtype); if n.nodetype<>stringconstn then - internalerror(2010033003); + internalerror(2010033009); ca:=pointer(pcompilerwidestring(tstringconstnode(n).value_str)^.data) end; else @@ -1357,13 +1357,13 @@ begin inserttypeconv(n,cansichartype); if not is_constcharnode(n) then - internalerror(2010033001); + internalerror(2010033006); ch[0]:=chr(tordconstnode(n).value.uvalue and $ff); end; 2: widechar(ch):=widechar(tordconstnode(n).value.uvalue and $ffff); else - internalerror(2010033002); + internalerror(2010033008); end; ca:=@ch; len:=1; Index: compiler/ninl.pas =================================================================== --- compiler/ninl.pas (revision 47063) +++ compiler/ninl.pas (working copy) @@ -486,7 +486,7 @@ def : tdef; begin if not assigned(left) or (left.nodetype<>typen) then - internalerror(2012032101); + internalerror(2012032102); def:=ttypenode(left).typedef; result:=nil; case def.typ of @@ -608,7 +608,7 @@ in_rewrite_typedfile_name: result := ccallnode.createintern('fpc_rewrite_typed_name_iso',left); else - internalerror(2016101501); + internalerror(2016101502); end; end else @@ -1127,7 +1127,7 @@ in_writeln_x: name:='fpc_writeln_end'; else - internalerror(2019050516); + internalerror(2019050501); end; addstatement(Tstatementnode(newstatement),ccallnode.createintern(name,filepara.getcopy)); end; @@ -1500,7 +1500,7 @@ s16bit: exit('smallint'); u16bit: exit('word'); else - internalerror(2013032604); + internalerror(2013032606); end; end else @@ -1509,10 +1509,10 @@ s64bit,s32bit,s16bit,s8bit: exit('sint'); u64bit,u32bit,u16bit,u8bit: exit('uint'); else - internalerror(2013032604); + internalerror(2013032607); end; end; - internalerror(2013032605); + internalerror(2013032608); end; @@ -2082,7 +2082,7 @@ 8: vl:=vl and byte($3f); else - internalerror(2013122302); + internalerror(2013122303); end; if (tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn) then begin @@ -2180,7 +2180,7 @@ 8: vl:=vl and byte($3f); else - internalerror(2013122302); + internalerror(2013122304); end; if (tcallparanode(tcallparanode(left).right).left.nodetype=ordconstn) then begin @@ -2795,7 +2795,7 @@ 8: result:=cordconstnode.create(BsrQWord(QWord(tordconstnode(left).value.uvalue)),resultdef,false); else - internalerror(2017042401); + internalerror(2017042402); end; end; end; @@ -4109,7 +4109,7 @@ end; in_slice_x: - internalerror(2005101501); + internalerror(2005101502); in_ord_x, in_chr_byte: @@ -4119,7 +4119,7 @@ end; in_ofs_x : - internalerror(2000101001); + internalerror(2000101002); in_seg_x : begin @@ -4139,7 +4139,7 @@ in_writeln_x : begin { should be handled by pass_typecheck } - internalerror(200108234); + internalerror(2001082302); end; in_get_frame: begin @@ -4777,7 +4777,7 @@ lowppn:=tcallparanode(tcallparanode(paras).right).left.getcopy; end; else - internalerror(2012100701); + internalerror(2012100703); end; if is_open_array(paradef) then @@ -4789,7 +4789,7 @@ arrayppn:=ctypeconvnode.create_internal(ppn.left,voidpointertype); end else - internalerror(2012100702); + internalerror(2012100704); rttippn:=caddrnode.create_internal(crttinode.create(tstoreddef(resultdef),initrtti,rdt_normal)); Index: compiler/nmat.pas =================================================================== --- compiler/nmat.pas (revision 47063) +++ compiler/nmat.pas (working copy) @@ -460,7 +460,7 @@ if result.resultdef.typ<>orddef then internalerror(2013031701); if resultdef.typ<>orddef then - internalerror(2013031701); + internalerror(2013031702); if torddef(result.resultdef).ordtype <> torddef(resultdef).ordtype then inserttypeconv(result,resultdef); end; @@ -833,7 +833,7 @@ {$elseif defined(cpu16bitalu) or defined(cpu8bitalu)} inserttypeconv(left,get_common_intdef(torddef(left.resultdef),torddef(uinttype),true)); {$else} - internalerror(2013031301); + internalerror(2013031302); {$endif} end end; Index: compiler/ogbase.pas =================================================================== --- compiler/ogbase.pas (revision 47063) +++ compiler/ogbase.pas (working copy) @@ -1492,7 +1492,7 @@ function TObjData.symboldefine(const aname:string;abind:TAsmsymbind;atyp:Tasmsymtype):TObjSymbol; begin if not assigned(CurrObjSec) then - internalerror(200603051); + internalerror(2006030504); result:=CreateSymbol(aname); result.SetAddress(CurrPass,CurrObjSec,abind,atyp); end; @@ -1744,7 +1744,7 @@ if (oso_data in sec.SecOptions) then begin if sec.Data=nil then - internalerror(200403073); + internalerror(2004030707); FWriter.writezeros(sec.dataalignbytes); if sec.Datapos<>FWriter.ObjSize then internalerror(200604031); @@ -2259,7 +2259,7 @@ begin objsym:=TObjSymbol(internalObjData.ObjSymbolList.Find(aname)); if (objsym=nil) or (objsym.ObjSection.ObjData<>internalObjData) then - internalerror(200603041); + internalerror(2006030403); exesym:=TExeSymbol(ExeSymbolList.Find(aname)); if not assigned(exesym) then internalerror(201206301); @@ -2385,7 +2385,7 @@ if indexpos=MAXVAL then begin Comment(V_Error,'Too many values '+avalue); - internalerror(200602254); + internalerror(2006022505); end; len:=bytesize*indexpos; inc(Fvaluesnr); @@ -3466,7 +3466,7 @@ else if assigned(refgrp) then exemap.Add(' References '+refgrp.Name) else - internalerror(200603316); + internalerror(2006033111); end; if assigned(refobjsec) then AddToObjSectionWorkList(refobjsec); @@ -3533,7 +3533,7 @@ if not assigned(vtableexesym) then internalerror(200603315); if not assigned(vtableexesym.vtable) then - internalerror(200603316); + internalerror(2006033112); DoVTableRef(vtableexesym.vtable,vtableidx); end; end; @@ -3631,7 +3631,7 @@ internalerror(200603301); if (objsec.ObjRelocations.Count>0) and not assigned(objsec.data) then - internalerror(200205183); + internalerror(2002051801); DoRelocationFixup(objsec); {for size = 0 data is not valid PM } if assigned(objsec.data) and (objsec.data.size<>objsec.size) then @@ -3685,7 +3685,7 @@ if oso_data in exesec.SecOptions then begin if exesec.DataPos<FWriter.Size then - InternalError(2012103001); + InternalError(2012103002); FWriter.Writezeros(exesec.DataPos-FWriter.Size); for i:=0 to exesec.ObjSectionList.Count-1 do begin @@ -3693,13 +3693,13 @@ if oso_data in objsec.secoptions then begin if not assigned(objsec.data) then - internalerror(200603042); + internalerror(2006030404); dpos:=objsec.MemPos-exesec.MemPos+exesec.DataPos; pad:=dpos-FWriter.Size; { objsection must be within SecAlign bytes from the previous one } if (dpos<FWriter.Size) or (pad>=max(objsec.SecAlign,1)) then - internalerror(200602251); + internalerror(2006022503); FWriter.writeZeros(pad); FWriter.writearray(objsec.data); end; Index: compiler/ogcoff.pas =================================================================== --- compiler/ogcoff.pas (revision 47063) +++ compiler/ogcoff.pas (working copy) @@ -1097,7 +1097,7 @@ address:=(address and $ff000000) or ((relocval shr 1) and $ffffff) or ((relocval and 1) shl 24); relocval:=relocval shr 25; if (relocval<>$3f) and (relocval<>0) then - internalerror(200606085); { offset overflow } + internalerror(2006060801); { offset overflow } end; {$endif arm} {$ifdef aarch64} @@ -1287,7 +1287,7 @@ symaddr : aword; begin if CurrObjSec=nil then - internalerror(200403072); + internalerror(2004030701); if assigned(p) then begin { current address } @@ -2521,7 +2521,7 @@ exesec : TExeSection; begin if not assigned(texesymbol(p).objsymbol) then - internalerror(200603053); + internalerror(2006030505); with texesymbol(p).objsymbol do begin if assigned(objsection) then @@ -2789,7 +2789,7 @@ bssExeSec:=FindExeSection('.bss'); if not assigned(TextExeSec) or not assigned(DataExeSec) then - internalerror(200602231); + internalerror(2006022302); { do we need to write symbols? } hassymbols:=(ExeWriteMode=ewm_dbgonly) or ( @@ -3359,7 +3359,7 @@ begin exesec:=FindExeSection('.reloc'); if exesec=nil then - InternalError(2012072401); + InternalError(2012072403); exesec.Disabled:=false; end; inherited; Index: compiler/ogomf.pas =================================================================== --- compiler/ogomf.pas (revision 47063) +++ compiler/ogomf.pas (working copy) @@ -907,7 +907,7 @@ else if typ in [RELOC_RELATIVE16,RELOC_RELATIVE32,RELOC_SEGREL] then FOmfFixup.Mode:=fmSelfRelative else - internalerror(2015041401); + internalerror(2015041408); if typ in [RELOC_ABSOLUTE16,RELOC_ABSOLUTE32,RELOC_RELATIVE16,RELOC_RELATIVE32] then begin FOmfFixup.TargetMethod:=ftmSegmentIndexNoDisp; @@ -945,7 +945,7 @@ else if typ in [RELOC_SEG,RELOC_SEGREL] then FOmfFixup.LocationType:=fltBase else - internalerror(2015041501); + internalerror(2015041505); FOmfFixup.FrameDeterminedByThread:=False; FOmfFixup.TargetDeterminedByThread:=False; if typ in [RELOC_ABSOLUTE16,RELOC_ABSOLUTE32,RELOC_SEG] then @@ -953,7 +953,7 @@ else if typ in [RELOC_RELATIVE16,RELOC_RELATIVE32,RELOC_SEGREL] then FOmfFixup.Mode:=fmSelfRelative else - internalerror(2015041401); + internalerror(2015041409); FOmfFixup.TargetMethod:=ftmExternalIndexNoDisp; FOmfFixup.TargetDatum:=symbol.symidx; FOmfFixup.FrameMethod:=ffmTarget; @@ -968,7 +968,7 @@ else if typ in [RELOC_SEG,RELOC_SEGREL] then FOmfFixup.LocationType:=fltBase else - internalerror(2015041501); + internalerror(2015041506); FOmfFixup.FrameDeterminedByThread:=False; FOmfFixup.TargetDeterminedByThread:=False; if typ in [RELOC_ABSOLUTE16,RELOC_ABSOLUTE32,RELOC_SEG] then @@ -976,7 +976,7 @@ else if typ in [RELOC_RELATIVE16,RELOC_RELATIVE32,RELOC_SEGREL] then FOmfFixup.Mode:=fmSelfRelative else - internalerror(2015041401); + internalerror(2015041410); FOmfFixup.FrameMethod:=ffmTarget; FOmfFixup.TargetMethod:=ftmGroupIndexNoDisp; FOmfFixup.TargetDatum:=group.index; @@ -1190,7 +1190,7 @@ else if Reloctype=RELOC_FARPTR48 then begin if len<>6 then - internalerror(2015041502); + internalerror(2015041507); writeReloc(Data,4,p,RELOC_ABSOLUTE32); writeReloc(0,2,p,RELOC_SEG); exit; @@ -1197,7 +1197,7 @@ end; if CurrObjSec=nil then - internalerror(200403072); + internalerror(2004030704); objreloc:=nil; if Reloctype in [RELOC_FARDATASEG,RELOC_FARDATASEGREL] then begin @@ -1342,7 +1342,7 @@ if (oso_data in sec.SecOptions) then begin if sec.Data=nil then - internalerror(200403073); + internalerror(2004030705); for I:=0 to sec.ObjRelocations.Count-1 do TOmfRelocation(sec.ObjRelocations[I]).BuildOmfFixup; SegIndex:=Segments.FindIndexOf(sec.Name); @@ -1426,7 +1426,7 @@ if (oso_data in sec.SecOptions) then begin if sec.Data=nil then - internalerror(200403073); + internalerror(2004030706); if sec.LinNumEntries.Count=0 then exit; SegIndex:=Segments.FindIndexOf(sec.Name); @@ -2103,7 +2103,7 @@ if Is32Bit then begin if (NextOfs+3)>=RawRec.RecordLength then - internalerror(2015040504); + internalerror(2015040512); EnumeratedDataOffset := RawRec.RawData[NextOfs]+ (RawRec.RawData[NextOfs+1] shl 8)+ (RawRec.RawData[NextOfs+2] shl 16)+ @@ -2113,7 +2113,7 @@ else begin if (NextOfs+1)>=RawRec.RecordLength then - internalerror(2015040504); + internalerror(2015040513); EnumeratedDataOffset := RawRec.RawData[NextOfs]+ (RawRec.RawData[NextOfs+1] shl 8); Inc(NextOfs,2); @@ -2161,7 +2161,7 @@ FixupRawRec:=RawRec; end; else - internalerror(2015040301); + internalerror(2015040316); end; { also read all the FIXUPP records that may follow; } @@ -2912,7 +2912,7 @@ i: Integer; begin if SegmentList.Count=0 then - internalerror(2015082201); + internalerror(2015082202); for i:=0 to SegmentList.Count-1 do begin UniSeg:=TMZExeUnifiedLogicalSegment(SegmentList[i]); @@ -4165,7 +4165,7 @@ function TNewExeEntryTable.GetItems(i: Integer): TNewExeEntryPoint; begin if (i<1) or (i>Length(FItems)) then - internalerror(2019081002); + internalerror(2019081011); Result:=FItems[i-1]; end; Index: compiler/ogrel.pas =================================================================== --- compiler/ogrel.pas (revision 47063) +++ compiler/ogrel.pas (working copy) @@ -213,7 +213,7 @@ RelFlags:=[]; end; else - internalerror(2020050601); + internalerror(2020050613); end; end; Index: compiler/omfbase.pas =================================================================== --- compiler/omfbase.pas (revision 47063) +++ compiler/omfbase.pas (working copy) @@ -1432,13 +1432,13 @@ begin Result:=Offset+1; if result>RecordLength then - internalerror(2015033103); + internalerror(2015033108); IndexedRef:=RawData[Offset]; if IndexedRef<=$7f then exit; Result:=Offset+2; if result>RecordLength then - internalerror(2015033103); + internalerror(2015033109); IndexedRef:=((IndexedRef and $7f) shl 8)+RawData[Offset+1]; end; @@ -1450,7 +1450,7 @@ begin Result:=Offset+1; if Result>High(RawData) then - internalerror(2015033102); + internalerror(2015033106); RawData[Offset]:=IndexedRef; end else @@ -1457,7 +1457,7 @@ begin Result:=Offset+2; if Result>High(RawData) then - internalerror(2015033102); + internalerror(2015033107); RawData[Offset]:=$80+(IndexedRef shr 8); RawData[Offset+1]:=Byte(IndexedRef); end; @@ -1575,7 +1575,7 @@ procedure TOmfRecord_COMENT.DecodeFrom(RawRecord: TOmfRawRecord); begin if RawRecord.RecordType<>RT_COMENT then - internalerror(2015040301); + internalerror(2015040304); if RawRecord.RecordLength<3 then internalerror(2015033104); CommentType:=RawRecord.RawData[0]; @@ -1756,7 +1756,7 @@ Name: string; begin if RawRecord.RecordType<>RT_LNAMES then - internalerror(2015040301); + internalerror(2015040308); NextOfs:=0; while NextOfs<(RawRecord.RecordLength-1) do begin @@ -1802,7 +1802,7 @@ MinLen: Integer; begin if not (RawRecord.RecordType in [RT_SEGDEF,RT_SEGDEF32]) then - internalerror(2015040301); + internalerror(2015040309); Is32Bit:=RawRecord.RecordType=RT_SEGDEF32; MinLen:=7; { b(1)+seglength(2..4)+segnameindex(1..2)+classnameindex(1..2)+overlaynameindex(1..2)+checksum } @@ -1820,7 +1820,7 @@ begin inc(MinLen,3); if RawRecord.RecordLength<MinLen then - internalerror(2015040305); + internalerror(2015040317); FrameNumber:=RawRecord.RawData[1]+(RawRecord.RawData[2] shl 8); Offset:=RawRecord.RawData[3]; NextOfs:=4; @@ -1850,7 +1850,7 @@ if SegmentLength=0 then SegmentLength:=65536 else - internalerror(2015040306); + internalerror(2015040323); Inc(NextOfs,2); end; NextOfs:=RawRecord.ReadIndexedRef(NextOfs,FSegmentNameIndex); @@ -1922,7 +1922,7 @@ Segment: Integer; begin if RawRecord.RecordType<>RT_GRPDEF then - internalerror(2015040301); + internalerror(2015040310); NextOfs:=RawRecord.ReadIndexedRef(0,FGroupNameIndex); SetLength(FSegmentList,0); while NextOfs<RawRecord.RecordLength-1 do @@ -1981,7 +1981,7 @@ PubName: TOmfPublicNameElement; begin if not (RawRecord.RecordType in [RT_PUBDEF,RT_PUBDEF32,RT_LPUBDEF,RT_LPUBDEF32]) then - internalerror(2015040301); + internalerror(2015040311); Is32Bit:=RawRecord.RecordType in [RT_PUBDEF32,RT_LPUBDEF32]; IsLocal:=RawRecord.RecordType in [RT_LPUBDEF,RT_LPUBDEF32]; @@ -2003,7 +2003,7 @@ if Is32Bit then begin if (NextOfs+3)>=RawRecord.RecordLength then - internalerror(2015041401); + internalerror(2015041405); PublicOffset:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8)+ (RawRecord.RawData[NextOfs+2] shl 16)+(RawRecord.RawData[NextOfs+3] shl 24); Inc(NextOfs,4); @@ -2011,7 +2011,7 @@ else begin if (NextOfs+1)>=RawRecord.RecordLength then - internalerror(2015041401); + internalerror(2015041407); PublicOffset:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8); Inc(NextOfs,2); end; @@ -2129,7 +2129,7 @@ ExtName: TOmfExternalNameElement; begin if RawRecord.RecordType<>RT_EXTDEF then - internalerror(2015040301); + internalerror(2015040312); NextOfs:=0; while NextOfs<(RawRecord.RecordLength-1) do begin @@ -2181,11 +2181,11 @@ EndData: Byte; begin if not (RawRecord.RecordType in [RT_MODEND,RT_MODEND32]) then - internalerror(2015040301); + internalerror(2015040313); Is32Bit:=RawRecord.RecordType=RT_MODEND32; if RawRecord.RecordLength<2 then - internalerror(2015040305); + internalerror(2015040318); ModTyp:=RawRecord.RawData[0]; IsMainModule:=(ModTyp and $80)<>0; HasStartAddress:=(ModTyp and $40)<>0; @@ -2209,7 +2209,7 @@ if LogicalStartAddress then begin if NextOfs>=RawRecord.RecordLength then - internalerror(2015040305); + internalerror(2015040319); EndData:=RawRecord.RawData[NextOfs]; Inc(NextOfs); { frame and target method determined by thread is not allowed in MODEND records } @@ -2241,7 +2241,7 @@ else begin if (NextOfs+1)>=RawRecord.RecordLength then - internalerror(2015040504); + internalerror(2015040508); TargetDisplacement := RawRecord.RawData[NextOfs]+ (RawRecord.RawData[NextOfs+1] shl 8); Inc(NextOfs,2); @@ -2252,13 +2252,13 @@ begin { physical start address } if (NextOfs+1)>=RawRecord.RecordLength then - internalerror(2015040305); + internalerror(2015040320); PhysFrameNumber:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8); Inc(NextOfs,2); if Is32Bit then begin if (NextOfs+3)>=RawRecord.RecordLength then - internalerror(2015040305); + internalerror(2015040321); PhysOffset:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8)+ (RawRecord.RawData[NextOfs+2] shl 16)+(RawRecord.RawData[NextOfs+3] shl 24); Inc(NextOfs,4); @@ -2266,7 +2266,7 @@ else begin if (NextOfs+1)>=RawRecord.RecordLength then - internalerror(2015040305); + internalerror(2015040322); PhysOffset:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8); Inc(NextOfs,2); end; @@ -2293,7 +2293,7 @@ begin { frame method ffmLocation is not allowed in an MODEND record } if FrameMethod=ffmLocation then - internalerror(2015041402); + internalerror(2015041411); EndData:=(Ord(FrameMethod) shl 4)+Ord(TargetMethod); RawRecord.RawData[NextOfs]:=EndData; Inc(NextOfs); @@ -2340,7 +2340,7 @@ else begin if PhysOffset>$ffff then - internalerror(2015040502); + internalerror(2015040506); RawRecord.RawData[NextOfs]:=Byte(PhysOffset); RawRecord.RawData[NextOfs+1]:=Byte(PhysOffset shr 8); Inc(NextOfs,2); @@ -2678,7 +2678,7 @@ FixData: Byte; begin if (Offset+2)>=RawRecord.RecordLength then - internalerror(2015040504); + internalerror(2015040509); { unlike other fields in the OMF format, this one is big endian } Locat:=(RawRecord.RawData[Offset] shl 8) or RawRecord.RawData[Offset+1]; FixData:=RawRecord.RawData[Offset+2]; @@ -2718,7 +2718,7 @@ if Is32Bit then begin if (Offset+3)>=RawRecord.RecordLength then - internalerror(2015040504); + internalerror(2015040510); TargetDisplacement := RawRecord.RawData[Offset]+ (RawRecord.RawData[Offset+1] shl 8)+ (RawRecord.RawData[Offset+2] shl 16)+ @@ -2728,7 +2728,7 @@ else begin if (Offset+1)>=RawRecord.RecordLength then - internalerror(2015040504); + internalerror(2015040511); TargetDisplacement := RawRecord.RawData[Offset]+ (RawRecord.RawData[Offset+1] shl 8); Inc(Offset,2); @@ -2781,7 +2781,7 @@ else begin if TargetDisplacement>$ffff then - internalerror(2015040502); + internalerror(2015040507); RawRecord.RawData[Offset]:=Byte(TargetDisplacement); RawRecord.RawData[Offset+1]:=Byte(TargetDisplacement shr 8); Inc(Offset,2); @@ -2830,7 +2830,7 @@ if not ispowerof2(AValue,p) then internalerror(2015041802); if (p<4) or (p>15) then - internalerror(2015041802); + internalerror(2015041803); FPageSize:=AValue; end; @@ -2837,7 +2837,7 @@ procedure TOmfRecord_LIBHEAD.DecodeFrom(RawRecord: TOmfRawRecord); begin if RawRecord.RecordType<>RT_LIBHEAD then - internalerror(2015040301); + internalerror(2015040314); { this will also range check PageSize and will ensure that RecordLength>=13 } PageSize:=RawRecord.RecordLength+3; DictionaryOffset:=RawRecord.RawData[0]+ @@ -2881,7 +2881,7 @@ procedure TOmfRecord_LIBEND.DecodeFrom(RawRecord: TOmfRawRecord); begin if RawRecord.RecordType<>RT_LIBEND then - internalerror(2015040301); + internalerror(2015040315); FPaddingBytes:=RawRecord.RecordLength; end; Index: compiler/options.pas =================================================================== --- compiler/options.pas (revision 47063) +++ compiler/options.pas (working copy) @@ -3951,7 +3951,7 @@ InternalError(2013092801); if tf_x86_far_procs_push_odd_bp in target_info.flags then if not UpdateTargetSwitchStr('FARPROCSPUSHODDBP', init_settings.targetswitches, true) then - InternalError(2013092801); + InternalError(2013092802); { Use standard Android NDK prefixes when cross-compiling } if (source_info.system<>target_info.system) and (target_info.system in systems_android) then Index: compiler/optloadmodifystore.pas =================================================================== --- compiler/optloadmodifystore.pas (revision 47063) +++ compiler/optloadmodifystore.pas (working copy) @@ -161,7 +161,7 @@ xorn: newinlinenodetype:=in_xor_assign_x_y; else - internalerror(2017032901); + internalerror(2017032903); end; inserttypeconv_internal(taddnode(ttypeconvnode(right).left).right,left.resultdef); if ttypeconvnode(right).left.nodetype in [addn,subn] then @@ -343,7 +343,7 @@ shrn: newinlinenodetype:=in_shr_assign_x_y; else - internalerror(2017051201); + internalerror(2017051202); end; inserttypeconv_internal(tshlshrnode(ttypeconvnode(right).left).right,left.resultdef); result:=cinlinenode.createintern( @@ -486,7 +486,7 @@ in_ror_x_y: newinlinenodetype:=in_ror_assign_x_y; else - internalerror(2017071701); + internalerror(2017071702); end; result:=cinlinenode.createintern( newinlinenodetype,false,ccallparanode.create( Index: compiler/optvirt.pas =================================================================== --- compiler/optvirt.pas (revision 47063) +++ compiler/optvirt.pas (working copy) @@ -855,7 +855,7 @@ {$ENDIF} ; else - internalerror(2008101101); + internalerror(2008101106); end; end; Index: compiler/pbase.pas =================================================================== --- compiler/pbase.pas (revision 47063) +++ compiler/pbase.pas (working copy) @@ -316,7 +316,7 @@ if assigned(srsym) and (srsym.typ in [unitsym,namespacesym]) then begin if not(srsym.owner.symtabletype in [staticsymtable,globalsymtable]) then - internalerror(200501154); + internalerror(2005011503); { only allow unit.symbol access if the name was found in the current module we can use iscurrentunit because generic specializations does not @@ -323,7 +323,7 @@ change current_unit variable } hmodule:=find_module_from_symtable(srsym.Owner); if not Assigned(hmodule) then - internalerror(201001120); + internalerror(2010011201); if hmodule.unit_index=current_filepos.moduleindex then begin if cuf_consume_id in flags then @@ -352,7 +352,7 @@ end; end; if assigned(srsym) and (srsym.typ<>unitsym) then - internalerror(201108260); + internalerror(2011082601); if not assigned(srsym) then begin result:=true; Index: compiler/pdecobj.pas =================================================================== --- compiler/pdecobj.pas (revision 47063) +++ compiler/pdecobj.pas (working copy) @@ -1351,7 +1351,7 @@ include(current_settings.localswitches,cs_typed_const_writable); end else - internalerror(201001110); + internalerror(2010011103); end; end; end; Index: compiler/pdecsub.pas =================================================================== --- compiler/pdecsub.pas (revision 47063) +++ compiler/pdecsub.pas (working copy) @@ -1796,7 +1796,7 @@ procedure pd_public(pd:tabstractprocdef); begin if pd.typ<>procdef then - internalerror(200304266); + internalerror(2003042601); if try_to_consume(_NAME) then begin tprocdef(pd).aliasnames.insert(get_stringconst); @@ -1846,7 +1846,7 @@ begin if pd.typ<>procdef then - internalerror(200304268); + internalerror(2003042602); consume(_COLON); v:=get_intconst; if (v<int64(low(longint))) or (v>int64(high(longint))) then Index: compiler/pexports.pas =================================================================== --- compiler/pexports.pas (revision 47063) +++ compiler/pexports.pas (working copy) @@ -239,7 +239,7 @@ end; end; else - internalerror(2019050532); + internalerror(2019050502); end end else Index: compiler/pexpr.pas =================================================================== --- compiler/pexpr.pas (revision 47063) +++ compiler/pexpr.pas (working copy) @@ -2233,7 +2233,7 @@ include(tvecnode(p1).flags,nf_memindex); end; {$else} - internalerror(2013053101); + internalerror(2013053105); {$endif} end else Index: compiler/pkgutil.pas =================================================================== --- compiler/pkgutil.pas (revision 47063) +++ compiler/pkgutil.pas (working copy) @@ -532,7 +532,7 @@ begin pkgentry:=ppackageentry(packagelist.find(package.packagename^)); if not assigned(pkgentry) then - internalerror(2015100301); + internalerror(2015100302); inc(pkgentry^.usedunits); end; Index: compiler/powerpc/agppcmpw.pas =================================================================== --- compiler/powerpc/agppcmpw.pas (revision 47063) +++ compiler/powerpc/agppcmpw.pas (working copy) @@ -363,7 +363,7 @@ DH_Plus: tempstr:=tempstr+('+'+#9); else - internalerror(2003112901); + internalerror(2003112904); end; case c.cond of C_LT..C_NU: @@ -817,12 +817,12 @@ case consttype of aitconst_128bit: begin - internalerror(200404291); + internalerror(2004042904); end; aitconst_64bit: begin if assigned(tai_const(hp).sym) then - internalerror(200404292); + internalerror(2004042905); writer.AsmWrite(ait_const2str[aitconst_32bit]); if target_info.endian = endian_little then begin Index: compiler/powerpc/cgcpu.pas =================================================================== --- compiler/powerpc/cgcpu.pas (revision 47063) +++ compiler/powerpc/cgcpu.pas (working copy) @@ -240,7 +240,7 @@ begin if not(size in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then - internalerror(2002090902); + internalerror(2002090906); if (a >= low(smallint)) and (a <= high(smallint)) then list.concat(taicpu.op_reg_const(A_LI,reg,smallint(a))) @@ -1161,7 +1161,7 @@ abi_powerpc_sysv: firstfpureg := RS_F9; else - internalerror(2003122903); + internalerror(2003122904); end; for regcounter:=firstfpureg to RS_F31 do begin Index: compiler/powerpc/cpupi.pas =================================================================== --- compiler/powerpc/cpupi.pas (revision 47063) +++ compiler/powerpc/cpupi.pas (working copy) @@ -150,7 +150,7 @@ abi_powerpc_sysv: low_nonvol_fpu_reg := RS_F14; else - internalerror(2003122903); + internalerror(2003122905); end; for regcounter := low_nonvol_fpu_reg to RS_F31 do begin Index: compiler/powerpc/nppcadd.pas =================================================================== --- compiler/powerpc/nppcadd.pas (revision 47063) +++ compiler/powerpc/nppcadd.pas (working copy) @@ -306,12 +306,12 @@ { should be handled in pass_1 (JM) } if not(torddef(left.resultdef).ordtype in [U32bit,s32bit]) or (torddef(left.resultdef).typ <> torddef(right.resultdef).typ) then - internalerror(200109051); + internalerror(2001090504); { handled separately } op := OP_NONE; end; else - internalerror(2002072705); + internalerror(2002072703); end; if not cmpop or @@ -483,7 +483,7 @@ end; end; else - internalerror(2002072803); + internalerror(2002072805); end; end else @@ -604,7 +604,7 @@ end; stringdef : begin - internalerror(2002072402); + internalerror(2002072403); exit; end; setdef : Index: compiler/powerpc/nppcmat.pas =================================================================== --- compiler/powerpc/nppcmat.pas (revision 47063) +++ compiler/powerpc/nppcmat.pas (working copy) @@ -477,7 +477,7 @@ end; end; else - internalerror(2019050947); + internalerror(2019050913); end; { choose appropriate operand } if left.resultdef.typ <> floatdef then Index: compiler/powerpc/rappcgas.pas =================================================================== --- compiler/powerpc/rappcgas.pas (revision 47063) +++ compiler/powerpc/rappcgas.pas (working copy) @@ -222,7 +222,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092018); end; end; AS_MINUS: @@ -521,7 +521,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092019); end; end end; Index: compiler/powerpc64/cgcpu.pas =================================================================== --- compiler/powerpc64/cgcpu.pas (revision 47063) +++ compiler/powerpc64/cgcpu.pas (working copy) @@ -509,7 +509,7 @@ {$ENDIF EXTDEBUG} if not (fromsize in [OS_8, OS_S8, OS_16, OS_S16, OS_32, OS_S32, OS_64, OS_S64]) then - internalerror(2002090904); + internalerror(2002090910); { the caller is expected to have adjusted the reference already in this case } Index: compiler/powerpc64/nppcadd.pas =================================================================== --- compiler/powerpc64/nppcadd.pas (revision 47063) +++ compiler/powerpc64/nppcadd.pas (working copy) @@ -169,7 +169,7 @@ end; stringdef: begin - internalerror(2002072402); + internalerror(2002072401); exit; end; setdef: @@ -176,7 +176,7 @@ begin { normalsets are already handled in pass1 } if not is_smallset(left.resultdef) then - internalerror(200109041); + internalerror(2001090403); second_addsmallset; exit; end; Index: compiler/powerpc64/nppcmat.pas =================================================================== --- compiler/powerpc64/nppcmat.pas (revision 47063) +++ compiler/powerpc64/nppcmat.pas (working copy) @@ -351,7 +351,7 @@ end; end; else - internalerror(2013120112); + internalerror(2013120113); end; { choose appropriate operand } if left.resultdef.typ <> floatdef then begin Index: compiler/powerpc64/rappcgas.pas =================================================================== --- compiler/powerpc64/rappcgas.pas (revision 47063) +++ compiler/powerpc64/rappcgas.pas (working copy) @@ -235,7 +235,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092014); end; end; AS_MINUS: @@ -525,7 +525,7 @@ OPR_REFERENCE: inc(oper.opr.ref.offset, l); else - internalerror(200309202); + internalerror(2003092015); end; end end; Index: compiler/ppcgen/agppcgas.pas =================================================================== --- compiler/ppcgen/agppcgas.pas (revision 47063) +++ compiler/ppcgen/agppcgas.pas (working copy) @@ -110,7 +110,7 @@ (index<>NR_NO) or (offset<>0) or not assigned(symbol) then - internalerror(2011122701); + internalerror(2011122702); if asminfo^.dollarsign<>'$' then getreferencestring:=ApplyAsmSymbolRestrictions(symbol.name)+'('+gas_regname(NR_RTOC)+')' else @@ -217,7 +217,7 @@ top_none: getopstr_jmp:=''; else - internalerror(2002070603); + internalerror(2002070605); end; end; @@ -332,7 +332,7 @@ { we have a trap instruction } else begin - internalerror(2002070601); + internalerror(2002070602); { not yet implemented !!!!!!!!!!!!!!!!!!!!! } { case tempstr := 'tw';} end; Index: compiler/ppcgen/cgppc.pas =================================================================== --- compiler/ppcgen/cgppc.pas (revision 47063) +++ compiler/ppcgen/cgppc.pas (working copy) @@ -536,7 +536,7 @@ op: TAsmOp; begin if not (fromsize in [OS_8..OS_INT,OS_S8..OS_SINT]) then - internalerror(2002090904); + internalerror(2002090911); if not (tosize in [OS_8..OS_INT,OS_S8..OS_SINT]) then internalerror(2002090905); Index: compiler/ppcgen/hlcgppc.pas =================================================================== --- compiler/ppcgen/hlcgppc.pas (revision 47063) +++ compiler/ppcgen/hlcgppc.pas (working copy) @@ -113,7 +113,7 @@ href : treference; begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061310); { call/jmp vmtoffs(%eax) ; method offs } reference_reset_base(href,voidpointertype,NR_R11,tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber),ctempposinvalid,sizeof(pint),[]); if tcgppcgen(cg).hasLargeOffset(href) then Index: compiler/ppcgen/ngppcadd.pas =================================================================== --- compiler/ppcgen/ngppcadd.pas (revision 47063) +++ compiler/ppcgen/ngppcadd.pas (working copy) @@ -279,7 +279,7 @@ andn : cgop:=OP_AND; else - internalerror(200203247); + internalerror(2002032413); end; if right.location.loc <> LOC_CONSTANT then @@ -550,7 +550,7 @@ opdone := true; end; else - internalerror(2002072701); + internalerror(2002072702); end; if not opdone then Index: compiler/ppcgen/ngppcinl.pas =================================================================== --- compiler/ppcgen/ngppcinl.pas (revision 47063) +++ compiler/ppcgen/ngppcinl.pas (working copy) @@ -176,7 +176,7 @@ tmpreg: tregister; begin if (current_settings.cputype < cpu_PPC970) then - internalerror(2007020910); + internalerror(2007020901); secondpass(left); hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true); tmpreg:=cg.getfpuregister(current_asmdata.CurrAsmList,OS_F64); Index: compiler/ppcgen/rgcpu.pas =================================================================== --- compiler/ppcgen/rgcpu.pas (revision 47063) +++ compiler/ppcgen/rgcpu.pas (working copy) @@ -117,7 +117,7 @@ helplist:=TAsmList.create; if (spilltemp.index<>NR_NO) then - internalerror(200704201); + internalerror(2007042002); if getregtype(tempreg)=R_INTREGISTER then begin Index: compiler/psub.pas =================================================================== --- compiler/psub.pas (revision 47063) +++ compiler/psub.pas (working copy) @@ -673,7 +673,7 @@ nil)); end else - internalerror(200305108); + internalerror(2003051001); end else if is_object(current_structdef) then Index: compiler/rgobj.pas =================================================================== --- compiler/rgobj.pas (revision 47063) +++ compiler/rgobj.pas (working copy) @@ -570,7 +570,7 @@ procedure trgobj.ungetcpuregister(list:TAsmList;r:Tregister); begin if (getsupreg(r)>=first_imaginary) then - InternalError(2004020901); + InternalError(2004020902); list.concat(Tai_regalloc.dealloc(r,nil)); end; Index: compiler/riscv/hlcgrv.pas =================================================================== --- compiler/riscv/hlcgrv.pas (revision 47063) +++ compiler/riscv/hlcgrv.pas (working copy) @@ -118,7 +118,7 @@ l : TAsmLabel; begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061304); reference_reset_base(href,voidpointertype,NR_X5,tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber),ctempposinvalid, sizeof(pint),[]); cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_X5); Index: compiler/riscv32/rarv32gas.pas =================================================================== --- compiler/riscv32/rarv32gas.pas (revision 47063) +++ compiler/riscv32/rarv32gas.pas (working copy) @@ -191,7 +191,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092008); end; end; AS_MINUS: @@ -527,7 +527,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092009); end; end end; Index: compiler/riscv64/rarv64gas.pas =================================================================== --- compiler/riscv64/rarv64gas.pas (revision 47063) +++ compiler/riscv64/rarv64gas.pas (working copy) @@ -192,7 +192,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092016); end; end; AS_MINUS: @@ -568,7 +568,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092017); end; end end; Index: compiler/sparc/cgcpu.pas =================================================================== --- compiler/sparc/cgcpu.pas (revision 47063) +++ compiler/sparc/cgcpu.pas (working copy) @@ -208,7 +208,7 @@ op2:=A_AND; end; else - internalerror(200203241); + internalerror(2002032409); end; end; @@ -262,7 +262,7 @@ case op of OP_NEG, OP_NOT : - internalerror(200306017); + internalerror(2003060102); OP_AND,OP_OR,OP_XOR: begin cg.a_op_const_reg_reg(list,op,OS_INT,tcgint(lo(value)),regsrc.reglo,regdst.reglo); @@ -283,7 +283,7 @@ case op of OP_NEG, OP_NOT : - internalerror(200306017); + internalerror(2003060103); else ; end; Index: compiler/sparc64/cpugas.pas =================================================================== --- compiler/sparc64/cpugas.pas (revision 47063) +++ compiler/sparc64/cpugas.pas (working copy) @@ -163,7 +163,7 @@ else getopstr:=getreferencestring(ref^); else - internalerror(10001); + internalerror(2020100808); end; end; Index: compiler/sparcgen/aasmcpu.pas =================================================================== --- compiler/sparcgen/aasmcpu.pas (revision 47063) +++ compiler/sparcgen/aasmcpu.pas (working copy) @@ -287,7 +287,7 @@ end; end else - internalerror(200401041); + internalerror(2004010404); end; end; @@ -305,11 +305,11 @@ R_SUBFD : result:=taicpu.op_reg_ref(A_STD,r,ref); else - internalerror(200401042); + internalerror(2004010417); end; end else - internalerror(200401041); + internalerror(2004010406); end; end; Index: compiler/sparcgen/cpugas.pas =================================================================== --- compiler/sparcgen/cpugas.pas (revision 47063) +++ compiler/sparcgen/cpugas.pas (working copy) @@ -159,7 +159,7 @@ else getopstr:=getreferencestring(ref^); else - internalerror(10001); + internalerror(2020100807); end; end; Index: compiler/sparcgen/ncpucnv.pas =================================================================== --- compiler/sparcgen/ncpucnv.pas (revision 47063) +++ compiler/sparcgen/ncpucnv.pas (working copy) @@ -196,7 +196,7 @@ end; end; else - internalerror(200410031); + internalerror(2004100304); end; end; end; Index: compiler/sparcgen/racpugas.pas =================================================================== --- compiler/sparcgen/racpugas.pas (revision 47063) +++ compiler/sparcgen/racpugas.pas (working copy) @@ -411,7 +411,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092003); end; end end; Index: compiler/sparcgen/rgcpu.pas =================================================================== --- compiler/sparcgen/rgcpu.pas (revision 47063) +++ compiler/sparcgen/rgcpu.pas (working copy) @@ -169,7 +169,7 @@ helplist.concat(taicpu.op_reg_const_reg(A_XOR,hreg,(aint(spilltemp.offset) and aint($3ff)) or aint($1c00),hreg)); end else - Internalerror(2017090901); + Internalerror(2017090902); {$endif SPARC} reference_reset_base(tmpref,hreg,0,spilltemp.temppos,sizeof(aint),[]); Index: compiler/symbase.pas =================================================================== --- compiler/symbase.pas (revision 47063) +++ compiler/symbase.pas (working copy) @@ -458,7 +458,7 @@ function TSymtablestack.top:TSymtable; begin if not assigned(stack) then - internalerror(200601233); + internalerror(2006012304); result:=stack^.symtable; end; Index: compiler/symcreat.pas =================================================================== --- compiler/symcreat.pas (revision 47063) +++ compiler/symcreat.pas (working copy) @@ -482,7 +482,7 @@ a typecast at the scanner level } if (struct.typ=recorddef) and not assigned(struct.typesym) then - internalerror(2011032811); + internalerror(2011032804); { walk over all fields that need initialization } str:='begin '; for i:=0 to struct.symtable.symlist.count-1 do Index: compiler/symdef.pas =================================================================== --- compiler/symdef.pas (revision 47063) +++ compiler/symdef.pas (working copy) @@ -5978,7 +5978,7 @@ function tprocdef.Getpersonality: tprocdef; begin if not assigned(implprocdefinfo) then - internalerror(2016121701); + internalerror(2016121704); result:=implprocdefinfo^.personality; end; @@ -5986,7 +5986,7 @@ procedure tprocdef.Setpersonality(AValue: tprocdef); begin if not assigned(implprocdefinfo) then - internalerror(2016121702); + internalerror(2016121705); implprocdefinfo^.personality:=AValue; end; @@ -7062,7 +7062,7 @@ begin if not assigned(current_module) then - internalerror(2011081301); + internalerror(2011081302); key.def:=def; key.copytyp:=copytyp; res:=current_module.procaddrdefs.FindOrAdd(@key,sizeof(key)); @@ -7777,7 +7777,7 @@ if objecttype in [odt_interfacecom,odt_interfacecorba,odt_dispinterface,odt_objcclass,odt_objcprotocol,odt_javaclass,odt_interfacejava] then exit; if (oo_has_vmt in objectoptions) then - internalerror(12345) + internalerror(2020100816) else begin tObjectSymtable(symtable).datasize:=align(tObjectSymtable(symtable).datasize, Index: compiler/symtype.pas =================================================================== --- compiler/symtype.pas (revision 47063) +++ compiler/symtype.pas (working copy) @@ -706,7 +706,7 @@ sl_vec: hp^.valuedef:=tdef(hp^.valuedefderef.resolve); else - internalerror(200110205); + internalerror(2001102001); end; hp:=hp^.next; end; @@ -732,7 +732,7 @@ sl_vec: hp^.valuedefderef.build(hp^.valuedef); else - internalerror(200110205); + internalerror(2001102002); end; hp:=hp^.next; end; @@ -777,13 +777,13 @@ begin { same as above } if tdef(s).defid=defid_registered_nost then - Internalerror(2015102505); + Internalerror(2015102501); if not tdef(s).registered then tdef(s).register_def; st:=FindUnitSymtable(tdef(s).owner); end else - internalerror(2016090201); + internalerror(2016090204); if not st.iscurrentunit then begin { register that the unit is needed for resolving } @@ -1147,7 +1147,7 @@ putderef(hp^.valuedefderef); end; else - internalerror(200110205); + internalerror(2001102003); end; hp:=hp^.next; end; Index: compiler/systems/t_win16.pas =================================================================== --- compiler/systems/t_win16.pas (revision 47063) +++ compiler/systems/t_win16.pas (working copy) @@ -202,7 +202,7 @@ procsym: DllExport_COMENT_EXPDEF.InternalName:=tprocdef(tprocsym(hp.sym).ProcdefList[0]).mangledname; else - internalerror(2015092701); + internalerror(2015092705); end else DllExport_COMENT_EXPDEF.InternalName:=hp.name^; Index: compiler/x86/aasmcpu.pas =================================================================== --- compiler/x86/aasmcpu.pas (revision 47063) +++ compiler/x86/aasmcpu.pas (working copy) @@ -2148,7 +2148,7 @@ case aIsEVEXW1 of false: if aIsVector512 then tuplesize := 32; else - Internalerror(2019081003); + Internalerror(2019081013); end; end else if IF_THVM in aInsEntry^.Flags then @@ -2823,7 +2823,7 @@ if ((input.ref^.index<>NR_NO) and (getregtype(input.ref^.index)=R_MMREGISTER) and (input.ref^.base<>NR_NO) and (getregtype(input.ref^.base)<>R_INTREGISTER)) or // vector memory (AVX2) ((input.ref^.index<>NR_NO) and (getregtype(input.ref^.index)<>R_INTREGISTER) and (getregtype(input.ref^.index)<>R_MMREGISTER)) or ((input.ref^.base<>NR_NO) and (getregtype(input.ref^.base)<>R_INTREGISTER)) then - internalerror(200301081); + internalerror(2003010802); ir:=input.ref^.index; @@ -2997,7 +2997,7 @@ result:=false; if ((input.ref^.index<>NR_NO) and (getregtype(input.ref^.index)<>R_INTREGISTER)) or ((input.ref^.base<>NR_NO) and (getregtype(input.ref^.base)<>R_INTREGISTER)) then - internalerror(200301081); + internalerror(2003010803); ir:=input.ref^.index; @@ -3864,7 +3864,7 @@ end; end; else - Internalerror(2019081004); + Internalerror(2019081014); end; @@ -4325,7 +4325,7 @@ else objdata_writereloc(currval-insend,2,nil,currabsreloc) {$else i8086} - InternalError(777006); + InternalError(2020100821); {$endif i8086} end; &64,&65,&66 : // 064..066 - select between 16/32 address mode, but we support only 32 (only 16 on i8086) @@ -4482,7 +4482,7 @@ else InternalError(2015041503); {$else i8086} - InternalError(777006); + InternalError(2020100822); {$endif i8086} end; else @@ -4794,10 +4794,10 @@ R_SUBMMX: result:=taicpu.op_ref_reg(A_MOVDQA,S_NO,tmpref,r); else - internalerror(200506043); + internalerror(2005060405); end; else - internalerror(200401041); + internalerror(2004010411); end; end; @@ -4852,10 +4852,10 @@ R_SUBMMWHOLE: result:=taicpu.op_reg_ref(A_MOVQ,S_NO,r,tmpref); else - internalerror(200506042); + internalerror(2005060404); end; else - internalerror(200401041); + internalerror(2004010412); end; end; @@ -5165,7 +5165,7 @@ msiYMem64: RegYMMSizeMask := RegYMMSizeMask or OT_BITS256; msiZMem32, msiZMem64: RegYMMSizeMask := RegYMMSizeMask or OT_BITS512; - else InternalError(777211); + else InternalError(2020100823); end; OT_ZMMREG: case MRefInfo of msiXMem32, @@ -5174,7 +5174,7 @@ msiYMem64: RegZMMSizeMask := RegZMMSizeMask or OT_BITS256; msiZMem32, msiZMem64: RegZMMSizeMask := RegZMMSizeMask or OT_BITS512; - else InternalError(777211); + else InternalError(2020100824); end; //else InternalError(777209); Index: compiler/x86/agx86att.pas =================================================================== --- compiler/x86/agx86att.pas (revision 47063) +++ compiler/x86/agx86att.pas (working copy) @@ -276,7 +276,7 @@ top_const : owner.writer.AsmWrite('$'+tostr(o.val)); else - internalerror(10001); + internalerror(2020100810); end; if o.vopext and OTVE_VECTOR_WRITEMASK = OTVE_VECTOR_WRITEMASK then @@ -328,7 +328,7 @@ top_const : owner.writer.AsmWrite(tostr(o.val)); else - internalerror(10001); + internalerror(2020100811); end; end; Index: compiler/x86/agx86int.pas =================================================================== --- compiler/x86/agx86int.pas (revision 47063) +++ compiler/x86/agx86int.pas (working copy) @@ -685,7 +685,7 @@ aitrealconst_s64comp: writer.AsmWriteLn(#9#9'DQ'#9+extended2str(tai_realconst(hp).value.s64compval)); else - internalerror(2014050604); + internalerror(2014050606); end; end; ait_string : @@ -1013,7 +1013,7 @@ { Ignore for now }; else if not WriteComments(hp) then - internalerror(10000); + internalerror(2020100802); end; hp:=tai(hp.next); end; Index: compiler/x86/agx86nsm.pas =================================================================== --- compiler/x86/agx86nsm.pas (revision 47063) +++ compiler/x86/agx86nsm.pas (working copy) @@ -450,7 +450,7 @@ end; end; else - internalerror(10001); + internalerror(2020100812); end; end; @@ -487,7 +487,7 @@ top_const : writer.AsmWrite(tostr(aint(o.val))); else - internalerror(10001); + internalerror(2020100813); end; end; @@ -1292,7 +1292,7 @@ writer.AsmWriteLn('; OMF LINNUM Line '+tai_directive(hp).name); {$endif OMFOBJSUPPORT} else - internalerror(200509191); + internalerror(2005091903); end; writer.AsmLn; end; @@ -1300,7 +1300,7 @@ { Ignore for now }; else if not WriteComments(hp) then - internalerror(10000); + internalerror(2020100801); end; hp:=tai(hp.next); end; Index: compiler/x86/aoptx86.pas =================================================================== --- compiler/x86/aoptx86.pas (revision 47063) +++ compiler/x86/aoptx86.pas (working copy) @@ -3787,7 +3787,7 @@ else begin if SetC = C_NONE then - InternalError(2018061401); + InternalError(2018061402); taicpu(hp2).SetCondition(SetC); end; @@ -5472,7 +5472,7 @@ setsubreg(taicpu(hp1).oper[0]^.reg,getsubreg(taicpu(hp2).oper[0]^.reg)); end; else - internalerror(2008042701); + internalerror(2008042702); end; { -> Index: compiler/x86/cgx86.pas =================================================================== --- compiler/x86/cgx86.pas (revision 47063) +++ compiler/x86/cgx86.pas (working copy) @@ -271,7 +271,7 @@ function Tcgx86.getmmxregister(list:TAsmList):Tregister; begin if not assigned(rg[R_MMXREGISTER]) then - internalerror(2003121214); + internalerror(2003121204); result:=rg[R_MMXREGISTER].getregister(list,R_SUBNONE); end; @@ -1705,7 +1705,7 @@ list.concat(taicpu.op_reg_ref(get_scalar_mm_op(fromsize,tosize,tcgsize2size[tosize]=tmpref.alignment),S_NO,reg,tmpref)); end else - internalerror(200312252); + internalerror(2003122501); end; @@ -1891,7 +1891,7 @@ if asmop=A_NOP then begin { do vectorized and shuffle finally } - internalerror(2010060102); + internalerror(2010060103); end; end else Index: compiler/x86/cpubase.pas =================================================================== --- compiler/x86/cpubase.pas (revision 47063) +++ compiler/x86/cpubase.pas (working copy) @@ -509,7 +509,7 @@ else internalerror(2003031801); end; else - internalerror(2003031801); + internalerror(2003031802); end; end; @@ -591,7 +591,7 @@ begin result := flags_2_cond[f]; if (result=C_None) then - InternalError(2014041301); + InternalError(2014041302); end; Index: compiler/x86/nx86add.pas =================================================================== --- compiler/x86/nx86add.pas (revision 47063) +++ compiler/x86/nx86add.pas (working copy) @@ -634,7 +634,7 @@ nodetype:=equaln; end; else - internalerror(2003042215); + internalerror(2003042204); end; { left must be a register } left_must_be_reg(opdef,opsize,false); @@ -800,7 +800,7 @@ else begin if not(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then - internalerror(200203247); + internalerror(2002032412); tcgx86(cg).make_simple_ref(current_asmdata.CurrAsmList,right.location.reference); emit_ref_reg(A_MOVQ,S_NO,right.location.reference,hreg); emit_reg_reg(op,S_NO,left.location.register,hreg); @@ -1040,7 +1040,7 @@ slashn : op:=OP_DIV; else - internalerror(200312231); + internalerror(2003122303); end; location_reset(location,LOC_MMREGISTER,def_cgsize(resultdef)); @@ -1063,7 +1063,7 @@ subn: current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_HSUBPD,S_NO,location.register,location.register)); else - internalerror(201108162); + internalerror(2011081601); end; end else @@ -1083,7 +1083,7 @@ current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_HSUBPS,S_NO,location.register,location.register)); end; else - internalerror(201108163); + internalerror(2011081604); end; end end @@ -1345,7 +1345,7 @@ else op:=ops_div[hasref]; else - internalerror(2003042214); + internalerror(2003042203); end; if hasref then Index: compiler/x86/nx86cnv.pas =================================================================== --- compiler/x86/nx86cnv.pas (revision 47063) +++ compiler/x86/nx86cnv.pas (working copy) @@ -285,7 +285,7 @@ OS_F64: op:=A_CVTSI2SD; else - internalerror(2007120902); + internalerror(2007120904); end; { don't use left.location.size, because that one may be OS_32/OS_64 Index: compiler/x86/nx86inl.pas =================================================================== --- compiler/x86/nx86inl.pas (revision 47063) +++ compiler/x86/nx86inl.pas (working copy) @@ -730,7 +730,7 @@ OS_F64: current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTSD2SI,S_NO,left.location.register,location.register)); else - internalerror(2007031402); + internalerror(2007031404); end; end else @@ -774,7 +774,7 @@ OS_F64: current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_CVTTSD2SI,S_NO,left.location.register,location.register)); else - internalerror(2007031401); + internalerror(2007031403); end; end else @@ -878,7 +878,7 @@ s64real: current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_SQRTSD,S_NO,left.location.register,location.register)); else - internalerror(200510031); + internalerror(2005100303); end; end else @@ -1374,7 +1374,7 @@ begin secondpass(left); if not(is_dynamic_array(left.resultdef)) then - Internalerror(2019122801); + Internalerror(2019122809); { length in dynamic arrays is at offset -sizeof(pint) } hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false); current_asmdata.getjumplabel(donelab); Index: compiler/x86/nx86mat.pas =================================================================== --- compiler/x86/nx86mat.pas (revision 47063) +++ compiler/x86/nx86mat.pas (working copy) @@ -672,7 +672,7 @@ 4: emit_none(A_CDQ,S_NO); else - internalerror(2013102701); + internalerror(2013102704); end else emit_reg_reg(A_XOR,opsize,regd,regd); Index: compiler/x86/rax86.pas =================================================================== --- compiler/x86/rax86.pas (revision 47063) +++ compiler/x86/rax86.pas (working copy) @@ -518,7 +518,7 @@ msbBCST32: memrefsize := 32; msbBCST64: memrefsize := 64; else - Internalerror(2019081005); + Internalerror(2019081015); end; end else @@ -637,7 +637,7 @@ S_XMM : memrefsize := 128; S_YMM : memrefsize := 256; S_ZMM : memrefsize := 512; - else Internalerror(2019081001); + else Internalerror(2019081010); end; break; end; @@ -685,7 +685,7 @@ msiMemRegConst128: memrefsize := 128; msiMemRegConst256: memrefsize := 256; msiMemRegConst512: memrefsize := 512; - else Internalerror(2019081002); + else Internalerror(2019081012); end; end; end; @@ -712,7 +712,7 @@ msiMultiple: ; else - Internalerror(2019081005); + Internalerror(2019081016); end; if memrefsize > -1 then @@ -828,7 +828,7 @@ tx86operand(operands[i]).size := OS_M64; end; else - Internalerror(2019081006); + Internalerror(2019081017); end; end else @@ -1187,7 +1187,7 @@ break; end; else - Internalerror(2019081007); + Internalerror(2019081018); end; end; end; Index: compiler/x86/rax86att.pas =================================================================== --- compiler/x86/rax86att.pas (revision 47063) +++ compiler/x86/rax86att.pas (working copy) @@ -735,7 +735,7 @@ inc(oper.opr.constoffset, l); end; else - internalerror(200309202); + internalerror(2003092011); end; end; end; Index: compiler/x86/symx86.pas =================================================================== --- compiler/x86/symx86.pas (revision 47063) +++ compiler/x86/symx86.pas (working copy) @@ -109,7 +109,7 @@ key: tx86PtrDefKey; begin if not assigned(current_module) then - internalerror(2011071101); + internalerror(2011071102); key.def:=def; key.x86typ:=x86typ; res:=current_module.ptrdefs.FindOrAdd(@key,sizeof(key)); Index: compiler/x86_64/cpuelf.pas =================================================================== --- compiler/x86_64/cpuelf.pas (revision 47063) +++ compiler/x86_64/cpuelf.pas (working copy) @@ -164,7 +164,7 @@ else if objrel.size=4 then result:=R_X86_64_32 else - InternalError(2012061901); + InternalError(2012061902); RELOC_ABSOLUTE32 : result:=R_X86_64_32S; RELOC_GOTPCREL : @@ -186,7 +186,7 @@ else if objrel.size=4 then result:=R_X86_64_DTPOFF32 else - InternalError(2019091701); + InternalError(2019091702); else result:=0; InternalError(2012082302); @@ -557,7 +557,7 @@ else begin writeln(objreloc.typ); - internalerror(200604014); + internalerror(2006040105); end; end else { not relocsec.Used } @@ -577,7 +577,7 @@ end; end; else - InternalError(2012101102); + InternalError(2012101103); end; data.Seek(objreloc.dataoffset); Index: compiler/x86_64/hlcgcpu.pas =================================================================== --- compiler/x86_64/hlcgcpu.pas (revision 47063) +++ compiler/x86_64/hlcgcpu.pas (working copy) @@ -81,7 +81,7 @@ not is_objectpascal_helper(procdef.struct) then begin if (procdef.extnumber=$ffff) then - Internalerror(200006139); + Internalerror(2000061301); { load vmt from first paramter } { win64 uses a different abi } if x86_64_use_ms_abi(procdef.proccalloption) then Index: compiler/x86_64/rax64int.pas =================================================================== --- compiler/x86_64/rax64int.pas (revision 47063) +++ compiler/x86_64/rax64int.pas (working copy) @@ -100,7 +100,7 @@ err: boolean; begin if actasmtoken<>AS_TARGET_DIRECTIVE then - InternalError(2011100201); + InternalError(2011100203); Consume(AS_TARGET_DIRECTIVE); Include(current_procinfo.flags,pi_has_unwind_info); case actsehdirective of Index: compiler/x86_64/win64unw.pas =================================================================== --- compiler/x86_64/win64unw.pas (revision 47063) +++ compiler/x86_64/win64unw.pas (working copy) @@ -349,7 +349,7 @@ if info=0 then { frame register cannot be RAX } InternalError(2011072304); if (ofs>240) or ((ofs and 15)<>0) then - InternalError(2011072310); + InternalError(2011072309); FFrameReg:=info; FFrameOffs:=ofs; { !! looks like docs aren't correct and info should be set to register } Index: compiler/xtensa/aasmcpu.pas =================================================================== --- compiler/xtensa/aasmcpu.pas (revision 47063) +++ compiler/xtensa/aasmcpu.pas (working copy) @@ -492,7 +492,7 @@ R_FPUREGISTER: result:=taicpu.op_reg_ref(A_SSI,r,ref); else - internalerror(2020030701); + internalerror(2020030702); end; end; Index: compiler/xtensa/cgcpu.pas =================================================================== --- compiler/xtensa/cgcpu.pas (revision 47063) +++ compiler/xtensa/cgcpu.pas (working copy) @@ -283,7 +283,7 @@ OS_32, OS_S32: op:=A_L32I; else - internalerror(2020030801); + internalerror(2020030805); end; href:=ref; @@ -904,7 +904,7 @@ OC_LT: op:=C_LTZ; OC_GTE: op:=C_GEZ; else - Internalerror(2020030801); + Internalerror(2020030806); end; instr:=taicpu.op_reg_sym(A_B,reg,l); instr.condition:=op; @@ -920,7 +920,7 @@ OC_LT: op:=C_LTI; OC_GTE: op:=C_GEI; else - Internalerror(2020030801); + Internalerror(2020030807); end; instr:=taicpu.op_reg_const_sym(A_B,reg,a,l); @@ -935,7 +935,7 @@ OC_B: op:=C_LTUI; OC_AE: op:=C_GEUI; else - Internalerror(2020030801); + Internalerror(2020030808); end; instr:=taicpu.op_reg_const_sym(A_B,reg,a,l); Index: compiler/xtensa/cpupara.pas =================================================================== --- compiler/xtensa/cpupara.pas (revision 47063) +++ compiler/xtensa/cpupara.pas (working copy) @@ -221,7 +221,7 @@ { only call8 used/supported so far } paraloc^.register:=newreg(R_INTREGISTER,RS_A11,cgsize2subreg(R_INTREGISTER,retcgsize)); else - Internalerror(2020032202); + Internalerror(2020032204); end else paraloc^.register:=NR_A3; @@ -290,7 +290,7 @@ result:=create_paraloc_info_intern(p,side,p.paras,curintreg,cur_stack_offset,false); if result<cur_stack_offset then - Internalerror(2020083001); + Internalerror(2020083002); create_funcretloc_info(p,side); end; Index: compiler/xtensa/ncpuadd.pas =================================================================== --- compiler/xtensa/ncpuadd.pas (revision 47063) +++ compiler/xtensa/ncpuadd.pas (working copy) @@ -180,7 +180,7 @@ gtn: cond:=OC_A; gten: cond:=OC_AE; else - internalerror(2020030801); + internalerror(2020030803); end; if (right.nodetype=ordconstn) and not(nf_swapped in flags) then Index: compiler/xtensa/ncpumat.pas =================================================================== --- compiler/xtensa/ncpumat.pas (revision 47063) +++ compiler/xtensa/ncpumat.pas (working copy) @@ -241,7 +241,7 @@ cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.register64.reglo,location.register64.reglo); end; else - internalerror(2014033101); + internalerror(2014033102); end; end else @@ -319,7 +319,7 @@ end else begin - internalerror(2020082209); + internalerror(2020082204); { load right operators in a register - this is done since most target cpu which will use this node do not support a shift count in a mem. location (cec) Index: compiler/xtensa/ncpumem.pas =================================================================== --- compiler/xtensa/ncpumem.pas (revision 47063) +++ compiler/xtensa/ncpumem.pas (working copy) @@ -73,10 +73,10 @@ location.reference.index:=hreg; end else - Internalerror(2020042202); + Internalerror(2020042214); { update alignment } if (location.reference.alignment=0) then - internalerror(2020042203); + internalerror(2020042217); location.reference.alignment:=newalignment(location.reference.alignment,l); end else Index: compiler/xtensa/racpugas.pas =================================================================== --- compiler/xtensa/racpugas.pas (revision 47063) +++ compiler/xtensa/racpugas.pas (working copy) @@ -536,7 +536,7 @@ OPR_REFERENCE : inc(oper.opr.ref.offset,l); else - internalerror(200309202); + internalerror(2003092004); end; end end; Index: compiler/z80/aasmcpu.pas =================================================================== --- compiler/z80/aasmcpu.pas (revision 47063) +++ compiler/z80/aasmcpu.pas (working copy) @@ -802,7 +802,7 @@ NR_L: result:=5 shl 3; else - internalerror(2020050419); + internalerror(2020050427); end; case oper[1]^.reg of NR_A: @@ -820,7 +820,7 @@ NR_L: result:=result or 5; else - internalerror(2020050419); + internalerror(2020050428); end; end; 'ccc': @@ -862,7 +862,7 @@ if insentry^.optypes[i]=OT_IMM3 then begin if oper[i]^.typ<>top_const then - internalerror(2020050606); + internalerror(2020050614); result:=Byte(oper[i]^.val) and $07; end; end; @@ -869,7 +869,7 @@ 'bbbrrr': result:=(EvalMaskCode('bbb') shl 3) or EvalMaskCode('rrr'); else - internalerror(2020050409); + internalerror(2020050426); end; end; @@ -904,7 +904,7 @@ '''': begin if (maskcode='') or (maskcode[length(maskcode)]<>'r') then - internalerror(2020050408); + internalerror(2020050425); maskcode[length(maskcode)]:='R'; end; else @@ -947,7 +947,7 @@ if (ch=',') or (i>length(code)) then begin if token='' then - internalerror(2020050402); + internalerror(2020050424); if token[1]='$' then begin Val(token,b,valcode); @@ -1311,7 +1311,7 @@ R_INTREGISTER : result:=taicpu.op_ref_reg(A_LD,ref,r); else - internalerror(200401041); + internalerror(2004010403); end; end; Index: compiler/z80/agsdasz80.pas =================================================================== --- compiler/z80/agsdasz80.pas (revision 47063) +++ compiler/z80/agsdasz80.pas (working copy) @@ -147,7 +147,7 @@ else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_realconst(hp).value.s80val)) else - internalerror(2017091901); + internalerror(2017091904); end; {$pop} {$endif} @@ -155,7 +155,7 @@ aitrealconst_s64comp: writer.AsmWriteLn(asminfo^.comment+'value: '+extended2str(tai_realconst(hp).value.s64compval)); else - internalerror(2014050604); + internalerror(2014050601); end; end; writer.AsmWrite(dbdir); @@ -190,7 +190,7 @@ else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val))) else - internalerror(2017091901); + internalerror(2017091905); pdata:=@eextended; end; {$pop} @@ -202,7 +202,7 @@ pdata:=@ccomp; end; else - internalerror(2014051001); + internalerror(2014051002); end; count:=tai_realconst(hp).datasize; { write bytes in inverse order if source and target endianess don't @@ -224,7 +224,7 @@ begin { only supported for double } if tai_realconst(hp).datasize<>8 then - internalerror(2014050605); + internalerror(2014050607); { switch bit of the index so that the words are written in the opposite order } swapmask:=4; @@ -417,7 +417,7 @@ catching bugs in the code generator during compilation } if ((o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO)) and ((o.ref^.offset<-128) or (o.ref^.offset>127)) then - internalerror(2020042802); + internalerror(2020042805); writer.AsmWrite(tostr(o.ref^.offset)); writer.AsmWrite(' ('); if o.ref^.base<>NR_NO then @@ -441,7 +441,7 @@ if o.ref^.base<>NR_NO then begin if o.ref^.index<>NR_NO then - internalerror(2020040201); + internalerror(2020040203); writer.AsmWrite(std_regname(o.ref^.base)); need_plus:=true; end @@ -448,7 +448,7 @@ else if o.ref^.index<>NR_NO then begin if o.ref^.scalefactor>1 then - internalerror(2020040202); + internalerror(2020040206); writer.AsmWrite(std_regname(o.ref^.index)); need_plus:=true; end; @@ -474,7 +474,7 @@ end; end; else - internalerror(10001); + internalerror(2020100803); end; end; @@ -507,7 +507,7 @@ end; end; else - internalerror(10001); + internalerror(2020100804); end; end; Index: compiler/z80/agz80vasm.pas =================================================================== --- compiler/z80/agz80vasm.pas (revision 47063) +++ compiler/z80/agz80vasm.pas (working copy) @@ -148,7 +148,7 @@ else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_realconst(hp).value.s80val)) else - internalerror(2017091901); + internalerror(2017091906); end; {$pop} {$endif} @@ -156,7 +156,7 @@ aitrealconst_s64comp: writer.AsmWriteLn(asminfo^.comment+'value: '+extended2str(tai_realconst(hp).value.s64compval)); else - internalerror(2014050604); + internalerror(2014050602); end; end; writer.AsmWrite(dbdir); @@ -191,7 +191,7 @@ else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val))) else - internalerror(2017091901); + internalerror(2017091907); pdata:=@eextended; end; {$pop} @@ -203,7 +203,7 @@ pdata:=@ccomp; end; else - internalerror(2014051001); + internalerror(2014051003); end; count:=tai_realconst(hp).datasize; { write bytes in inverse order if source and target endianess don't @@ -225,7 +225,7 @@ begin { only supported for double } if tai_realconst(hp).datasize<>8 then - internalerror(2014050605); + internalerror(2014050609); { switch bit of the index so that the words are written in the opposite order } swapmask:=4; @@ -426,7 +426,7 @@ {if SmartAsm then AddSymbol(o.ref^.symbol.name,false);} if (o.ref^.base<>NR_NO) or (o.ref^.index<>NR_NO) then - internalerror(2020041101); + internalerror(2020041102); // writer.AsmWrite('#'); case o.ref^.refaddr of addr_lo8: @@ -452,13 +452,13 @@ if o.ref^.base<>NR_NO then begin if o.ref^.index<>NR_NO then - internalerror(2020040201); + internalerror(2020040204); writer.AsmWrite(std_regname(o.ref^.base)); end else if o.ref^.index<>NR_NO then begin if o.ref^.scalefactor>1 then - internalerror(2020040202); + internalerror(2020040207); writer.AsmWrite(std_regname(o.ref^.index)); end; if o.ref^.offset > 0 then @@ -475,7 +475,7 @@ if o.ref^.base<>NR_NO then begin if o.ref^.index<>NR_NO then - internalerror(2020040201); + internalerror(2020040205); writer.AsmWrite(std_regname(o.ref^.base)); need_plus:=true; end @@ -482,7 +482,7 @@ else if o.ref^.index<>NR_NO then begin if o.ref^.scalefactor>1 then - internalerror(2020040202); + internalerror(2020040208); writer.AsmWrite(std_regname(o.ref^.index)); need_plus:=true; end; @@ -508,7 +508,7 @@ end; end; else - internalerror(10001); + internalerror(2020100805); end; end; @@ -541,7 +541,7 @@ end; end; else - internalerror(10001); + internalerror(2020100806); end; end; Index: compiler/z80/aoptcpu.pas =================================================================== --- compiler/z80/aoptcpu.pas (revision 47063) +++ compiler/z80/aoptcpu.pas (working copy) @@ -274,7 +274,7 @@ A_IN: begin if p.ops<>2 then - internalerror(2020051602); + internalerror(2020051612); if (p.oper[1]^.typ=top_ref) and ((p.oper[1]^.ref^.base=NR_C) or (p.oper[1]^.ref^.index=NR_C)) then result:=(reg=NR_ADDSUBTRACTFLAG) or (reg=NR_PARITYOVERFLOWFLAG) or @@ -293,7 +293,7 @@ A_LD: begin if p.ops<>2 then - internalerror(2020051112); + internalerror(2020051114); result:=(p.oper[0]^.typ = top_reg) and (Reg1WriteOverwritesReg2Entirely(p.oper[0]^.reg,reg)) and ((p.oper[1]^.typ = top_const) or @@ -352,7 +352,7 @@ not(Reg1ReadDependsOnReg2(NR_BC,reg))); end; else - internalerror(2020051111); + internalerror(2020051108); end; end; Index: compiler/z80/aoptcpub.pas =================================================================== --- compiler/z80/aoptcpub.pas (revision 47063) +++ compiler/z80/aoptcpub.pas (working copy) @@ -231,7 +231,7 @@ A_LD: begin if p.ops<>2 then - internalerror(2020051112); + internalerror(2020051115); { LD A,I or LD A,R ? } if (p.oper[0]^.typ=top_reg) and (p.oper[0]^.reg=NR_A) and (p.oper[1]^.typ=top_reg) and ((p.oper[1]^.reg=NR_I) or (p.oper[1]^.reg=NR_R)) then @@ -250,7 +250,7 @@ A_INC,A_DEC: begin if p.ops<>1 then - internalerror(2020051602); + internalerror(2020051613); if (p.oper[0]^.typ=top_reg) and ((p.oper[0]^.reg=NR_BC) or (p.oper[0]^.reg=NR_DE) or (p.oper[0]^.reg=NR_HL) or @@ -274,7 +274,7 @@ A_ADD: begin if p.ops<>2 then - internalerror(2020051601); + internalerror(2020051611); if (p.oper[0]^.typ=top_reg) and ((p.oper[0]^.reg=NR_HL) or (p.oper[0]^.reg=NR_IX) or (p.oper[0]^.reg=NR_IY)) then result:=Reg1ReadDependsOnReg2(Reg,NR_HALFCARRYFLAG) or Reg1ReadDependsOnReg2(Reg,NR_ADDSUBTRACTFLAG) or @@ -300,7 +300,7 @@ A_IN: begin if p.ops<>2 then - internalerror(2020051602); + internalerror(2020051614); if (p.oper[1]^.typ=top_ref) and ((p.oper[1]^.ref^.base=NR_C) or (p.oper[1]^.ref^.index=NR_C)) then result:=Reg1ReadDependsOnReg2(Reg,NR_ADDSUBTRACTFLAG) or Reg1ReadDependsOnReg2(Reg,NR_PARITYOVERFLOWFLAG) or @@ -311,7 +311,7 @@ result:=false; end; else - internalerror(2020051111); + internalerror(2020051113); end; end; end; Index: compiler/z80/cgcpu.pas =================================================================== --- compiler/z80/cgcpu.pas (revision 47063) +++ compiler/z80/cgcpu.pas (working copy) @@ -233,7 +233,7 @@ a_load_reg_ref(list,paraloc^.size,paraloc^.size,r,ref); end; else - internalerror(2002071004); + internalerror(2002071003); end; end; @@ -369,7 +369,7 @@ ref: treference; begin if not(tcgsize2size[paraloc.Size] in [1..4]) then - internalerror(2014011101); + internalerror(2014011104); if use_push(paraloc) then begin @@ -435,7 +435,7 @@ hp:=hp^.Next; end; else - internalerror(2002071004); + internalerror(2002071005); end; end; end; @@ -1071,7 +1071,7 @@ else list.concat(taicpu.op_reg(A_RR,GetOffsetReg64(reg,reghi,tcgsize2size[size]-1))); else - internalerror(2020040903); + internalerror(2020040905); end; if size in [OS_S16,OS_16,OS_S32,OS_32,OS_S64,OS_64] then begin @@ -1086,7 +1086,7 @@ OP_SHL: list.concat(taicpu.op_reg(A_RL,GetOffsetReg64(reg,reghi,i-1))); else - internalerror(2020040904); + internalerror(2020040906); end; end; end; @@ -1430,7 +1430,7 @@ if ref.index<>NR_NO then begin if ref.scalefactor>1 then - internalerror(2020042002); + internalerror(2020042003); getcpuregister(list,NR_A); emit_mov(list,NR_A,NR_L); list.concat(taicpu.op_reg_reg(A_ADD,NR_A,ref.index)); @@ -1569,7 +1569,7 @@ regsused: tregisterlist; begin if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then - internalerror(2011021307); + internalerror(2011021301); if tcgsize2size[fromsize]>=tcgsize2size[tosize] then fromsize:=tosize; @@ -1745,7 +1745,7 @@ OC_BE: a_jmp_flags(list,F_NC,l); else - internalerror(2020042206); + internalerror(2020042218); end; ungetcpuregister(list,NR_A); end @@ -1764,7 +1764,7 @@ OC_GTE: a_jmp_flags(list,F_P,l); else - internalerror(2020042206); + internalerror(2020042219); end; ungetcpuregister(list,NR_A); end @@ -1783,7 +1783,7 @@ OC_LTE: a_jmp_flags(list,F_P,l); else - internalerror(2020042206); + internalerror(2020042220); end; ungetcpuregister(list,NR_A); end; @@ -1805,7 +1805,7 @@ OC_NE: a_jmp_flags(list,F_NE,l); else - internalerror(2020042206); + internalerror(2020042221); end; end; if cmp_op=OC_EQ then @@ -1828,7 +1828,7 @@ OC_LTE: a_jmp_signed_cmp_3way(list,l,nil,tmpl); else - internalerror(2020042206); + internalerror(2020042222); end else if i<>0 then case cmp_op of @@ -1843,7 +1843,7 @@ OC_LTE: a_jmp_unsigned_cmp_3way(list,l,nil,tmpl); else - internalerror(2020042206); + internalerror(2020042223); end else case cmp_op of @@ -1860,7 +1860,7 @@ OC_LTE: a_jmp_unsigned_cmp_3way(list,l,l,nil); else - internalerror(2020042206); + internalerror(2020042224); end; end; cg.a_label(current_asmdata.CurrAsmList,tmpl); Index: compiler/z80/cpubase.pas =================================================================== --- compiler/z80/cpubase.pas (revision 47063) +++ compiler/z80/cpubase.pas (working copy) @@ -436,7 +436,7 @@ reghi:=NR_H; end; else - internalerror(2020042801); + internalerror(2020042804); end; end; Index: compiler/z80/cpupara.pas =================================================================== --- compiler/z80/cpupara.pas (revision 47063) +++ compiler/z80/cpupara.pas (working copy) @@ -525,7 +525,7 @@ { just continue loading the parameters in the registers } result:=create_paraloc_info_intern(p,side,varargspara,curintreg,curfloatreg,curmmreg,cur_stack_offset) else - internalerror(200410231); + internalerror(2004102302); end; begin Index: compiler/z80/nz80add.pas =================================================================== --- compiler/z80/nz80add.pas (revision 47063) +++ compiler/z80/nz80add.pas (working copy) @@ -302,7 +302,7 @@ { Already handled before the case statement. Nothing to do here. } end; else - internalerror(2020040402); + internalerror(2020040403); end; current_asmdata.getjumplabel(l); cg.a_jmp_flags(current_asmdata.CurrAsmList,F_PO,l); @@ -400,7 +400,7 @@ unequaln: cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,truelabel); else - internalerror(2020042102); + internalerror(2020042104); end; end; cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_A); @@ -422,7 +422,7 @@ unequaln: cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,truelabel); else - internalerror(2020042102); + internalerror(2020042105); end; end; cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_A); @@ -494,7 +494,7 @@ gten: tcgz80(cg).a_jmp_unsigned_cmp_3way(current_asmdata.CurrAsmList,falselabel,nil,truelabel); else - internalerror(2020042202); + internalerror(2020042207); end else case actualnodetype of @@ -538,7 +538,7 @@ gten: tcgz80(cg).a_jmp_signed_cmp_3way(current_asmdata.CurrAsmList,falselabel,nil,truelabel); else - internalerror(2020042202); + internalerror(2020042210); end else if i<>0 then case actualnodetype of @@ -549,7 +549,7 @@ gten: tcgz80(cg).a_jmp_unsigned_cmp_3way(current_asmdata.CurrAsmList,falselabel,nil,truelabel); else - internalerror(2020042202); + internalerror(2020042211); end else case actualnodetype of @@ -562,7 +562,7 @@ gten: tcgz80(cg).a_jmp_unsigned_cmp_3way(current_asmdata.CurrAsmList,falselabel,truelabel,truelabel); else - internalerror(2020042203); + internalerror(2020042215); end; end; cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_A); @@ -587,7 +587,7 @@ gten: tcgz80(cg).a_jmp_signed_cmp_3way(current_asmdata.CurrAsmList,falselabel,nil,truelabel); else - internalerror(2020042202); + internalerror(2020042212); end else if i<>0 then case actualnodetype of @@ -598,7 +598,7 @@ gten: tcgz80(cg).a_jmp_unsigned_cmp_3way(current_asmdata.CurrAsmList,falselabel,nil,truelabel); else - internalerror(2020042202); + internalerror(2020042213); end else case actualnodetype of @@ -611,7 +611,7 @@ gten: tcgz80(cg).a_jmp_unsigned_cmp_3way(current_asmdata.CurrAsmList,falselabel,truelabel,truelabel); else - internalerror(2020042203); + internalerror(2020042216); end; end; cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_A); @@ -621,7 +621,7 @@ { Already handled before the case statement. Nothing to do here. } end; else - internalerror(2020042103); + internalerror(2020042106); end; end; end; Index: compiler/z80/tgcpu.pas =================================================================== --- compiler/z80/tgcpu.pas (revision 47063) +++ compiler/z80/tgcpu.pas (working copy) @@ -54,7 +54,7 @@ begin { this is a negative value normally } if l>0 then - internalerror(200204221); + internalerror(2002042202); firsttemp:=l; lasttemp:=l; {$ifdef EXTDEBUG} |
|
I wasn't quite expecting you to fix all of them at once. Also, unless I'm thinking of the wrong platform, how good is Z80 at handling 32-bit numbers? I noticed many of them are 16-bit. Granted it shouldn't be a concern because raising an internal error isn't exactly performance-critical, |
|
Z80 is available only as cross compiler so 32-bit internal error numbers are fine. |
|
@J. Gareth Moreton: The compiler is not running on Z80 so its irrelevant for the internal errors what that architecture supports. The "smallest" architecture/OS FPC itself runs on is DOS with DOS-Extender (thus 32-bit). |
|
I split the big patch by folders in case all is not acceptable, but part for z80 and xtensa should not be not a problem. |
|
Thanks, I applied it. |
Date Modified | Username | Field | Change |
---|---|---|---|
2020-10-08 12:32 | Marģers | New Issue | |
2020-10-08 12:32 | Marģers | File Added: intererror_log.txt | |
2020-10-08 12:32 | Marģers | File Added: interr.patch | |
2020-10-08 15:40 | J. Gareth Moreton | Note Added: 0126146 | |
2020-10-08 15:41 | J. Gareth Moreton | Note Edited: 0126146 | View Revisions |
2020-10-08 19:51 | Marģers | Note Added: 0126149 | |
2020-10-09 09:43 | Sven Barth | Note Added: 0126171 | |
2020-10-09 10:56 | Marģers | Note Added: 0126174 | |
2020-10-09 10:56 | Marģers | File Added: patch_spilt_by_folders.zip | |
2020-10-13 21:59 | Florian | Assigned To | => Florian |
2020-10-13 21:59 | Florian | Status | new => resolved |
2020-10-13 21:59 | Florian | Resolution | open => fixed |
2020-10-13 21:59 | Florian | Fixed in Version | => 3.3.1 |
2020-10-13 21:59 | Florian | Fixed in Revision | => 47103 |
2020-10-13 21:59 | Florian | FPCTarget | => - |
2020-10-13 21:59 | Florian | Note Added: 0126287 | |
2020-10-14 15:49 | Marģers | Status | resolved => closed |