Skip to content
GitLab
  • Menu
Projects Groups Snippets
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
    • Switch to GitLab Next
  • Sign in / Register
  • FPC Source FPC Source
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
    • Locked Files
  • Issues 1,274
    • Issues 1,274
    • List
    • Boards
    • Service Desk
    • Milestones
    • Iterations
  • Merge requests 59
    • Merge requests 59
  • CI/CD
    • CI/CD
    • Pipelines
    • Jobs
    • Schedules
    • Test Cases
  • Deployments
    • Deployments
    • Releases
  • Packages & Registries
    • Packages & Registries
    • Package Registry
    • Container Registry
    • Infrastructure Registry
  • External wiki
    • External wiki
  • Activity
  • Graph
  • Create a new issue
  • Jobs
  • Commits
  • Issue Boards
Collapse sidebar
  • FPC
  • FPC
  • FPC SourceFPC Source
  • Issues
  • #39387
Closed
Open
Created Oct 01, 2021 by Andrey Zubarev@zamtmn

Sources cannot recompile

First compilation works fine, Second crashes with an error. You can recompile only after deleting .o;.ppu Try bug.zip

`D:\bug>fpc parscompare.pas
Free Pascal Compiler version 3.3.1 [2021/07/21] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling parscompare.pas
Compiling uzeparser.pas
Compiling uzbhandles.pas
Compiling uzbsets.pas
uzeparser.pas(1237,42) Warning: Local variable "SubStr" does not se uzeparser.pas(1282,9) Warning: Constructing a class "TParsedTextWit ds"
uzeparser.pas(1284,7) Warning: Constructing a class "TParsedTextWit s"
uzeparser.pas(1287,9) Warning: Constructing a class "TParsedText" w uzeparser.pas(1336,32) Warning: Local variable "currpos" does not s uzeparser.pas(1498,23) Warning: Local variable "PTokenizerSymbolDat uzeparser.pas(62,39) Note: Private type "GTAdditionalDataManipulato uzeparser.pas(63,5) Note: Private type "GTAdditionalDataManipulator never used
uzeparser.pas(63,5) Note: Private type "GTAdditionalDataManipulator ymbol" never used
uzeparser.pas(167,40) Note: Private type "TStrProcessor$5.GSymbol" Writing Resource String Table file: uzeparser.rsj
Linking parscompare.exe
1811 lines compiled, 1.2 sec, 313152 bytes code, 19428 bytes data
6 warning(s) issued
4 note(s) issued

D:\bug>fpc parscompare.pas
Free Pascal Compiler version 3.3.1 [2021/07/21] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling parscompare.pas
uzeparser.pas(3,12) Error: Compilation raised exception internally Fatal: Compilation aborted
An unhandled exception occurred at $0042457F:
EListError: List index exceeds bounds (4371)
$0042457F
$004245A7
$0047107C
$004785B7
$00441825
$0047E6E5
$00441905
$0047928A
$00480D3F
$00441905
$0047928A
$00480D3F
$00441905
$004DE0A2
$004DE6C9
$005C0325
$005C361F

Error: E:\pp\bin\i386-win32\ppc386.exe returned an error exitcode`

bug.zip

Edited Oct 01, 2021 by Andrey Zubarev
To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information
Assignee
Assign to
Time tracking