From 74b80530f5c52b19c6d18a3bb9201529efa99e04 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Mon, 10 Feb 2003 13:27:16 +0100
Subject: [PATCH] Small fix to work with a 7.2 precompile pike.
Rev: bin/make_ci.pike:1.9
---
bin/make_ci.pike | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/bin/make_ci.pike b/bin/make_ci.pike
index d29d5e11a6..3c9dfe849a 100644
--- a/bin/make_ci.pike
+++ b/bin/make_ci.pike
@@ -1,5 +1,5 @@
/*
- * $Id: make_ci.pike,v 1.8 2003/02/08 15:18:56 grubba Exp $
+ * $Id: make_ci.pike,v 1.9 2003/02/10 12:27:16 mast Exp $
*
* Creates the file case_info.h
*
@@ -91,7 +91,8 @@ int main(int argc, array(string) argv)
array(string) table = allocate(sizeof(ci));
- foreach(ci; int i; array(int) info) {
+ for (int i = 0; i < sizeof (ci); i++) {
+ array(int) info = ci[i];
if ((info[2] <= -0x8000) || (info[2] > 0x7fff)) {
error("Case information out of range for shorts: %d\n", info[2]);
}
@@ -109,7 +110,7 @@ int main(int argc, array(string) argv)
outfile->
write(sprintf("/*\n"
" * Created by\n"
- " * $Id: make_ci.pike,v 1.8 2003/02/08 15:18:56 grubba Exp $\n"
+ " * $Id: make_ci.pike,v 1.9 2003/02/10 12:27:16 mast Exp $\n"
" * on %s"
" *\n"
" * Table used for looking up the case of\n"
--
GitLab