Browse Source

* Change longint to valsint.

git-svn-id: branches/fpc_2_3@6578 -
daniel 18 years ago
parent
commit
97b0b5810e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/text.inc

+ 1 - 1
rtl/inc/text.inc

@@ -1193,7 +1193,7 @@ end;
 procedure fpc_read_text_enum(str2ordindex:pointer;var t:text;out ordinal:longint); iocheck; [Public,Alias:'FPC_READ_TEXT_ENUM'];compilerproc;
 
 var s:string;
-    code:longint;
+    code:valsint;
 
 begin
   if not checkread(t) then