View Issue Details

IDProjectCategoryView StatusLast Update
0038177FPCCompilerpublic2020-12-06 22:55
ReporterKai Burghardt Assigned To 
PrioritynormalSeverityminorReproducibilityalways
Status newResolutionopen 
Platformx86_64OSGNU/Linux 
Product Version3.2.0 
Summary0038177: no packEnum (minEnumSize) value 8 available
Descriptionsymdef.pas checks for packenum=8

https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/compiler/symdef.pas?view=markup&pathrev=47667#l2866

but packenum can never be 8, confer scandir.pas

https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/compiler/scandir.pas?view=markup&pathrev=47660#l1108
Additional InformationPlease don’t produce code that is useless. Either support {$packenum 8}, or remove any references to such.
TagsNo tags attached.
Fixed in Revision
FPCOldBugId
FPCTarget
Attached Files

Activities

Kai Burghardt

2020-12-06 22:55

reporter  

symdef.pas.patch (526 bytes)   
--- symdef.pas~	2020-12-06 21:53:26.695056117 +0000
+++ symdef.pas	2020-12-06 21:53:26.695056117 +0000
@@ -2850,7 +2850,7 @@
     procedure tenumdef.calcsavesize(packenum: shortint);
       begin
 {$IFNDEF cpu64bitaddr} {$push}{$warnings off} {$ENDIF} //comparison always false warning
-        if (packenum=8) or (int64(min)<low(longint)) or (int64(max)>high(cardinal)) then
+        if (int64(min)<low(longint)) or (int64(max)>high(cardinal)) then
          savesize:=8
 {$IFNDEF cpu64bitaddr} {$pop} {$ENDIF}
         else
symdef.pas.patch (526 bytes)   

Issue History

Date Modified Username Field Change
2020-12-06 22:55 Kai Burghardt New Issue
2020-12-06 22:55 Kai Burghardt File Added: symdef.pas.patch