소스 검색

* Change longint to valsint.

git-svn-id: branches/fpc_2_3@6578 -
daniel 18 년 전
부모
커밋
97b0b5810e
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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