Explorar o código

* Change longint to valsint.

git-svn-id: branches/fpc_2_3@6578 -
daniel %!s(int64=18) %!d(string=hai) anos
pai
achega
97b0b5810e
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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