diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-09-27 20:22:40 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-09-27 20:22:40 +0000 |
| commit | 8b5b89db30881fce287cda10fc220fc91e4986df (patch) | |
| tree | a186ac6f47512a8481b5f6f2bdcc08653eb44edd /compiler/ccharset.pas | |
| parent | 707ed84c1a5daaf21b6dc091aed6cbcc7a5fc5bf (diff) | |
| download | fpc-8b5b89db30881fce287cda10fc220fc91e4986df.tar.gz | |
* patch by Alexander Shishkin to clean up $ifopt usage by $push/$pop, resolves #20346
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19256 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/ccharset.pas')
| -rw-r--r-- | compiler/ccharset.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ccharset.pas b/compiler/ccharset.pas index 7fcff607f7..77b6399e15 100644 --- a/compiler/ccharset.pas +++ b/compiler/ccharset.pas @@ -84,9 +84,9 @@ unit ccharset; datasize:=256; getmem(data,sizeof(tunicodecharmapping)*datasize); assign(t,f); - {$I-} + {$push}{$I-} reset(t); - {$I+} + {$pop} if ioresult<>0 then begin freemem(data,sizeof(tunicodecharmapping)*datasize); |