Gpc

gpc@gnu.de

5400 discussions

gpi-hash.c segfaults
by Bill Currie 22 Jul '97

22 Jul '97

I just applied both sets of patches to gpc to take it up to 970721 (hopefully properly) and unfortunatly, gpc still segfaults in get_uid. After some searching of the code for gpi-hash.c, and having a good look at my code that causes gpc to crash, I realised that there is no provision for REMOVING symbols (trees?) from the hash table. I thought of looking for this because the files that cause me problems re-use parameter names or record member names. If a tree that has been put in the hash table is ever destroyed (I don't know if this happens as I don't know the internals of gpc), it seems a pointer to the destroyed tree/hash bucket will still exist in the hash table. This could very easily be causing the invalid pointer dereferencing. Hmm, I just tried out my previous sample file (under windows 95) and got a crash as well, so my above reasoning may be incorrect. here is the stack dump: Exiting due to signal SIGSEGV Page fault at eip=000ee4d0, error=0004 eax=0c000000 ebx=000003f1 ecx=ff905350 edx=ec000009 esi=ff905350 edi=ff8e16a0 ebp=ff8de948 esp=ff8de944 program=C:\DJGPP\BIN\GPC1.EXE cs: sel=0117 base=82f23000 limit=ff975fff ds: sel=011f base=82f23000 limit=ff975fff es: sel=011f base=82f23000 limit=ff975fff fs: sel=00f7 base=0001d710 limit=0000ffff gs: sel=012f base=00000000 limit=ffffffff ss: sel=011f base=82f23000 limit=ff975fff Call frame traceback EIPs: 0x000ee4d0 _get_uid+32, line 134 of gpi-hash.c 0x000ee61a _hashed_save+34, line 197 of gpi-hash.c 0x000ebf30 _store_tree+24, line 1139 of module.c 0x000ec5a3 _store_tree+1675, line 1417 of module.c 0x000ee741 _flush_suspended+133, line 246 of gpi-hash.c 0x000ed89c _create_gpi_files+576, line 2290 of module.c 0x001113ef _yyparse+31247, line 5994 of parse.c 0x000c9de2 _compile_file+1510, line 2232 of toplev.c 0x000cc1b9 _main+3221, line 3938 of toplev.c 0x00120bc6 ___crt1_startup+290 the command line uses was:gpc -O2 -o foo.o -c foo.pas The test file is attached. Sigh, this is getting frustrating (and probably more so for you, Peter) Bill -- Leave others their otherness. The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any another MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance. ---- File information ----------- File: foo.pas Date: 17 Jul 1997, 15:04 Size: 381 bytes. Type: Program-source

1 0

Re: Bugs with integer() in packed records
by Peter Gerwinski 21 Jul '97

21 Jul '97

According to Frank Heckenbach: > > I found some bugs with the new integer() types in packed records. Fixed. The uuencoded gzipped diff below should also fix some other bugs. Greetings, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125] 8< ---- gpc-970719-970721.diff.gz.uu ----------------------------------------- begin 644 gpc-970719-970721.diff.gz M'XL(`,EQTS,"`^Q<>7/;1K+_F_P4LXHW)D60(GA((K6.+5.4(Z]$ZHETG%0V M!8/`D$0$`E@<.M;V=W_=/8.+ARPYM?5*]:@XQ-5S]73_^I@!>G/=F?&`35V? MS3R#37UW@2?5SD']0.W4BL6>I+`<-K5L.+EW(V;H#O.YX3I!Z$=&R&ZM<,[> M6H'K*(R'^BQ0V$*_YI8S=96B[IALS']E<_V&LPGG#G,75AARL\;8R%UPYDY9 M..<!EPWH/F>19^I`P?Z,@I!-[HN3R+)-RYDA(3/<A0>4/I3_379&T--3GT.1 MI2JA!G['C2@455@!UK&`CA6+C%%7V?CXW8AAAYEY8['JE%W`72Q=LYQB$4:/ M=9L6C#IT_7MLX-UECP5NY!L<ANOY[HUE0H^1S.%P+]"!+'1=.RB6EGE"_$"^ MA/S.:D"#91JU!?S4;1LX4RR.7:9[GGTOQV%:TRG4,'.ARJ6NI--%548!C[F4 MC)!Y>FC,6=53B\4IY\1)*R2RJ6O;[BW>H":8CE/M16&M.)YSG&5'7_"E%J$+ MT"ATLHAE6-5GU0]-5AVPZAW;K;GB8+LS>6V;>!+S$\]!<J;6K&;HQCQ[#:,/ MHP!OX)ANN!]8KE,SJ!I/]P.>.Y_'A#./^U-Q2;,H;M=>OT[/XDIK>G1'IZ^- M&L[$KKR_6YN'"UOTE^8?3T)7-)<\.QN,QL?GYWAZ>OG/F^#=X`.>!QXW`C$, MGX8C>XZG?ACD!X(WY'#C`<3C,#Q/GJIXM*T)]3C#("HQ^=U2C#^JU/5Y]D&8 MO0!9<JJ[M=\-9?X'7KM>"'T(Q$/JL3P-]85'=84+V2/N[,HG,_Z[6FW](>HS M[,BDX;VN5(C`$/TT#(/Z+;O/G7]'EN##U';UL#873,Y>+"([M&!\HD$XV17# MC!P3>(5L%,RZ@WFBHVT!9,0]MD)>XW>>F)N)?BU.@EO!/<.H-FH'M0;\)Z0^ MU8\];^_XP_CGX=4(;Z97Q6JUNI:L,)Y'[#W@"U-97>W6Z_"/J4!5K%0J^3H* MH\AA[R.;-9"BVVYW&_MPTCDHOGG#JG6ESBJJTFBP-V^*E2L^LX*0^X@B/=>[ M]ZW9/!0@C")UJ0>&;A<KKQ[S5ZP4*^^CZVN=_6+YH>YPIUAAS/`YX2>@B81` M?F=P#U7>!7RPL7D3P!A47T'ZB1[`M2M0[ETO!K8:UG[)L:OON`\H$5Q;V>J1 M9XYK\J!F\JDB\(1:`[P4PKC'%W=[BL`Z:AJ>F*ZQA[640G?&H8PO[`?PN?I> MU[VR(.=W(7<"ZX8#!BY<`!HK.Q[`?AJY+,-N8))`=MC/W/K3S/,`@:=J@Q4# MC5>RL*XPO%M--$->2^6@X6`]RR-BI1PO\T,M+W%APUB)IT`+:+"'/=H58\9+ M4=DNL?[8!K/U)_O%M=WKN7N39[U5G>O!O&8HZ?E<5&-8OF'SZB2:XM,E9F(E M"3_A)`)>&+(UF^D1C,H/8@G1)RX8;;+<>A!8,T=8.,N',4NY12'V=+"Y:&PJ MTRB,0/D-Z36@F4PD.C9=IS[G8/FGX2T:O:D+6J_C%+#2Z>BT7-L:E:U1>5Y& M1?C(YR";PB0DUZN&)7F4M1?U1K?>[#:EO4A-2TI\X4IBE:G[W<9!MZZFQD55 MFFA<FDTR+D@*9$B-%$BOJHPMH3C[AX<W:K/XQIO(L:K@M7('L/PGA(/"+I.V MK0L>[2UA6DT^N.H?GUST:Z=GYWWM_/BWX8<QP<QX>#+LQLY[3$M2",XH"FL7 MA0Y$-]2`7`-%-:Y+Y2[YK*!_W"%G%T,`!`7VZ77W9;:6\!Y$[!IKH7A`,S0# M@`<K,%VP6.BG^M:-!4CC(^,8U0^N+=11``C^B,B[J9DRT<2]`U.L"<!;`+5L M(5\I1#HWX"!;$&E`M\"WAS@!J[C1?4MWP)PO4%#2[L=PW04=`%G4YEP'N2R! M$0`9-C6!Q,E=&.)_N.\R+*.%^H18#[5_!/^<`A@$4A<`&&P,@"QX^O<8@P#= M(A`FAJBP./3UM>R%P+C[KN@D$&LPSFGD&*C&FFY@V*(M]/L)SXR^2PWK&":P M3V^FKON2V3>Z'<FP$5HUN!GYP/6XUD#T=:ICN-"%3C@F0#3B`\X-S!G%?**N M6LJT#?UQ7,TRN[(#D2P[X+<O,5;1J?A.7&9'C-US+0>D.T"+$\"$P53HPA!. MK3LA*9-H%L23`W&AC1,C1BX*:*85&#X@A*,+`9"C`(R`"#,@V*.VA2@"`H,P MVC92T@`];=#_V*5H%`'\$W#L):MBU+4@JSGALN\D/28W[",&IA,-[`Y@)'24 MVR8,1_<=BM8<&`KW?6#X`F/+F90'+`@2K5T[[JT#?`JP`ZBM6&W`=BZX><5U M>X<&OW/NHE4.Z4X\>.P?N$<0UH?(`V!0Y&F1(XR]AM5@E1CM^Q!<ROL.](%) M(a)1__=MG7?K\X&WRY./[U#^V7X_,/?6(M&^DA8%`*18UVMW7P9"AB12;U'P>+ M?02FNO8-1RT%_IB:G&[13S,R9+RJ+W345QUDQMPZ%5NGXGDY%6M,K/`*5A^L MNAFK-.1"7.@^:[28V@(][%*@FO,WUI3*1[50JME)'8^VJJ@M5L'#/OH>K&!4 M/5^?+?2:@6I;K#9KV309N_4Q\>>(-"/`*UE(=DRI+])9;X\%T23)--78V`4# M@X8V+)(P1BB?(L;"`>\R2D\!"0'[W(UL#&N9Z;N>AQG&8SMPE8SN&<P*BE6( MH6P(*W4FS"VY-JST#AB!&!X@2HMXJ@Q1YE\=`_*AD.F!O(I#+WDI3;.\$A9) M7B1:"7`K8'`*`@87HH]PDM15*<3U5`JRCDHA+<^P/!T#'KJ>K#'V3+(76&LV MC-SBYQ8_GQ=^8BPB<0U/5S$2[Q;&$6?'GH\)OD8=\4T]7$9%HLL&8&JW>=!M M9[)[346MLTI3:=8)!8O@YZ$.$&P@(DQP24+F0.+%"WIPZ_J@,J!P&$OX+.#@ M\B!<5-G9P@-7'F"/Z!86>)S@!?8QC8.K#+(RX(WKAWO6`@]LRG5,OJ#O564C MCP-=Y&$GR-4K5BYMW4F6>H!U*M`M_R%=E9T"F&*J#9UD`6L02TQXJ,<"7Q-T ME]R?ZQZ$.J@.;V$PZ&4&80104?IT3!'$2X5]\MP`#K5:K4S><EBU'-FE4Y$N MHI[E>R,:&,UQ8",(ZQQTUXFURTRP'"N$N,*">(E(*G^9>]C*_T10)>7(+!,J MPE,_[L&E#'FX#+7BZ`4"REE$S6+Z+)!,ZMD02_'X:CCY$^S"GH$WV1FZK1`F MX=,MP&X!]ED!;-8]D%"9\QA6`#?[M("QH0@,R1UM=ELKP)NGSSFB\*]^F,V` MM3$#UD;XK>[MLAZ5!+"93@%6?1<7?F6Z@A8X`)>+5<;2Q1=6ZI49@Q!U*3E] MFB2G%5!63),_7'MV^6:E?HJ!O]4``,P8T9;T&XZ@H&$^C8XT6[#8@L6S`HML M$EBJ=_;6*EADGZZ"17L%+'+T&6\-UVP;W68K`Q;M5I/BUO@$?3;YM[L7GUK@ MPI0HM75Q-A!)+5;";%@Y(<:_'W]DXZM^7^L-3^#Y6OHR>_4*1'C<?]>_TGHC MB-8+F8(?!J.S=X/^25PY/82_UU@$R;7S<99(8>L;20IV,P4?H!?Y;NQ&:6T_ M*K*ZIW<D*?G8GN0X^N5+S,;C7S>S?0/GEXJLY_PCF+]YV&O;45B8*YL?^,8B M&5Y]>QJ^ITO9PH_N4X;1(M]<VJ&-7CJXM6#JT!;10LA.^:C(?@"'&C0%C"+: MU+SVT'B&O_2O3L^''Z$)J'EKMK9FZ]F9+;'JD#$SXL9ZDR6>/69Q=SUU`Z@[ MN&"[UK=%1:/@$V)'L?)#KF-`JSO)ZAMYHKUTF^0:5U?M'!XJV$:#?IOTVZ+? M]C==X`=JJY*/^Q=<W%YOZ]YN<>)9XD2\.R&CW_&M]5@1/WTL6B3T*^YM-A9N M-]K[R@&KT+%5SWJW&1\KXSJ1[4=/Z7*(OM*5ALX!N@$%Z8VEI&Y">]4_/B=" M(EOUQU8)R46E?0/L5;S/0M`IC&Z#/U$I?":G)7$?1&7B\;(SE_&=AE<G9P/9 MSIH.EQ]%F_.+V>>D#&#NR8/;2Y34T=HE)/:XB>OVN'L.'"9![,)X059ODV5S M20\29UN&%>*N@9"2K+>T1=XW+0>WS.$R?BU3@'839O\>"%0J;/7O>P*6K!_Y M.%?U(7^59O/;T<-ZQ_7!PN6U0]X<4:SCSW=&%LO=?CR7GNS8"VU86]&CG'Q1 M?BVS8L'=X/*S*FA`Y!BXNPO=_USYK[2?)*.[2R-G?WNU''31I=!#V:FLHE+W M+Z_ZO;/1V7"0K67IP6HUFY18O!?AQ(845S9N76&1`H7QVBRK:92=GW'P0JH_ ML9XN%1(O<!L-WLBKI3P/T?EQ^"UMG0&H$_N#\$+#/;/KNGN4%%YB4%P-B-O: M@#4M&`,KM::RTF!XJ?5_O;Q2DJYD45;.5R$MMQ&0O\;6@]L!3RW)9\)]G.N_ MQ<J"7LP@5M&RL$7MPZ:R#[9H7]U7.HDI\CGN=!+AI;;0_6L--Y$?H6,HY4=( M+NGWU1G5FAB4-<_\>1"CQP_6U.3T;HZ03ME4:67;83Q2*$L3\`..#\7$<<-< M,/LY'G2,X%J\)PO;Q2`XD;`>58S>MUCEL6YXM8<;Y,#E<VW<LTY^[ZUEV^#W M!L!X/=W@-94<Z]0%QQIHQ5/C+?:FN9,_#0T=>[&]*QV#.*FGW9$#AT?RUE<< M8QRM9P<9,]UP<2L$</B7X=F),-DQ![;^^-8??V;^>+RI)?&?DUTN:WSQ^-GC M//&$.KLIH-%5][NM]N:X_8+VZ+`@\FBYN:2;IH5SA>ZD7$(J+Z\A?><:U7]S MY0F'UC@@C,)##%%!4+OF]V!(ZDE6$&]/<;<49Z4?`["O@?4?#O65@@"\$!6N MA0LA-CJ7TIW."65Z2^`:KO1KP*L)-\$V.JS"U'JC53Z"GO\`J`\L9)=7PUY_ M--(&X+N5'`7M"C#M7P1DD65J'G0QX*$&YU`%/`4#"14`!6WDJ!_@P)KU0SDP M`G]W.M7`/_>.T@O?>VK7T5):"^BYAOP%(`>],ZXU'!(WRTNF!J0[1P$,7"T+ M%6]Q>8O+SPJ7XXV*$DO3/9#+F!P_>0PBKZ/%/0('W4;CT7C\3>05"=).&_[? M5[X;AEO5[2Z`K?K_?U5_N3E9ZFVRY7E9^>6#Q^A^3)IUQ=K=]B&^:)*H?JL- MX2?8=3HVQ8)_(4TT7!Z/>C(AJ(UZ/_<OCG-!^HL7M"@J"KQXD83T&(:Y#G=" MS8>($\@4^:Z19IEH]`L%#+&_,'#T\(TAS05%T4/7AYN%S^S%/RR,V7["^H(( M1`("T^3-)[$+O02.R==OO1Y%SREM6J`8=)1]R^IVSO'=(_'2%GXG`]\Z<N3K M6UU1!A,=4_:)2`!I].2%+OR4QA3*.P:X-;(.2[QQ)8I1@@/3EOB:5;:<?!^G M%E/NB1/T@22OR4T[^7`%IQ3%OSU'1C<I<9-D;K()E2DV=I3>I*SGU-9GVNU< M#S5/[.C\D;W53C31!B4+ZN6T"$MB[=).1!M"Y<QDWNG"5\H$=RB_%1>=REQ. M1BJR`M(L9XE)1))\BI`5R1&1$RI-928."B;EOHH3RK*L\N"[>PX2<<Y#!MZQ M#EJOI<FO4IF%N$?90/L#EB46J^3=N0SCX@G,K>S+[&B>#<CSTP^#WOAL.)`I MA`S_B3.K7:&BF3YG>;"D<V*>M<C1_7M0*%8Z/CFYDHFN%TV1`,DS%-@3+?B* M:L7JUQ`%OH*Z?OGV6XA`=21CH+;:4I4.OORRWU'4@W7++/D<]$F_=ZX-CB]B MI@TO^U?'@Q,</$1#@G4!;71&_$@!IQG+7:X`97H2I7\N"OS?5B$F^?&](L_B MX58+A>\5=<HC/KEHUKQLU!"6(,2J-7J,9I#<MEHM6AYL'6(0+TSAUU1VOX@W M5]G+TLM4'Z0.N(+[],K5R_)++/E9L(HZ,OAP#E84ABI[^FTF9%<<-ZG/DH$> MOGW?[XUSM2U57,X9]TP'X&&20$9ME#GJ5OM`,*33B'<#YN0PY`OO*+[W-3,) M57$K_P(P*Q'_E#CO#[*OX=L`K)2PAZ0V%=ME3<'VDFE=KC:+B_F_1[>W,C&K M?%D&7\&"AP$Z,_M9?13(^DB94J1,B7DY/%14%2:FW:S'"!MS+)DA,("8TD<[ MJ`7A(I0#DRM>+_;+Y:.4V',]F]]P8&8=%")G+>0@7OPC)+/0?OJ$4\BXYL^8 MZY:#*OR-"8(?ZFVJ3YG.?)^HL(?^GMJO_ROI28%IXFGO^N.+_@4)DFZ$$0`> M!``@.OA">8)(V[!X&Q8_L[`8;O%@+R534[*'GJ\+G3>0TIN.[R&@!B15#[K- M>K?17(a)VF-Q7.?W^F?M!5LRL=9#_I%S'ZT1\8Q'?IL/]I:]ARS:CA=TVHOR/N M,;7!&DUH3VZ*;!>KU.'E0DOC:W2Z]48ROG7T2T/:3S(&#,>T7Z<E#CQ(WQ[^ M(118!I,?O4S>Y$S]-7$C^/T/]DHNE"!G&@?I2N[GG3?&CB)0;8>$D[XY9OS] ML^X$5O>P\Y7]_;/C!B&PT-C%BQ[^W.#/,5V?T>\E_)S]:Y6!TFF.F1@/$IER MV&VWNHW##4Q,"CZ!D6F9AYG9ZBB'K`*_,(62#VA$IJZ_6/8",5**[U_U3_M7 M_4&OGUV,CA>V5S<ZB"5P]`2DJ]MI(_?I-Q.=(4$VN@BB2:XD8ZOML%)O>'%Y MWO]UI2EE=0K,R1U]2T6*,7Y!$+D)"M/$+S>I]0TS$)=[P@0D11[F?Z?>06'& M@_A(U-)^CJD'86<(,Z('"[2&"MLYJJI'.Y*/:E,E!:<#E880:QB%H,00-28Q MI@@BD34UAA$I*C\%:_A^,VXXN.<A??]5M&IR_+X.+N7%'U>=W.%N(ZA5D4>` M$-SG/*4W?&&$CGM;6^4W3D/,;?&BD,,:'93WQK[$J?U5;HM23^"U++#*Z<,, MIQMUE5A-QX/#-;S6)[3Z*UG;.B09%0=)+`4/T02_[(/?F0#?[HZ57`]\5M=3 M%6;0PF7\,1Y/P>_X<425`OE.I1)>HPJ]/?\GGI97N0:P;%9IEU>6=P2X^[BK M%'G7V""IV;)/X&"NV,-\;!YVQ$HL'M7#K/[.7)2S('`-2P]QTY#(QXC],I6E M;3.4!47='7X8G)#R=I.*0(@_XB=N/6[J#N"Z`M)+.=V(/IB8)-9DWM3A%GV_ M,<F?KN&I3"@D'`6V#-P;UMC'CPNTZ_*3H.LXFI1<P\_F)GZFA1[F9JM]*-+? MATJCDVCP.PN_7Z:G:1!\HX#6P9`/3@CA`5KM^+&2V[N%"OM)&L*8XB45ML(: MI5!H4O;%I.SO9Y!CA%^3I)UXD8_?8J/&^)U8@A,V5'P.TIU"3QQ.'Z),QBIZ M08MC^!EG^ERR^!8+&M((O$/Z@*<U!4.-:K(&,,#KU"=!5NR',`I@'?H9(/;- M#9,4EWO"%"5%'IX@M;E/[@8=6\W$X9`QDGL-!DL5B'&@-I"EXD!T<4C,,EL= MK1LKP+F@+W`B3VU^1V#<765'[@-@&V"TK6Z`T5SA5<:H]0V,R9=;<2]C#!&^ M&$DO_*KMA#-@KYBU6("G"2"@X:8+3:0"I.FOD\N!AX::%$H0@;YPA$Y%#@W& M()-8$^ZUPSS%/7W`U9J2?0L3^<*=+&(K:7P'Y0\(.'X`E:93;9(54!L=Z+3X MYF^2A/CI)U;Z>3@::V_/QB/M$OR>CV<G?0U<("("JBI$\#Z(L`C7V'IBL7^7 M*NV*1$9N[V.%1O2_[5U;4QO'$GXVOV*B%R-T,;*$L)7P@(FQE2(<%Y)]SINR MH`4VD78I78RI%/_]S-?=<UOM2LCD)55VE0N0=GIZ>V9Z>GJ^[C[7NVZ63AYH M:?&],1Q3^D-29?:-U%BOW@7RCTRQBY.#E,'KR/S1)'+D!:ZM0%3+$.28KZ6/ MKZ*I^?&5<,*:P<2*IZ^L,[D=*GJZH"_S].I:6)"'R"R#TUG"JH'BL@ZZO?9! MB6HP[;90#;;)!HNBTR&#0O]HM8+IC\/S%-.50%<_G!X_G![_*J<'IR<3SX/) M=Y9W9_#G3P$"R),Y',#;,%'N_B%M"_*3%A,CH"UX^_Z6LW1#O7LV("Q'Y/"& M(8ATDG1FX<2=YG0RK^XTU![?P.$$&TT$#J#\3*)-9[N0"13Q91&BADA1)]=$ MA?HC4E^.+\BM:I*ZQO8V!(KNU_[@Y**O-2)P\+@.![@1T*,]8\(]BQTBI/\F M=CR"W\64EO6.H`W2K&X,29#F\^(#=E;YE"Q0#D!!48PX&A-/T5A+?D%4;!D, M]S(O@9?ZUEC>4?HE<ZP4SNCZ];3_O\^?SOJ#(:=7Y4G1VF_19HV?[99WU"A] M)XK+('<!;URA9\%\Z7#WQN<M+GQ^>JYEI]>$<Z6/3LZ.!X/`MTY]^($Z'-!" MP_2R_;(GH1SA]3"Y)=1K%TMS5)[8-G\7;=K:*!&],$ZUHAU^O/C/YP\?:4OV M6'@M+/!?OZQEJ/4,AEI/9:@5,!2O96C_&0SM;V9(O((]]]@X@QL$^9CY1OV1 MQY7N.$Q(#,^;1P$9Z!.;-F#A(.BV.FYRTMO9VY!>#CS\:L]>19%-"UL._]4D M(PPA)5+6*HSNBN:+!Q,Q?A[?]^Q,VZHE96-VIK3?OP)9M:L^+69?HID"U'KE MWZX^$^JE/HYF8]VD6M!Z0..B"=35,+HYQ=J=&UJZM4WLAM:U[^Y;TL(5TMC$ MP2<#(G`IIT%(E3!35R>F>%(V.X$X04L3>O=)910[%+0.1,(4>D>.X!`[D?=Z M0H<BUO0IQG"6?[/O)A2PIC92K(?R?A?(JN!M5T=I55@E#'R(%[_K,XP3\P`& MLC_RS$")<'];,A9F&GUCT]I+.7L?2PIRZ8.-`79`>"20D]S/1Z[_OH]16&.> M7V!/ZHP3G6.1F3SFM!'^P4R\],CY_*`WR\/<,M'<-&Q6?'FQ::G!Q"X1VW^Y M7QIU<"=D=*^6!][B'7<>VJCN49K$"VU?05-BZW8YZ%4E22=)&E>,P4(UN^#? MX=R3\?5U<I50EF`GD-LH1>D2PLNEZF(X\!!.8'.<^?XM2?W[-8G@Q8ZG=\TG M+);<U(:,"O5`K7QN^^K$/>>UH"21*1(6T[P@24O^>V\FK)>V1\[)?3MISYVX M/6I6\-\G;G_^WLZRY<VM"#^;0>$8L$@S2-!E_B`(!/!]DT5=S:.OL0FY]<`$ MM(MV.W0/U^D>&C\DX]]4@ZU*O=(0TSR7^G%T:AKKHUET%=N<@:RGFM+44!AD M&)(I5C(7YB&/)6??SS6UMC)GBMHK,L<)\(\QLW:U%%I@(V*K-H;55S92UZ*3 MY]4=XS5D^709'MU]>U!_4X)D)&$+A54HGT0C%[2SX;QGQ^<?1N^.!^\M(Q*S M6XA.R?6TAL#/#IOH6<[^$\7PE-)W"8D7B<(/[`YAB>LPH-+`C=TB'H]\+OR> MZVLI;?S'DOAXW#]7N]%=A$.$60MO.G09>]@R8PV03:'M.$APJ\>JAH^UYBJ` ME5"RD'6=5Q]<?=&C)-8M!YNS;M&JY=T23M4%%7(\U6LEU?L=`32Y@M8,-:4D MH:ZG)TJY4HFG*#<Q&"B>^!](a)T.VGDC'A!HBV74H(+SL"H_&E1J566L2^5-6J M%N_-Y^@1*@2^`0=UDL/O;*F/N(GN9OZ@S\A3HC>YCQY(D?%P'^ZWZZVW&.]V MI]YJ6^4G`?PRYLHE/>#(=77E+"[9&'$2X!HH8W7YP)GNX?V;N<QW>\8Q/HNG M<GLD^HL+?6G&3663(*?)QF9%:B\@P,Z;Y%J*DZ7+Z:46TY3Q+$2;232]5WUE M?Y_$Z8W6G8TC%\"!J'GYUOX"%2./_G2$\VS#XE\%&4*W$BG<+5I(Y):U0.*? M[!=5@R/\V_SBX_N=A)2>&-F,?4TTW2L&'4C,"+5:S7[XB%\>O<0@)G_?(LNX M0I"9K508Q])4%F^G%)2%2UI1A`D$Q@[]\:Y&5R\!!%=2L8BZ.6RW",39.3SP M,T`$!U9SBI9UW*"3)<VZ9J`%]P*(Y9[ZG#9<[N]@IXW5C39MZ%90[\;-L%V. MRFX_Y0,UUX5%M1B>,9/DDHP0JU\*+7XF0D8H64`9H>V+C!@V$XP#$;H@QY@Z MX0M1Z*^%>.6`F[#E9)MARA8RO%$0J;`W4C:7,;T0)'(/9P:NSK]FR=C8$]1- MX0OF7(a)ES6*M3UI.F[!)6+D4L*+M&<R/VRO]3M-X1F9,CN,DLL[L50%9'E;J_ M$>O.M!ZHAIOP*N"7YRJ5-'R@S]&2C4('#G*T>%IV.6=_Y_!--XS>H!ASK!6A MFZ1<R8.#O`SABEX[E:H)PW!SF&`O2/%!1QQ16Y*D0RI!86HMT\`*\!_TCY+7 MT/66(<!HQED:$RKFS^S2/Y]L>-2.NX1\Z(/F)+G2W]T#``&._0.";%?>[D2' M&23`8N1#LR1?KK7!G0\G'$$#SY3^Z!+^;7Q.7I*B_C+\9E70LN5S\*:6<ZM M.3Z+[Z($:(0ZBC#+9B%I>L(,/"L,>?;0I3;J_[*.7(*EMUM4Q[5VT.[H7[K> MU#D>#-Y?#`E<7DFUP)97MRM;M*1ZJ/"D1D\-EIW6U7HM5=D_['U@O,:A2I<O M?S8[E%J;5Z<A7FC;H8_?NAB>*=@[4#6QW+EZWZ?A`SSI>-CCJ9YN^&9$37<) MUDDI"H#FKU.C-*,5PGVZ@N$1&VAE=LPUZ3W!4X[%('.\G3R+CGL%FY@!=X$C M_C:?BH$5AYXB#EY/#X_UBOZ*Z_3K._B9R,B6-Q5=D%Q;+1Z1@4`5*3@P1,_/ MQ80W**U5$7!DF]'5_'V"*KWQ0FYE)(a)0SU6?-6TT%E4(2E)C`F5R_.3['T8$ MU59TT<;^Z][B?T;OGCX*M,*,Y'>DH'\X#U;*D+07;(.N:G11UA*PA'6&^)SV MH3VQ@.Q=-O=#I/A(:T?+PCMSC]F=(!RKT)2(%IA*#9I*5,\=C@]MA7T^'_7/ M^\/1\&-_$,IZ^_9ETEJFE/%CA*'C=W([DO^=E^SI4;0`(ZY>OQ7(52=G;^5+ M!>I-]W<@M1>5^HM)AK!#SG?FQJC^XL6^O_L64)"*@AZ5,E*;*%&I%Q3FTH3H MAMIOK*AY;?VK2.-QMD1\T4KK3:\AS8G_,AJUS:)@,FHM&;7C&[[`NKSG`LU: ML?64VZAW*3W=73R9H/Y--;"G"C@8C6B-P8P*%UM]_T>RF!$D7\70B1`"!+( M(_@DCQ4)`86Y@A'=WNMV"!A9BS]L]3I^XAB@^$(TWU/`?%MB^0(H7YC%$\$ ?\MD4LMO`^+9#\175!'@ZAF\K")_:^3_)^'>RP88````` ` end

1 0

Bugs with integer() in packed records
by Frank Heckenbach 21 Jul '97

21 Jul '97

I found some bugs with the new integer() types in packed records. The following program writes 5: program x; var x:packed record x:cardinal(64); end; begin writeln(sizeof(x)) end. The next one says "constant out of range": program x; var x:packed record x:cardinal(64); end; begin x.x:=0 end. (The errors do not seem to be related to my very expressive choice of identifiers... ;-) -- Frank Heckenbach, Erlangen, Germany heckenb(a)mi.uni-erlangen.de http://www.mi.uni-erlangen.de/~heckenb/links.htm

1 0

Re: It's back! (prior parameter's size)
by Peter Gerwinski 20 Jul '97

20 Jul '97

According to Bill Currie: > C:\source\mpt1352\port>gpc -c -O2 foo.pas > foo.pas: In function `Dectobin': > foo.pas:6: prior parameter's size depends on `Binary' The patch below should fix this bug. (And others.:-) Please check. > However, if I uncomment out BinToDec, gpc aborts in fix_lexical_addr, > stack trace attached. This error vanished, too. I was sure they were independent! Okay, never mind ... ;-) Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125] 8< ---- gpc-970714-970719.diff.gz.uu ---------------------------------------- begin 644 gpc-970714-970719.diff.gz M'XL(`'E5T3,"`^U;ZW/:2!+_;-7]$5W>W(:7"&`<#+D\"":)]QSLPB39K;TM M118#S%I(6CV,V=W\[]?=,P*!P7%R=57^`)48:1X]/3W3OW[,T)G8WEA$,/)# M&`<.C$)_2(a)]FLU%I5.MEP^CH%M*#D73Q8>XGX-@>A,+QO2@.$R>&F8PG\%I& MOE<"$=OCJ`13^TI(;^27#-L;PD#\#!/[6L"E$![X4QG'8E@&N/"G`OP1Q!,1 M"3V`'0I(@J&-+>#W)(KA<FY<)M(=2F],#<'QIP&V#+'_+YH9U9YK0X%=UD@B M!7$CG"16)&1$-*;(F&$`,*LP:+^]`&(8AM<2S!&\QU+J79:>8>#LB?90XJQC M/YS3`&_/.Q#Y2>@(G&X0^M=RB!Q3,T]@661CL]CWW<C(K<N$Y4%RB<6-K.&` M>9ZU1'G:KHN2,8R!#W80N',]CZ$<C9#"V$>2:ZPLEXM))I%(I;28(01V[$S` M#*J&,1*")2EC;C;R7=>?40$/`38M=9#$96,P$;3*GCT5:R,B"S@H,FE0'S!# M,#\<@-D#\P8*95]]N?Y8O[M#>DCE2<^X<T9R7'9L9Y)]Q]G'240%-*=K$4;2 M]\H.DPGL,!(KSY.TX3@0X4B]\BJJXO++E\NGE&C93F[X\:53II4HZ/)">1)/ M7<4OKS\]Q+X:;E%WTKL8M$]/Z?'-^;^OH[>]#_0<!<*)U#1"GH[FG![#.%J= M"!7HZ:832.?A!(%^K-*W*R^9XXR`N,?EK[+D_&8RZY-L19Q]P;WDF87RKTYI M\AN]^T&,/$2JDCG6C[$]#9A6/-4<":^@:\;BUZI9_TW1<]QDR--[62QR`T?Q MZ3@.\ZW9%]X?B51R&+F^'9<G2LC9EVGBQA+GIP;$AX*:9N(-458D1B6L&UPG M_G8E0D;*L8Q%6=P$:FTN[2OU$,V"C"H\"9XHY#K%;8C%V7?#-,TM3?<N[!A^ M2ERH-J%:;]7KK6H5GYL-HU@LKM/9NT@\;ERK0*76JE1;]:9J_.H5F-72$12K MI8,#>/7*,-_C=J@>:-+-!E2/6H<5@',1BQ#>BA`U,+J2\*^`"LKCM.!5XDD3 ML41XY:%X812)/61M0:9VV*HWOIV,4=PKL`2&PG'+3HM`TW>OA85V8&:'0ROP MI8<4<GFJ&B:.1@![BEL"`1<Q9H@T`($5;`T,B!R1''M3X:7P2[LVQM>(WT.! MP.@/151>&7^$J]H">TC8B2`:^_$\0,1&B/&2Z:4(+7]D10@34]L:RL@)<2-X M-M+,Y4O,@8PV55NV0Q",C1@3`YS$HC86ND<NGV6%QG6N2!C(-JHLT@C'"4TG M(C$0P2!>IS2$=N^8^<"MNU*.EI%`58T4V]F1%'S-6S"R"4];,".DC>VKU,"A M-'!!6&PVC!+/(=55T\5][TI'QF@8'#05(a)`*T49DLQ3.CCNV&PA[.82)"44*# MR\O%G7TDCCM"&XB4,$SE>()65C!%,C[4]MH.I7WI"LL/K;2EEJKE^98<MB"P M>MU/+<7'2'HRFEBTGY9B17OKEJ/6%O&WT$[.T#*%:&!H^W[V<0:S$+7[<1DZ MQ$H8,2L.*QSS910'B8#J848#4$MKWZT!TIS8T806_5W[XIWUYD.O0XN=3AX^ M6\(;/D8="%S;P57%_<XNR9\B])6<VA&T770NYA#9<EA2WH7OX?I$(KQ6.WDL M8MP?\@]D70Z5LT4R(Y5@&JP6)70FR"@/?>SD^3$.BHWFZ#3$-!-BF4&D_K^" M"!B`<W^-/@D.X0H[8@\LZ_3!!KQJM&K?`32W./XN,HKC+%XE7I3P7APE)"/4 M-7*]4'[3P!4,039N&]1GTBW:]4@!()[YJ!6V7@+2@8B<FZ4BD)>$7F7+S.T\ MFYUG\V`]&]IPIHN@B"NMG9)LT6W_)EN[[N(<M.I'ZR[.:ON,EU-%P&E5&DLO MY^"HU(`B_T4W!_Y!NOH#?-3;1)GPR,"-[%AZLSQ'KI[6ZD9QK:Q1JQBTAQ9E MM?*1HM:]B4.T@R[&4*3C`3H:](U.1X(M,:BDN`K=BIW*[E3VH:KLTGAI%5L6 MW%;79=U]XI$MK9NM>J55K2Q5]>C@L%%Z"D7^;K*Z`CPIP!L_1/\>[:4?S%// M?7!F#7XY[[)G@MX,JEN@JSB=4(#3=N^M==SMG'(3M)D#\GLB(:81[3CT?B09 M9HDR),^-.QE%[OH*F6FC4R[)F_8IN(@`E69J>QPZ7/Z.P00E(71S^GB^9V:; MX&YPKBB08+**H]<))S1"@H,Y>;/8>HX@,<(BSU&.&$U-#:`[47!P@BZ7]SB& M*\^?D;L0LGL\YXR,^0(^"96YBGW=1SN#&6(XE4BXH[(6\],ZA7[XW2A5:UK. MQ*#RQ'62:H21"PJ=H@X684E'3+@&,Q2=[C-"(2'&RUB+\(EATD.!^C^'0NQ; M1.`9.8>\EOWU8$W+Z`E]T8I:[]LG/>MCNW_2[@T@AW3R2&A#C2:=)]I((11Q M$E(Z*'YFP!?$Y1W8[L#V88,M9196()(*MH$MU=T?;&^U;K8.\-_1$FP;M2IA M+7UIJ$4=5$D0A*=+L2EI`>?]L\$9Y'+4+(^:I]IS[CMMSWB1;5>"M'51(HF[ MDR:W1N`^=Z90M@UV[<MM>96U+CC$^F164B5?GQI#6S9'P\(TJ/23C:AD7_H) MQ<MD!>W0YE@.K=65F,_\<+CS#'=@]<#!:K&OER"3%FT&K+3VOI"UJ7VMTCHX M1-Q:@M;A80D=QJ+Z(M"BG2X=I;E_)+8KXSFKZ=X>Z^DZ**3M"53HD,Z*[7`L M8NX2;>OS@QPAH-)IFF&N]U?N%:4@-4;HO+2FN)'@.A%\H30F][`"^)8^RXSV M-W8,A>L'V_H4OVV6]R.R.LLMLBY^?9K?U%%/<^O*"@^!EU":CDH)LC-D%CEE MQ7*&:O#US45]+%=&\7TZTLZNU0[J:(B+_*V=\CWVL"_1<D2HY6Z:]F?GN?.N MW0<_1/_[1@Q-G<O'`,*FG#6[XNFGH%/\BYQQ65-&5YURUXAU?CBE[L_1K&$C MM`I3^/%'.&]?=-JG'&99Y_WN\<E%IW_R_J37'G2/K8M!_Z3W%G*#?K>K(K$< M>^/YO,J(;Z3*56L?'"B7'>E#[YX#;2)&G[___F[.62ZPMX<D<$]$$S]!DTN9 M[HD=!,)K@>W.['G$"1Z5:U]$;RQ.V/ZY%TN*CV<<$=V'T#99I0+:1N.^(DKY M`98,BN0"85:J`-QV8L3;S.D(1XN+<PE7>.-XH@^9TJW,%PKX2!\C99=[>'>? M2U%\2X=#K"('1YS+JQTTJSJ;M_P@5SFUI)VS8US2:]O%N/$YJ*E8G8N!<5L( MF?:9W4!=N2_I&)?EC=N;-BO`.[;4RIY`RJ@.J*"6FJ1U.;>F&%J[D.M].$5B MV+]$K4I0I6VP]QV=,L,)-Q*KG/^U/A%<T[8Z-U0791+T48E6@K#NRBNZ\0&= M,W37@%S7B(_L7NZ\U9VW^H"]U?3(=.%=I@6;/-6T[CZ'#IG6=,C+K0^A=M"J M55>\U'J3TFOX]RF#E/(R"$0-4]P(a)5!+FD4.#JN;Z"'5TA/N,\F:HC>17C1%- M.=:D0T`.8SFG%XH(/2!T):[)VM#!`[JETA-PTC]7J$/4<!2^W%$CC"Q6JTT- ME4:FP_(HN8?@EX?_&&:./L[$#J&05Z5Y,WW_D1C,PXL74,O#/^%]^V>+*0S: MKT\1&XMW]:UL[Z?B8YVWTQZE=F$HJ9O@O$=2((R08T9.56$'/#O@>;#`@S8Y M<<4"=M+7VZ"3UMPG--[8%K&IB9'QUC-."EFU^/:7Z<!]PI\5!.B^?]T]!J-X MNU#1X+`W6[@@^R]R@$,4[XN=2NY4\L&JI+['IG5)O]U62%UQVP4X;*[KXX:F M:/QKM58EFZ6JUNNDD/J;0WD5/YV*>,.%N%R>[M;1[;:0;SHMKOMHHQBI_FP' MZ8%BG<VARZ,#%;F0;1^<G/5T]&)R=WCT"`.)1P<46"S?-]S/(S+/U%`JA,@T M5^EQ#(`=V[42SP[GEA]`KGU\W+>Z/Y_W2SA`"2H<-+(LZN@'<<Y./ZR&;7<$ M56>O?^IV!BO36YMI/N6,^V8D@I4D!29#1\"+AG^EHN#5H'/>E6N!%)%2N*^N M&2)ZI!*G#^<88S$-4`JH&&',G2!'^4-U=\Z20W30)#HM(>3VZ<!UGV*RDK$U MF%?2),J<+%J)Z-8F6R).]E)F*B7(-%T\YA=K"]F983B*?&_MLIBB8H>NN/"5 MR1S?GRS=R241SF=I\"ZATD79EYV-V-F(!VLC^`IPZK2IE]L60I7?QV';T++9 MJJ.)R%Z\KU5JC(GJH:Z/7^F_NJ7"U\74]4^5!:/$FHOQ$$>%E!#F8%#=WJ5\ MFKPQDX!_'!1.^721:7E"#-6M4Y0718UKB39]\UO]IHJO!:LBNI)!=V$*<#*" MLX_=_J?^R:!+X$BWBDNI67JR3'XNKL03-VL)/2:4S@-7/&6=+]T0P%*$:YA; M3FISA%\88]Y578+%Q>PT4\=@375I,I7BQT4KA";.A&TWI#PJ&Y'SLY/>H*OR M@,;74H?+;OWNFVZ_V^MTM0E6ZUX[I#-W_$936%TSA6RM^MWV\5GO]!?(4<*/ MDXCI[9=EE<X#ZMLOZR0^GIVV!R>GW0TDEE5K)+*I8KZDPS&Y_K$::F&)-YVZ MA13A\KL+UV2Y":*5?'.!=L,^4M@GI,#MY\#G"Q[T,>^6\FKK)]E76I;%6I$P M*VFR?UW4"X>$SUOX;M+MY5@5T49O(ETW2$66Z?/%R*13F;<[4_"==]WW[6U> MBQHGK[9#K7'8Y'QVX^G12CX;5^!X^9L'>R4WLB%?KG5V*?EVK+29^Y5@)O@7 MB*A!9K8G76]+(O5#NPC\F;?\-4RYG"&W.-?8JH++$XNM3;1+J.6I[_5=Q+ZZ MRH9S0J3VPYB3S_H$(7-7(DIO_;$<1G2W307&2H[-1H/EV#QZFKK;R$J"S@\= M.FD/B![54<;RPR==S\'U_:LDL/AWA&JU/K9//^!RN=*[XD/43)<M,]3DB_=K MJ<6Q]V4ADB\J<]BH\U3JC<.GJT<<!<C)LBCS:G[&7?H81;6R,Z+$F2Q+\MG] M</[_6GFE>])3OZ^RZ,Y?+@6,_9Z8[>>_OC6^3D.?:V2TXX-GHG,;2[2)?ZY< 6<T3AT$]9V*"AD%;F\E^,>WRW2CP````` ` end

1 0

Re: It's back! (prior parameter's size)
by Peter Gerwinski 18 Jul '97

18 Jul '97

According to Bill Currie: > > C:\source\mpt1352\port>gpc -c -O2 foo.pas > foo.pas: In function `Dectobin': > foo.pas:6: prior parameter's size depends on `Binary' GNAAAAA! :-( > However, if I uncomment out BinToDec, gpc aborts in fix_lexical_addr, > stack trace attached. I can reproduce both bugs, and they seem to be independent. (The latter one vanishes when I comment out "#define HASH_EMBED" in `module.c', the first one doesn't.) We will see ... Thanks for the very helpful bug report, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

It's back! (prior parameter's size)
by Bill Currie 17 Jul '97

17 Jul '97

Using the attached code, gpc-970714 (with #define HASH_EMBED commented out in module.c), I get: C:\source\mpt1352\port>gpc -c -O2 foo.pas foo.pas: In function `Dectobin': foo.pas:6: prior parameter's size depends on `Binary' foo.pas:22: warning: return value of function not assigned However, if I uncomment out BinToDec, gpc aborts in fix_lexical_addr, stack trace attached. Bill -- Leave others their otherness. -------stack trace for abort (BinToDec uncommented) ----- _abort _fix_lexical_addr, line 4391 in file function.c _expand_expr, line 4292 in file expr.c _expand_expr, line 5235 in file expr.c _expand_expr, line 4659 in file expr.c _expand_expr, line 4886 in file expr.c _emit_library_call_value+1628 _expand_call+4891 _expand_expr, line 5189 in file expr.c _expand_expr_stmt+253 _rts_read, line 3409 in file util.c _build_rts_call, line 5232 in file util.c _yyparse, line 4574 in file parse.c _compile_file, line 2232 in file toplev.c _main, line 3938 in file toplev.c ___crt1_startup+290 start+465 unit TrunkUti; interface type wrkstring=string[255]; function BinToDec(Binary: string) : LongInt; function DecToBin(DecInput: string) : wrkstring; implementation function BinToDec(Binary: string) : LongInt; begin BinToDec:=0; end; function DecToBin(DecInput: string) : wrkstring; var DecNum : word; begin ReadStr(DecInput,DecNum); end; end.

1 1

Re: GPC Problem
by Peter Gerwinski 15 Jul '97

15 Jul '97

According to Phil Robertson: > > [Bug report: overkeen type-checking in gpc-970624 ...] > > Any ideas or fixes? The new beta, gpc-970714, just compiled your program without complaining. However thanks for the report and the example program; I added it to my test suite in order to ensure that this won't break again in the future. Greetings, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

New GPC beta: gpc-970714
by Peter Gerwinski 15 Jul '97

15 Jul '97

Hello everybody! A new beta version of GNU Pascal is being uploaded to agnes: gpc-970714. This is merely a bug fixing release, but ... Faster GPI ========== Using a hashing algorithm instead of a linear search, the loading and retrieving of GPI files works much faster now, especially for Units (or Modules) with large Interface parts. The GNU Pascal development team welcomes a new member, Alexey Volokhov, who implemented this. Thanks, Alexey! Bug fixes and new compatibility features ======================================== Standard Pascal: * Subranges of enumerated types are now compatible with their host type. * GPC now performs compile-time range-checking when a constant value is assigned to something of a subrange type. UCSD (and Borland) Pascal: * For Units, `.gpm' files are no longer produced, only `.gpi' files are. (For Extended Pascal Modules, `.gpm' *and* `.gpi' files are produced.) * The `Concat' function is implemented now. Borland Pascal: * The `near' and `far' directives are now "implemented" (i.e. accepted and ignored) in GPC. Outside `--borland-pascal' mode, a warning is given. Extended Pascal: * When assigning a constant value to a String, GPC now checks whether it fits in the String's capacity. * Pointers to already discriminated schemata work now. * Schemata containing forward-referencing pointers work now. GNU extensions: * `Integer ( 8 )' types are more stable now, survive transport through a GPI file, and can be `writeln'ed up to a width of that of an `Integer', usually 32. * A new function `BitSizeOf' now returns the number of bits in some variable, including fields of a packed record. Miscellaneous: * Directives are now passed correctly from `specs' to the `gpc-cpp' preprocessor. * Casts between different Real types are now treated as conversions again. (This was broken in gpc-970624.) * Strings of unknown size in functions which are exported by a Unit work now. (This was the "prior parameter's size depends on `Foo'" bug.) * Indirect function calls are more stable now. A strange bug which showed up only occasionally and made GPC sometimes call a function when a function pointer was dereferenced and sometimes not, should have vanished now. (Please check!) Where to get it =============== The source is being uploaded to ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/beta/, files gpc-970714.tar.gz and gpc-970714.zip, together with binaries for DOS (DJGPP), DOS and OS/2 (EMX), Linux (ELF), and FreeBSD. In order to prepare for the release of gpc-2.1, binaries are moved to a subdirectory `binary' of `beta', and some other things are being set up, so don't be confused if some files aren't located any more where they were on the day before. Acknowledgement =============== I thank Stephen Lindholm, Frank Heckenbach, Abimbola A. Olowofoyeku, Sven Hilscher, Bernhard Tschirren, and Bill Currie for finding the bugs. Please go on finding all bugs in gpc-970714! I may have overlooked some you already reported. (If so, please remind me by e-mail.;-) Once GPC is clean, we can release version 2.1 - and face neat new features (e.g. qualified import and identifiers, classes, interfaces, procedure overloading, ...) for 2.2! :) Greetings, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [970201] maintainer GNU Pascal [970714] - http://home.pages.de/~gnu-pascal/ [970125]

1 0

GPC Problem
by Phil Robertson 15 Jul '97

15 Jul '97

In your latest "Beta Version (2.7.2.1)", I've run across the following problem: Command: gpc test.pas test.pas: In function `program_Test': test.pas:13: invalid operands to binary = test.pas:13: condition must be of Boolean type PROGRAM Test; TYPE Colors = (Yellow, Orange, Red, Purple, Green); VAR ThisColor : Colors; BEGIN ThisColor := Purple; IF ThisColor >= Yellow THEN BEGIN WRITELN ('>= Yellow'); IF ThisColor = Purple THEN (* THIS IS LINE 13 *) WRITELN ('Purple'); END; END. Any ideas or fixes? Phil ------------------------------------------------------------------------- Philip A. Robertson <phil_robertson(a)gilbarco.com> Gilbarco Inc. F-78 Phone (910) 547-5164 7300 W. Friendly Ave Fax (910) 292-8871 Greensboro, NC 27410 -------------------------------------------------------------------------

1 0

ARGH!! Segfalts in gpc-970714
by Bill Currie 15 Jul '97

15 Jul '97

Ok, this could very easily be something I've done (I had to make a slight chage to gpi-hash.c to get gpc to link for djgpp (patch attached)) but I get segmentation/page faults for the attached code whenever ANY ONE of the commented out sections of code are uncommented. (Yes, it's the same file as before, just trimmed down for the segfaults) Oh, and I had to rename rts-conf.h to rts-config.h and rts-vers.c to rts-version.c to build libgpc.a. I'll try rebuilding gpc/gcc from scratch to see if that helps. Ug, this is frustrating. Bill -- Leave others their otherness. *** gpi-hash.c.~ Mon Jul 7 21:44:56 1997 --- gpi-hash.c Tue Jul 15 15:44:22 1997 *************** *** 49,55 **** #endif ! extern unsigned long _end; /* integer type for void * representative */ #define IRP_TYPE long --- 49,59 ---- #endif ! extern unsigned long _end ! #ifdef __DJGPP__ ! __asm__("end") ! #endif ! ; /* integer type for void * representative */ #define IRP_TYPE long unit foo; interface type wrkstring=string[255]; function DecToBin( DecInput : string ) : wrkstring; implementation function DecToBin{( DecInput : string ) : wrkstring}; { converts a decimal string[ up to 256 ] into binary string } var TempStr : wrkstring; DecNum, Mask : word; Pos : byte; Err : integer; begin (* TempStr := '';*) mask := $8000; (* ReadStr(DecInput,DecNum);*) for Pos := 1 to 16 do begin (*if (mask and DecNum) > 0 then*) mask := mask; (* if (mask and DecNum) > 0 then TempStr := TempStr + '1' else TempStr := TempStr + '0'; mask := mask div 2;*) end; (* while (TempStr[1] = '0') and (length(TempStr) > 1) do { returns at least 0} delete(TempStr,1,1);*) DecToBin := TempStr; end; end.

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc