@@ -145,7 +145,7 @@ sub GenerateFiles {
145145print H" /* fmgroids.h generated for Visual C++ */\n #ifndef FMGROIDS_H\n #define FMGROIDS_H\n\n "
146146open (T," >src\\ backend\\ utils\\ fmgrtab.c" " Could not open fmgrtab.c"
147147print T" /* fmgrtab.c generated for Visual C++ */\n #include\" postgres.h\"\n #include\" utils/fmgrtab.h\"\n\n "
148- foreach my $s (sort {$a -> {oid }<=> $b -> {oid }}@fmgr ) {
148+ foreach my $s (sort {intval( $a -> {oid }) <=> intval( $b -> {oid }) }@fmgr ) {
149149next if $seenit {$s -> {prosrc }};
150150$seenit {$s -> {prosrc }} = 1;
151151print H" #define F_" uc $s -> {prosrc } ." $s ->{oid}\n "
@@ -157,8 +157,9 @@ sub GenerateFiles {
157157my %bmap ;
158158$bmap {' t' ' true'
159159$bmap {' f' ' false'
160- foreach my $s (sort {$a -> {oid }<=> $b -> {oid }}@fmgr ) {
161- print T" {$s ->{oid},\" $s ->{prosrc}\" ,$s ->{nargs},$bmap {$s ->{strict}},$bmap {$s ->{retset}},$s ->{prosrc} },\n "
160+ foreach my $s (sort {intval($a -> {oid })<=> intval($b -> {oid })}@fmgr ) {
161+ my $o = intval($s -> {oid });
162+ print T" {$o ,\" $s ->{prosrc}\" ,$s ->{nargs},$bmap {$s ->{strict}},$bmap {$s ->{retset}},$s ->{prosrc} },\n "
162163}
163164
164165
231232 }
232233}
233234
235+ sub intval {
236+ my $v =shift ;
237+ if ($v =~/ ^\d +$ /
238+ return $v ;
239+ }
240+ return 0;
241+ }
242+
234243sub AddProject {
235244my ($self ,$name ,$type ,$folder ,$initialdir ) =@_ ;
236245