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@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@]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@`*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@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